luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-20 09:31:11 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Reindent re-frame example code

Browse source
This commit is contained in:
Juho Teperi 2020-09-23 13:14:01 +03:00
parent dea8894610
commit 0c85b3d54b
1 changed files with 25 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
examples/frontend-re-frame/src/cljs/frontend_re_frame/core.cljs
View file

@ -9,21 +9,17 @@
;;; Events ;;;
(re-frame/reg-event-db
::initialize-db
(re-frame/reg-event-db ::initialize-db
(fn [db _]
(if db
db
{:current-route nil})))
(re-frame/reg-event-fx
::navigate
(re-frame/reg-event-fx ::navigate
(fn [db [_ & route]]
;; See `navigate` effect in routes.cljs
{::navigate! route}))
(re-frame/reg-event-db
::navigated
(re-frame/reg-event-db ::navigated
(fn [db [_ new-match]]
(let [old-match (:current-route db)
controllers (rfc/apply-controllers (:controllers old-match) new-match)]
@ -31,8 +27,7 @@
;;; Subscriptions ;;;
(re-frame/reg-sub
::current-route
(re-frame/reg-sub ::current-route
(fn [db]
(:current-route db)))
@ -57,8 +52,8 @@
;;; Effects ;;;
;; Triggering navigation from events.
(re-frame/reg-fx
::navigate!
(re-frame/reg-fx ::navigate!
(fn [route]
(apply rfe/push-state route)))