From 200c4075b300d1188f8e55b4b6072d85a1a967d1 Mon Sep 17 00:00:00 2001
From: Andrew Suzuki <andrew.b.suzuki@gmail.com>
Date: Fri, 10 Jun 2016 13:04:22 -0400
Subject: [PATCH] save/validate/receive filter state in workspaces; json->clj
 util

---
 resources/public/index.html    |  1 -
 src/cljs/ulysses/handlers.cljs | 26 ++++++++++++++++++--------
 src/cljs/ulysses/utils.cljs    | 26 ++++++++++++++++++++++++++
 3 files changed, 44 insertions(+), 9 deletions(-)

diff --git a/resources/public/index.html b/resources/public/index.html
index 71ee227..f0eaad9 100644
--- a/resources/public/index.html
+++ b/resources/public/index.html
@@ -13,7 +13,6 @@
 
     <!-- Google Analytics -->
     <script>
-        console.log(ulysses.config.google_analytics_code_real);
         window.ga=window.ga||function(){(ga.q=ga.q||[]).push(arguments)};ga.l=+new Date;
         ga('create', ulysses.config.google_analytics_code_real, 'auto');
         ga('require', 'autotrack');
diff --git a/src/cljs/ulysses/handlers.cljs b/src/cljs/ulysses/handlers.cljs
index bc6de33..70b034f 100644
--- a/src/cljs/ulysses/handlers.cljs
+++ b/src/cljs/ulysses/handlers.cljs
@@ -14,6 +14,7 @@
                                    parse-int-id
                                    str->int
                                    clj->json
+                                   json->clj
                                    to-id-map
                                    find-by-id
                                    remove-by-id
@@ -235,7 +236,9 @@
     (dispatch [:workspace-faculty-request])
     (if workspace-id-maybe
       (if-let [target (find-by-id workspace-id-maybe (:workspaces db))]
-        (assoc db :builder-workspace target)
+        (-> db
+            (assoc :builder-workspace target)
+            (assoc :builder-filters (:filters target)))
         ; TODO get default workspace
         db)
       ; TODO get default workspace
@@ -250,14 +253,20 @@
                                 :grant-op-id :user-id
                                 :updated-at :created-at
                                 :faculties])
+                  (update :filters
+                    (fn [jstr]
+                      (json->clj jstr :keywords)))
                   (update :faculties
                     (fn [faculties]
-                      (map :id faculties))))]
-      (when-not dont-switch?
-        (dispatch [:workspace-switch (:id wbb)]))
-      (update db :workspaces
-        (fn [ws]
-          (merge-by-id ws [wbb]))))))
+                      (map :id faculties))))
+          valid-filters? (-> wbb :filters validate-builder-filters)]
+      (if-not valid-filters? db
+        (do
+          (when-not dont-switch?
+            (dispatch [:workspace-switch (:id wbb)]))
+          (update db :workspaces
+            (fn [ws]
+              (merge-by-id ws [wbb]))))))))
 
 (register-handler
   :workspace-save
@@ -266,7 +275,8 @@
       (request db
         [:workspace (:id current)]
         :method :put
-        :params {:faculties (clj->json (or (:faculties current) []))}
+        :params {:faculties (clj->json (or (:faculties current) []))
+                 :filters (clj->json (:builder-filters db))}
         :handler #(dispatch [:workspace-receive %]))
       db)))
 
diff --git a/src/cljs/ulysses/utils.cljs b/src/cljs/ulysses/utils.cljs
index 3c85ebc..11c98b8 100644
--- a/src/cljs/ulysses/utils.cljs
+++ b/src/cljs/ulysses/utils.cljs
@@ -79,6 +79,14 @@
   [a]
   (.stringify js/JSON (clj->js a)))
 
+(defn json->clj
+  "json string to clojure data. include :keywords to keywordize keys"
+  [s & args]
+  (-> (.parse js/JSON s)
+      (js->clj)
+      ((if (some #{:keywords} args)
+         keywordize-keys identity))))
+
 (defn url-encode-component
   "urlencode"
   [s]
@@ -328,6 +336,24 @@
   [response]
   (-> response :user :netid string/blank? not))
 
+(defn validate-builder-filters
+  [{:keys [faculty-title-set faculty-years-uconn metrics :as filters]}]
+  (and
+    ; general
+    (map? filters)
+    (= (-> filters keys set) #{:faculty-title-set :faculty-years-uconn :metrics})
+    ; faculty title set
+    (set? faculty-title-set)
+    (every? string? faculty-title-set)
+    ; faculty years uconn
+    (integer? faculty-years-uconn)
+    ; metrics
+    (map? metrics)
+    (= (-> metrics keys set)
+       #{:publicationCount :grantCount :grantFunds
+         :recentGrantCount :recentGrantFunds})
+    (every? (every-pred integer? (partial <= 0) (partial >= 100)) (vals metrics))))
+
 ;; ----------------------------------------------------------------------------
 ;; data transforms
 ;; ----------------------------------------------------------------------------