mostly reorganized

2019-01-24 09:18:47 -08:00
parent e75ef6b884
commit 336d0779ff
3 changed files with 162 additions and 191 deletions
--- a/src/cljs/auto_ap/views/utils.cljs
+++ b/src/cljs/auto_ap/views/utils.cljs
@@ -8,7 +8,11 @@
            [cljs-time.format :as format]))

 (defn active-when= [active-page candidate]
-  (when (= active-page candidate) " active"))
+  (when (= active-page candidate) " is-active"))
+
+(defn active-when [active-page f & rest]
+
+  (when (apply f (into [active-page] rest)) " is-active"))

 (def login-url
  (let [client-id "264081895820-0nndcfo3pbtqf30sro82vgq5r27h8736.apps.googleusercontent.com"