3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-07 14:38:33 +02:00
Code Issues Projects Releases Packages Wiki Activity

Minor changes on router.

Browse source
This commit is contained in:
Andrey Antukh 2016-02-21 20:30:59 +02:00
parent fd6395fcd4
commit 411e6e4cff
1 changed files with 1 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/uxbox/router.cljs
View file

@ -6,7 +6,7 @@
(enable-console-print!) (enable-console-print!)
(declare +router+) (def +router+ nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Events ;; Events
@ -15,12 +15,6 @@
(defn update-location (defn update-location
[{:keys [handler route-params] :as params}] [{:keys [handler route-params] :as params}]
(reify (reify
IPrintWithWriter
(-pr-writer [mv writer x]
(-write writer "#<event:router/update-location ")
(-pr-writer params writer x)
(-write writer ">"))
rs/UpdateEvent rs/UpdateEvent
(-apply-update [_ state] (-apply-update [_ state]
(merge state (merge state
@ -33,10 +27,6 @@
([name params] ([name params]
{:pre [(keyword? name)]} {:pre [(keyword? name)]}
(reify (reify
IPrintWithWriter
(-pr-writer [mv writer _]
(-write writer "#<event:router/navigate>"))
rs/EffectEvent rs/EffectEvent
(-apply-effect [_ state] (-apply-effect [_ state]
(let [loc (merge {:handler name} (let [loc (merge {:handler name}
@ -61,8 +51,6 @@
["colors" :dashboard/colors]]] ["colors" :dashboard/colors]]]
["workspace/" [[page-route :workspace/page]]]]]) ["workspace/" [[page-route :workspace/page]]]]])
(def ^:static ^:private +router+ nil)
(defn init (defn init
[] []
(let [opts {:on-navigate #(rs/emit! (update-location %)) (let [opts {:on-navigate #(rs/emit! (update-location %))