Lyssna på enter (kolla konsollen)

gistfile1.clj

;; Rendera en låda
;; ---------------
(defn command-box
  []
  [:input#commandbox {}]) ;; "commandbox" är IDt

(render-component [command-box] (get-element "body"))

;; Lyssna på events fran elementet
;; -------------------------------
(defn is-enter? [event]
  (= 13 (.-keyCode event))) ;; 13 är "enter"

(def command-element (get-element "commandbox")) ;; Skapa referens till lådan vi byggde ovan

(def commands-channel (listen command-element "keyup"))              ;; Lyssna på alla knapptryck i lådan
(def enter-only-channel (async/filter< is-enter? commands-channel)) ;; Filtrera bort alla knapptryckningar som inte är "enter"

(go
 (loop []
   (<! enter-only-channel)          ;; Kommer att returnera när ett värde kommer in på enter-only-channel
   (log (.-value command-element)) ;; Plockar ut innehållet ur inputlådan och skriver ut det i loggen
   (recur)))


;; PS. ".-" är en javascript-interop. Det plockar ut en parameter ur ett javascriptobjekt. 
;; Detta behövs då command-element och event (i is-enter?) är javascriptobjekt.