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

Start to simplify todomvc

Browse Source
This commit is contained in:
mike-thompson-day8 2015-03-06 18:10:18 +11:00
parent 13840ed9a1
commit 9bb1b4e459
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
examples/todomvc/src/todomvc/handlers.cljs
View File

@ -10,12 +10,13 @@
;; -- Middleware -------------------------------------------------------------- ;; -- Middleware --------------------------------------------------------------
;; ;;
;; checks that the structure in app-db matches the schema ;; checks that the structure in app-db matches the schema
(def check-schema (after valid-schema?)) (def schema-ok? (after valid-schema?))
;; store todos in local storage
(def write-ls-todos (after #(set-local-storage! :todos %))) (def write-ls-todos (after #(set-local-storage! :todos %)))
;; middleware for any handler which manipulates todos. ;; middleware for a handler which manipulates todos.
(def todo-middleware [check-schema (path [:todos]) write-ls-todos debug trim-v]) (def todo-middleware [schema-ok? (path :todos) write-ls-todos debug trim-v])
;; -- Helpers ----------------------------------------------------------------- ;; -- Helpers -----------------------------------------------------------------
@ -39,7 +40,7 @@
(register-handler ;; handlers changes the footer filter (register-handler ;; handlers changes the footer filter
:set-showing ;; event-id :set-showing ;; event-id
[(path [:showing]) #_write-ls check-schema debug trim-v] ;; middleware (wraps the handler) [(path :showing) check-schema debug trim-v] ;; middleware (wraps the handler)
(fn ;; handler (fn ;; handler
[db [filter-kw]] [db [filter-kw]]
filter-kw)) filter-kw))