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

Reorder some example code

Browse source
This commit is contained in:
Juho Teperi 2021-11-03 12:16:42 +02:00
parent 143bf06290
commit 9f798c63c9
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -7,6 +7,14 @@
[reitit.frontend.controllers :as rfc] [reitit.frontend.controllers :as rfc]
[reitit.frontend.easy :as rfe])) [reitit.frontend.easy :as rfe]))
;;; Effects ;;;
;; Triggering navigation from events.
(re-frame/reg-fx :push-state
(fn [route]
(apply rfe/push-state route)))
;;; Events ;;; ;;; Events ;;;
(re-frame/reg-event-db ::initialize-db (re-frame/reg-event-db ::initialize-db
@ -16,7 +24,7 @@
{:current-route nil}))) {:current-route nil})))
(re-frame/reg-event-fx ::push-state (re-frame/reg-event-fx ::push-state
(fn [db [_ & route]] (fn [_ [_ & route]]
{:push-state route})) {:push-state route}))
(re-frame/reg-event-db ::navigated (re-frame/reg-event-db ::navigated
@ -49,14 +57,6 @@
[:div [:div
[:h1 "This is sub-page 2"]]) [:h1 "This is sub-page 2"]])
;;; Effects ;;;
;; Triggering navigation from events.
(re-frame/reg-fx :push-state
(fn [route]
(apply rfe/push-state route)))
;;; Routes ;;; ;;; Routes ;;;
(defn href (defn href