mirror of
https://github.com/metosin/reitit.git
synced 2025-12-22 02:21:11 +00:00
20 lines
428 B
Clojure
20 lines
428 B
Clojure
(ns frontend-re-frame.events
|
|
(:require
|
|
[re-frame.core :as re-frame]
|
|
[frontend-re-frame.db :as db]))
|
|
|
|
(re-frame/reg-event-db
|
|
::initialize-db
|
|
(fn [_ _]
|
|
db/default-db))
|
|
|
|
(re-frame/reg-event-fx
|
|
::navigate
|
|
(fn [db [_ route]]
|
|
;; See `navigate` effect in routes.cljs
|
|
{:frontend-re-frame.routes/navigate route}))
|
|
|
|
(re-frame/reg-event-db
|
|
::navigated
|
|
(fn [db [_ new-match]]
|
|
(assoc db :current-route new-match)))
|