status-im/re-frame
2
0
Fork 0
mirror of https://github.com/status-im/re-frame.git synced 2025-02-23 07:18:22 +00:00
Code Issues Projects Releases Wiki Activity

add prismatic schema def WIP

Browse Source
This commit is contained in:
hipitihop 2015-03-04 12:04:10 +10:00
parent ecead71638
commit 1eadd5ea0d
2 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/todomvc/project.clj
View File

@ -3,7 +3,8 @@
[org.clojure/clojurescript "0.0-2816"] [org.clojure/clojurescript "0.0-2816"]
[reagent "0.5.0-alpha3"] [reagent "0.5.0-alpha3"]
[figwheel "0.2.3-SNAPSHOT"] [figwheel "0.2.3-SNAPSHOT"]
[re-frame "0.2.0"]] [re-frame "0.2.0"]
[prismatic/schema "0.3.7"]]
:plugins [[lein-cljsbuild "1.0.4"] :plugins [[lein-cljsbuild "1.0.4"]
[lein-figwheel "0.2.3-SNAPSHOT"]] [lein-figwheel "0.2.3-SNAPSHOT"]]

19
examples/todomvc/src/todomvc/db.cljs
View File

@ -1,7 +1,24 @@
(ns todomvc.db) (ns todomvc.db
(:require
[schema.core :as s :include-macros true]))
(def default-initial-state (def default-initial-state
{:todos (sorted-map) ;; todo ids are the keys (for sort) {:todos (sorted-map) ;; todo ids are the keys (for sort)
:showing :all ;; one of :all :done or :active :showing :all ;; one of :all :done or :active
}) })
(def schema
{:todos (s/both (s/pred map?) (s/pred sorted?))
:showing (s/enum :all :done :active)
})
(defn valid-schema?
[db]
(s/validate schema db))