Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-23 23:18:48 -05:00
Code Issues Activity

Add the ability to actions subsystem pass payload.

Browse source 
Signed-off-by: Andrey Antukh <niwi@niwi.nz>
This commit is contained in:
Andrey Antukh 2016-02-29 17:17:33 +02:00
parent 70d126acb5
commit 5d5a0c9ea0
1 changed files with 14 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/uxbox/ui/core.cljs
View file

@ -8,14 +8,22 @@
(defonce actions-lock (atom :nothing))
(defonce actions-s (rx/bus))
;; TODO: implement that as multimethod for add specific validation
;; layer for different kind of action payloads
(defn acquire-action!
[type]
(when-let [result (compare-and-set! actions-lock :nothing type)]
;; (println "acquire-action!" type)
(rx/push! actions-s type)))
([type]
(acquire-action! type nil))
([type payload]
(when-let [result (compare-and-set! actions-lock :nothing type)]
(rx/push! actions-s {:type type :payload payload}))))
(defn release-action!
[type]
(when-let [result (compare-and-set! actions-lock type :nothing)]
;; (println "release-action!" type)
(rx/push! actions-s :nothing)))
(rx/push! actions-s {:type :nothing})))
(defn release-all-actions!
[]
(reset! actions-lock :nothing)
(rx/push! actions-s {:type :nothing}))