diff --git a/src/cljs/ulysses/components/layout.cljs b/src/cljs/ulysses/components/layout.cljs
index bcf47b2..e1ff24b 100644
--- 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
index 61251f2..339e1e1 100644
--- 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
index 7f665fc..104739e 100644
--- 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"])])