fix close other documents fx

Author: sprocketc

src/renderer/document/events.cljs

@@ -112,13 +112,11 @@
    (let [saved (filter #(h/saved? db %) (:document-tabs db))]
      (reduce h/close db saved))))
 
-(rf/reg-event-db
+(rf/reg-event-fx
  ::close-others
- (fn [db [_ key]]
-   (-> db
-       (assoc :document-tabs [key]
-              :active-document key)
-       (assoc-in [:documents key] (get-in db [:documents key])))))
+ (fn [{:keys [db]} [_ k]]
+   (let [to-be-closed (disj (set (keys (:documents db))) k)]
+     {:fx (mapv (fn [k] [:dispatch [::close k true]]) to-be-closed)})))
 
 (rf/reg-event-db
  ::close-all

src/renderer/document/views.cljs

@@ -82,7 +82,7 @@
     [{:label "Close"
       :action [::document.e/close key true]}
      {:label "Close others"
-      :action [::document.e/close-others]
+      :action [::document.e/close-others key]
       :disabled? (empty? (rest document-tabs))}
      {:label "Close all"
       :action [::document.e/close-all]}

src/renderer/utils/keyboard.cljs

@@ -210,10 +210,6 @@
                  [{:keyCode (key-codes "W")
                    :ctrlKey true
                    :altKey true}]]
-                [[::document.e/close-others]
-                 [{:keyCode (key-codes "W")
-                   :ctrlKey true
-                   :shiftKey true}]]
                 [[::window.e/toggle-fullscreen]
                  [{:keyCode (key-codes "F11")}]]
                 [[::dialog.e/cmdk]