From b37196621cbe02ad6b5c62747410061105168638 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Mon, 11 Apr 2016 23:39:55 +0300
Subject: [PATCH] Add info message type.

---
 src/uxbox/ui/messages.cljs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/src/uxbox/ui/messages.cljs b/src/uxbox/ui/messages.cljs
index 98a59781a..220cecd77 100644
--- a/src/uxbox/ui/messages.cljs
+++ b/src/uxbox/ui/messages.cljs
@@ -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)}