swarmpit/swarmpit
1
1
Fork 0
mirror of https://github.com/swarmpit/swarmpit.git synced 2025-09-07 22:34:22 +08:00
Code Issues Projects Releases Packages Wiki Activity

fix ui controller dispatch

Browse source
This commit is contained in:
Pavol Noha 2017-03-06 13:24:17 +01:00
parent 0a10fa52e3
commit 6b96b260cb
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/cljs/swarmpit/controller.cljs
View file

@ -18,11 +18,12 @@
[]
(let [router (br/start-router! handler
{:on-navigate
(fn [loc] (do (dispatch loc)
(reset! location loc)))})
(fn [loc]
(dispatch loc)
(reset! location loc))})
route (:handler @location)]
(if (some? route)
(br/set-location! router {:handler route}))))
(br/set-location! router @location))))
(defmethod dispatch :index
[_]
@ -30,18 +31,21 @@
(defmethod dispatch :service-list
[_]
(print "list")
(GET "/services"
{:handler (fn [response]
(slist/mount! response))}))
(defmethod dispatch :service-info
[{:keys [route-params]}]
(print "info")
(GET (str "/services/" (:id route-params))
{:handler (fn [response]
(sinfo/mount! response))}))
(defmethod dispatch :service-create
[_]
(print "create")
(screate/mount!))
(defmethod dispatch nil