fix close multiple unsaved documents

Author: sprocketc

src/renderer/db.cljs

@@ -32,6 +32,7 @@
    :state :default
    :documents {}
    :document-tabs []
+   :dialogs []
    :recent []
    :system-fonts []
    :notifications []

src/renderer/dialog/events.cljs

@@ -15,11 +15,11 @@
  (fn [db [_]]
    (update db :dialogs conj {:content [v/about]})))
 
-(rf/reg-event-db
+(rf/reg-event-fx
  ::save
- (fn [db [_ k]]
-   (update db :dialogs conj {:content [v/save k]
-                             :attrs {:onOpenAutoFocus #(.preventDefault %)}})))
+ (fn [{:keys [db]} [_ k]]
+   {:db (update db :dialogs conj {:content [v/save k]
+                                  :attrs {:onOpenAutoFocus #(.preventDefault %)}})}))
 
 #_(rf/reg-event-db
    ::confirmation

src/renderer/dialog/views.cljs

@@ -79,9 +79,7 @@
       :on-open-change #(rf/dispatch [::dialog.e/close])}
      [:> Dialog/Portal
       [:> Dialog/Overlay {:class "backdrop"}]
-      (into [:<>]
-            (for [dialog dialogs]
-              [:> Dialog/Content
-               (merge {:class "dialog-content"}
-                      (:attrs dialog))
-               (:content dialog)]))]]))
+      [:> Dialog/Content
+       (merge {:class "dialog-content"}
+              (:attrs (last dialogs)))
+       (:content (last dialogs))]]]))