status-im
/
reagent
mirror of https://github.com/status-im/reagent.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Wip

This commit is contained in:
Dan Holmsand 2015-09-09 17:39:18 +02:00
parent 440956c9a9
commit 679d75bf5d
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
demo/sitetools/core.cljs
View File

@ -48,26 +48,25 @@
(defonce history nil) (defonce history nil)
(defn demo-handler [state [id v1 v2 :as event]] (defn demo-handler [state [id x y :as event]]
(case id (case id
:set-content (let [title (if v2 :set-content (let [title (if y
(str (:title-prefix state) v2) (str (:title-prefix state) y)
(str (:default-title state)))] (str (:default-title state)))]
(assert (vector? v1)) (assert (vector? x))
(when r/is-client (when r/is-client
(set! js/document.title title)) (set! js/document.title title))
(assoc state :main-content v1 :title title)) (assoc state :main-content x :title title))
:set-page (do (assert (string? v1)) :set-page (do (assert (string? x))
(secretary/dispatch! v1) (secretary/dispatch! x)
(assoc state :page-name v1)) (assoc state :page-name x))
:goto-page (do :goto-page (do
(assert (string? v1)) (assert (string? x))
(if history (if history
(do (.setToken history v1) (do (.setToken history x)
(r/next-tick #(set! js/document.body.scrollTop 0)) (r/next-tick #(set! js/document.body.scrollTop 0))
state) state)
(recur state [:set-page v1]))) (recur state [:set-page x])))))
state))
(defn dispatch [event] (defn dispatch [event]
;; (dbg event) ;; (dbg event)