39 lines
1.0 KiB
Clojure
39 lines
1.0 KiB
Clojure
(ns $PROJECT_NAME_HYPHENATED$.events
|
|
(:require
|
|
[re-frame.core :refer [reg-event-db ->interceptor]]
|
|
[clojure.spec :as s]
|
|
[$PROJECT_NAME_HYPHENATED$.db :as db :refer [app-db]]))
|
|
|
|
;; -- Interceptors ------------------------------------------------------------
|
|
;;
|
|
;; See https://github.com/Day8/re-frame/blob/master/docs/Interceptors.md
|
|
;;
|
|
(defn check-and-throw
|
|
"Throw an exception if db doesn't have a valid spec."
|
|
[spec db]
|
|
(when-not (s/valid? spec db)
|
|
(let [explain-data (s/explain-data spec db)]
|
|
(throw (ex-info (str "Spec check failed: " explain-data) explain-data)))))
|
|
|
|
(def validate-spec
|
|
(->interceptor
|
|
:id :validate-spec
|
|
:after (fn [context]
|
|
(if goog.DEBUG
|
|
(check-and-throw ::db/app-db (get-in context [:effects :db])))
|
|
context)))
|
|
|
|
;; -- Handlers --------------------------------------------------------------
|
|
|
|
(reg-event-db
|
|
:initialize-db
|
|
validate-spec
|
|
(fn [_ _]
|
|
app-db))
|
|
|
|
(reg-event-db
|
|
:set-greeting
|
|
validate-spec
|
|
(fn [db [_ value]]
|
|
(assoc db :greeting value)))
|