From 1fadae11d7d7786849e91e69e9f445571e5b7332 Mon Sep 17 00:00:00 2001
From: Andrew Suzuki <andrew.b.suzuki@gmail.com>
Date: Mon, 6 Jun 2016 15:04:54 -0400
Subject: [PATCH] scaffold workspace-save button/handler

---
 src/cljs/ulysses/handlers.cljs      |  6 +++++
 src/cljs/ulysses/pages/builder.cljs | 34 +++++++++++++++++++----------
 2 files changed, 28 insertions(+), 12 deletions(-)

diff --git a/src/cljs/ulysses/handlers.cljs b/src/cljs/ulysses/handlers.cljs
index b2a820b..1a6ca00 100644
--- a/src/cljs/ulysses/handlers.cljs
+++ b/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
diff --git a/src/cljs/ulysses/pages/builder.cljs b/src/cljs/ulysses/pages/builder.cljs
index 29ebd2c..557ed7f 100644
--- a/src/cljs/ulysses/pages/builder.cljs
+++ b/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