luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-21 01:51: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 ;;; ;;; Events ;;;
(re-frame/reg-event-db (re-frame/reg-event-db ::initialize-db
::initialize-db
(fn [db _] (fn [db _]
(if db (if db
db db
{:current-route nil}))) {:current-route nil})))
(re-frame/reg-event-fx (re-frame/reg-event-fx ::navigate
::navigate
(fn [db [_ & route]] (fn [db [_ & route]]
;; See `navigate` effect in routes.cljs
{::navigate! route})) {::navigate! route}))
(re-frame/reg-event-db (re-frame/reg-event-db ::navigated
::navigated
(fn [db [_ new-match]] (fn [db [_ new-match]]
(let [old-match (:current-route db) (let [old-match (:current-route db)
controllers (rfc/apply-controllers (:controllers old-match) new-match)] controllers (rfc/apply-controllers (:controllers old-match) new-match)]
@ -31,8 +27,7 @@
;;; Subscriptions ;;; ;;; Subscriptions ;;;
(re-frame/reg-sub (re-frame/reg-sub ::current-route
::current-route
(fn [db] (fn [db]
(:current-route db))) (:current-route db)))
@ -57,8 +52,8 @@
;;; Effects ;;; ;;; Effects ;;;
;; Triggering navigation from events. ;; Triggering navigation from events.
(re-frame/reg-fx
::navigate! (re-frame/reg-fx ::navigate!
(fn [route] (fn [route]
(apply rfe/push-state route))) (apply rfe/push-state route)))