michael/grub-fork
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fix: detect enter on other browsers than Chrome

Browse source
This commit is contained in:
Nicholas Kariniemi 2014-01-12 19:32:37 +02:00
parent 8da6438b79
commit bdf41c6964
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/cljs/grub/view/dom.cljs
View file

@ -15,6 +15,8 @@
(dommy/listen! el type push-fn) (dommy/listen! el type push-fn)
{:chan out :unlisten unlisten}))) {:chan out :unlisten unlisten})))
(def ENTER-KEYCODE 13)
(defn listen-once (defn listen-once
([el type] (listen el type nil)) ([el type] (listen el type nil))
([el type f] (listen el type f (chan))) ([el type f] (listen el type f (chan)))
@ -34,14 +36,14 @@
(listen elem :click)) (listen elem :click))
(defn get-enters [elem] (defn get-enters [elem]
(let [{c :chan unlisten :unlisten} (let [{c :chan unlisten :unlisten} (listen elem :keyup)
(listen elem :keyup)] filtered-chan (a/filter< #(= (.-which %) ENTER-KEYCODE) c)]
{:unlisten unlisten {:unlisten unlisten
:chan (a/filter< #(= (.-keyIdentifier %) "Enter") c)})) :chan filtered-chan}))
(defn get-ctrl-enters [] (defn get-ctrl-enters []
(let [{c :chan unlisten :unlisten} (listen (sel1 :body) :keyup) (let [{c :chan unlisten :unlisten} (listen (sel1 :body) :keyup)
filtered-chan (a/filter< #(and (= (.-keyIdentifier %) "Enter") filtered-chan (a/filter< #(and (= (.-which %) ENTER-KEYCODE)
(.-ctrlKey %)) (.-ctrlKey %))
c)] c)]
{:chan filtered-chan :unlisten unlisten})) {:chan filtered-chan :unlisten unlisten}))