starting to break out into separate folders.

src/cljs/auto_ap/views/utils.cljs

@@ -1,4 +1,5 @@
-(ns auto-ap.views.utils)
+(ns auto-ap.views.utils
+  (:require [re-frame.core :as re-frame]))
 
 (defn active-when= [active-page candidate]
   (when (= active-page candidate) " active"))
@@ -7,3 +8,7 @@
   (let [client-id "264081895820-0nndcfo3pbtqf30sro82vgq5r27h8736.apps.googleusercontent.com"
         redirect-uri (js/encodeURI (str (.-origin (.-location js/window)) "/api/oauth"))]
     (str "https://accounts.google.com/o/oauth2/auth?access_type=online&client_id=" client-id "&redirect_uri=" redirect-uri "&response_type=code&scope=https%3A%2F%2Fwww.googleapis.com%2Fauth%2Fuserinfo.email+https%3A%2F%2Fwww.googleapis.com%2Fauth%2Fuserinfo.profile")))
+
+(defn dispatch-value-change [event]
+  (fn [e]
+    (re-frame/dispatch (conj event (.. e -target -value)))))