Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-13 10:38:13 -05:00
Code Issues Activity

Add info message type.

Browse source
This commit is contained in:
Andrey Antukh 2016-04-11 23:39:55 +03:00
parent f81975aa6c
commit b37196621c
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/uxbox/ui/messages.cljs
View file

@ -54,6 +54,20 @@
:tsem tsem
:content message}))))
(defn info
([message] (info message nil))
([message {:keys [timeout] :or {timeout 6000}}]
(when-let [prev @+message+]
(clean-prev-msgstate! prev))
(let [timeout' (+ timeout +animation-timeout+)
tsem-main (set-timeout! timeout' #(reset! +message+ nil))
tsem (set-timeout! timeout #(swap! +message+ assoc :state :hide))]
(reset! +message+ {:type :notification/info
:state :normal
:tsem-main tsem-main
:tsem tsem
:content message}))))
(defn dialog
[& {:keys [message on-accept on-cancel]
:or {on-cancel (constantly nil)}