SpindleyQ/hottub
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

add assoc-in-entity / update-in-entity

Browse source
This commit is contained in:
Jeremy Penner 2013-05-04 00:18:42 -04:00
parent 69c533ceec
commit b0bf0746c0
1 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/hottub/gs.clj
View file

@ -75,6 +75,12 @@
(defn update-entity [value] (defn update-entity [value]
(set-entity (::id value) value)) (set-entity (::id value) value))
(defn assoc-in-entity [id keys value]
(set-entity id (assoc-in (entity id) keys value)))
(defn update-in-entity [id keys fn]
(set-entity id (update-in (entity id) keys fn)))
(defn remove-entity [value] (defn remove-entity [value]
(set-entity (::id value) nil)) (set-entity (::id value) nil))