enhance naming

Author: sprocketc

src/renderer/components.cljs

@@ -68,16 +68,16 @@
    [icon (if active? active-icon inactive-icon)]])
 
 (defn toggle-collapsed-button
-  [el-k collapsed?]
+  [k collapsed?]
   [toggle-icon-button {:active? collapsed?
                        :active-icon "chevron-right"
                        :active-text "expand"
                        :class "small"
                        :inactive-icon "chevron-down"
                        :inactive-text "collapse"
                        :action #(rf/dispatch (if collapsed?
-                                               [::document.e/expand-el el-k]
-                                               [::document.e/collapse-el el-k]))}])
+                                               [::document.e/expand-el k]
+                                               [::document.e/collapse-el k]))}])
 
 
 (defn radio-icon-button

src/renderer/document/events.cljs

@@ -31,7 +31,7 @@
                     new-db-store (pop db-store)
                     context' (-> (assoc context db-store-key new-db-store)
                                  (assoc-coeffect :db original-db))
-                    db           (get-effect context :db ::not-found)]
+                    db (get-effect context :db ::not-found)]
                 (cond-> context'
                   (not= db ::not-found)
                   (assoc-effect :db (assoc-in original-db [:documents (:active-document original-db)] db))))))))
@@ -45,14 +45,14 @@
 (rf/reg-event-db
  ::collapse-el
  active-document-path
- (fn [db [_ el-k]]
-   (update db :collapsed-keys conj el-k)))
+ (fn [db [_ k]]
+   (update db :collapsed-keys conj k)))
 
 (rf/reg-event-db
  ::expand-el
  active-document-path
- (fn [db [_ el-k]]
-   (update db :collapsed-keys disj el-k)))
+ (fn [db [_ k]]
+   (update db :collapsed-keys disj k)))
 
 (rf/reg-event-db
  ::toggle-filter
@@ -257,7 +257,7 @@
 (rf/reg-event-db
  ::saved
  (fn [db [_ document]]
-   ;; Update only the path, the title and the saved position of the document.
+   ;; Update the path, the title and the saved position of the document.
    ;; Any other changes that could happen while saving should be preserved.
    (let [updates (select-keys document [:path :title :save])]
      (cond-> db
@@ -278,5 +278,5 @@
 
 (rf/reg-event-db
  ::set-active
- (fn [db [_ document-id]]
-   (h/set-active db document-id)))
+ (fn [db [_ k]]
+   (h/set-active db k)))

src/renderer/document/handlers.cljs

@@ -4,21 +4,21 @@
    [renderer.utils.vec :as vec]))
 
 (defn close
-  [{:keys [active-document document-tabs] :as db} key]
-  (let [index (.indexOf document-tabs key)
-        active-document (if (= active-document key)
+  [{:keys [active-document document-tabs] :as db} k]
+  (let [index (.indexOf document-tabs k)
+        active-document (if (= active-document k)
                           (get document-tabs (if (zero? index)
                                                (inc index)
                                                (dec index)))
                           active-document)]
     (-> db
-        (update :document-tabs #(filterv (complement #{key}) %))
+        (update :document-tabs #(filterv (complement #{k}) %))
         (assoc :active-document active-document)
-        (update :documents dissoc key))))
+        (update :documents dissoc k))))
 
 (defn expand-el
-  [{:keys [active-document] :as db} el-k]
-  (update-in db [:documents active-document :collapsed-keys] disj el-k))
+  [{:keys [active-document] :as db} k]
+  (update-in db [:documents active-document :collapsed-keys] disj k))
 
 (defn add-recent
   [db file-path]