scaffold workspace-save button/handler

src/cljs/ulysses/handlers.cljs

@@ -186,6 +186,12 @@
 
 ;; workspace management ----
 
+(register-handler
+  :workspace-save
+  (fn [db _]
+    ; TODO
+    db))
+
 ;; NOTE most of the code in this section interfaces with
 ;; db :workspaces -- eventually, all five handlers
 ;; should really just be plain http requests so that

src/cljs/ulysses/pages/builder.cljs

@@ -174,24 +174,34 @@
                 [text-input
                   :placeholder "Name"
                   :value new-name]]}]))
-        (classes-attr :btn :btn-sm :btn-default)
+        (classes-attr :btn :btn-sm :btn-info)
         "Rename"])))
 
+(defn workspace-save []
+  [hink
+    (partial dispatch [:workspace-save])
+    (classes-attr :btn :btn-sm :btn-primary)
+    "Save"])
+
+(defn workspace-delete [workspace-current]
+  [hink
+    (fn []
+      (dispatch
+        [:modal
+          {:title [:span "Delete Workspace " [:i (:name workspace-current)]]
+           :action-label "Delete"
+           :action-brand :danger
+           :on-action #(dispatch [:workspace-delete])
+           :children "Are you sure you want to delete this workspace?"}]))
+    (classes-attr :btn :btn-sm :btn-danger)
+    "Delete"])
+
 (defn workspace-footer [workspace-current]
   (when workspace-current
     [:div.workspace-footer
       [workspace-rename workspace-current]
-      [hink
-        (fn []
-          (dispatch
-            [:modal
-              {:title [:span "Delete Workspace " [:i (:name workspace-current)]]
-               :action-label "Delete"
-               :action-brand :danger
-               :on-action #(dispatch [:workspace-delete])
-               :children "Are you sure you want to delete this workspace?"}]))
-        (classes-attr :btn :btn-sm :btn-danger)
-        "Delete"]]))
+      [workspace-delete workspace-current]
+      [workspace-save]]))
 
 (defn pool-row [fam]
   (let [{:keys [faculty fundingCoverageScore]} fam