|
|
@ -6,8 +6,9 @@
|
|
6
|
6
|
(def query-field (js/document.querySelector "#query"))
|
|
7
|
7
|
(def query-result (js/document.querySelector "#query-type-check"))
|
|
8
|
8
|
|
|
9
|
|
(.addEventListener query-field "input"
|
|
10
|
|
(fn [e]
|
|
11
|
|
(let [content (.-value query-field)
|
|
12
|
|
check (t/friendly-check (read-string content) t/datomic-attr-type)]
|
|
13
|
|
(set! (.-textContent query-result) check))))
|
|
|
9
|
(defn main []
|
|
|
10
|
(.addEventListener query-field "input"
|
|
|
11
|
(fn [e]
|
|
|
12
|
(let [content (.-value query-field)
|
|
|
13
|
check (t/friendly-check (read-string content) t/datomic-attr-type)]
|
|
|
14
|
(set! (.-textContent query-result) check)))))
|