support multiple dialogs

Author: sprocketc

src/renderer/dialog/events.cljs

@@ -7,26 +7,26 @@
 (rf/reg-event-db
  ::cmdk
  (fn [db [_]]
-   (assoc db :dialog {:content [cmdk/root]
-                      :attrs {:class "dialog-content dialog-cmdk-content"}})))
+   (update db :dialogs conj {:content [cmdk/root]
+                             :attrs {:class "dialog-content dialog-cmdk-content"}})))
 
 (rf/reg-event-db
  ::about
  (fn [db [_]]
-   (assoc db :dialog {:content [v/about]})))
+   (update db :dialogs conj {:content [v/about]})))
 
 (rf/reg-event-db
  ::save
  (fn [db [_ k]]
-   (assoc db :dialog {:content [v/save k]
-                      :attrs {:onOpenAutoFocus #(.preventDefault %)}})))
+   (update db :dialogs conj {:content [v/save k]
+                             :attrs {:onOpenAutoFocus #(.preventDefault %)}})))
 
 #_(rf/reg-event-db
    ::confirmation
    (fn [db [_ data]]
-     (assoc db :dialog {:content [v/confirmation data]})))
+     (update db :dialogs conj {:content [v/confirmation data]})))
 
 (rf/reg-event-db
  ::close
  (fn [db [_]]
-   (dissoc db :dialog)))
+   (update db :dialogs pop)))

src/renderer/dialog/subs.cljs

@@ -3,5 +3,5 @@
    [re-frame.core :as rf]))
 
 (rf/reg-sub
- ::dialog
- :-> :dialog)
+ ::dialogs
+ :-> :dialogs)

src/renderer/dialog/views.cljs

@@ -73,13 +73,15 @@
 
 (defn root
   []
-  (let [dialog @(rf/subscribe [::dialog.s/dialog])]
+  (let [dialogs @(rf/subscribe [::dialog.s/dialogs])]
     [:> Dialog/Root
-     {:open dialog
+     {:open (seq dialogs)
       :on-open-change #(rf/dispatch [::dialog.e/close])}
      [:> Dialog/Portal
-      [:> Dialog/Overlay {:class "backdrop"}]
-      [:> Dialog/Content
-       (merge {:class "dialog-content"}
-              (:attrs dialog))
-       (:content dialog)]]]))
+      [:<>
+       [:> Dialog/Overlay {:class "backdrop"}]
+       (for [dialog dialogs]
+         [:> Dialog/Content
+          (merge {:class "dialog-content"}
+                 (:attrs dialog))
+          (:content dialog)])]]]))