confirmation modal on workspace delete

core · Jun 6, 2016 · 9fa63b9 · 9fa63b9
1 parent 2baef61
commit 9fa63b9
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 3 deletions.
diff --git a/src/cljs/ulysses/components/layout.cljs b/src/cljs/ulysses/components/layout.cljs
@@ -26,7 +26,7 @@
             [modal-dialog
               title
               action-label
-              on-action
+              (fn [] (on-action) (on-close))
               on-close
               children]])))))
 

diff --git a/src/cljs/ulysses/db.cljs b/src/cljs/ulysses/db.cljs
@@ -99,7 +99,7 @@
    ;; interface
    ;; -------------------------------------------------------------------------
 
-   ; modal: {:title String :action-label String :on-action Function :children Hiccup}
+   ; modal: {:title Hiccup | String, :action-label String :on-action Function :children Hiccup | String
    :modal nil})
 
 (defn refresh-keys

diff --git a/src/cljs/ulysses/pages/builder.cljs b/src/cljs/ulysses/pages/builder.cljs
@@ -161,7 +161,13 @@
   [:div.workspace-footer
     (when workspace-current
       [hink
-        #(dispatch [:workspace-delete])
+        (fn []
+          (dispatch
+            [:modal
+              {:title [:span "Delete Workspace " [:i (:name workspace-current)]]
+               :action-label "Delete"
+               :on-action #(dispatch [:workspace-delete])
+               :children "Are you sure you want to delete this workspace?"}]))
         (classes-attr :btn :btn-sm :btn-danger)
         "Delete Current Workspace"])])