blob: fb60e98a826d248401f37a34c799bb39741a0f43 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
(ns org-ckons-cljs.notifications.core
(:require-macros [hiccups.core :as hiccups :refer [html]])
(:require [hiccups.runtime :as hiccupsrt]
[dommy.core :as dommy]))
(declare template-message)
(declare template-errormsg)
(declare message-div-or-nil)
(declare errormsg-div-or-nil)
(declare maybe-message)
(declare maybe-error)
(hiccups/defhtml template-message [message]
[:div {:class "alert alert-success"} message])
(hiccups/defhtml template-error [errormsg]
[:div {:class "alert alert-danger"} errormsg])
(defn message-div-or-nil []
(when (not (empty? (dommy/html (dommy/sel1 :#message))))
(dommy/html (dommy/sel1 :#message))))
(defn errormsg-div-or-nil []
(when (not (empty? (dommy/html (dommy/sel1 :#errormsg))))
(dommy/html (dommy/sel1 :#errormsg))))
;; loc-p | msg | msg-div || output
;; -------------------------------------
;; f | f | f || nil
;; f | f | t || msg-div
;; f | t | - || msg
;; t | f | - || nil
;; t | t | - || msg
;;
(defn maybe-message [jsonobj]
(let [location-p (get jsonobj "locationP")
message (get jsonobj "message")
message-div (dommy/html (dommy/sel1 :#message))]
(dommy/set-html! (dommy/sel1 :#message)
(cond (or (and location-p
message)
(and (not location-p)
message))
(template-message message)
(and (not location-p)
(not message)
(message-div-or-nil))
(message-div-or-nil)
:else
""))
(dommy/set-style! (dommy/sel1 :#message)
:display (cond (empty? (dommy/html (dommy/sel1 :#message)))
"none"
:else
"block"))))
;; loc-p | err | err-div || output
;; -------------------------------------
;; f | f | f || nil
;; f | f | t || err-div
;; f | t | - || err
;; t | f | - || nil
;; t | t | - || err
;;
(defn maybe-error [jsonobj]
(let [location-p (get jsonobj "locationP")
errormsg (get jsonobj "errormsg")
errormsg-div (dommy/html (dommy/sel1 :#errormsg))]
(dommy/set-html! (dommy/sel1 :#errormsg)
(cond (or (and location-p
errormsg)
(and (not location-p)
errormsg))
(template-error errormsg)
(and (not location-p)
(not errormsg)
(errormsg-div-or-nil))
(errormsg-div-or-nil)
:else
""))
(dommy/set-style! (dommy/sel1 :#errormsg)
:display (cond (empty? (dommy/html (dommy/sel1 :#errormsg)))
"none"
:else
"block"))))
|
