diff options
Diffstat (limited to 'users/grfn/bbbg/src/bbbg/views/flash.clj')
| -rw-r--r-- | users/grfn/bbbg/src/bbbg/views/flash.clj | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/users/grfn/bbbg/src/bbbg/views/flash.clj b/users/grfn/bbbg/src/bbbg/views/flash.clj index 7fcebd645509..a44b21d4cb24 100644 --- a/users/grfn/bbbg/src/bbbg/views/flash.clj +++ b/users/grfn/bbbg/src/bbbg/views/flash.clj @@ -1,7 +1,7 @@ (ns bbbg.views.flash (:require [clojure.spec.alpha :as s])) -(s/def :flash/type #{:success :error :warning}) +(s/def :flash/type #{:success :error :warning :info}) (s/def :flash/message string?) (s/def ::flash (s/keys :req [:flash/type :flash/message])) (s/fdef add-flash :args (s/cat :resp map? :flash ::flash) :ret map?) @@ -31,3 +31,9 @@ [:li.flash-message {:class (str "flash-" (-> message :flash/type name))} (:flash/message message)])]))) + +(def test-flash + {:flash/messages + (for [type [:success :error :warning :info]] + {:flash/type type + :flash/message (str "Sample " type " message")})}) |