From 331f74fa4d0e3245aa1368a213feb15916a78205 Mon Sep 17 00:00:00 2001 From: Nicholas Kariniemi Date: Mon, 30 Sep 2013 11:55:11 +0300 Subject: [PATCH] Allow CTRL-Enter to save recipes --- src/cljs/grub/view.cljs | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/cljs/grub/view.cljs b/src/cljs/grub/view.cljs index 4f3aa4f..c0e4bdb 100644 --- a/src/cljs/grub/view.cljs +++ b/src/cljs/grub/view.cljs @@ -51,6 +51,10 @@ (->> (:chan (dom/listen (sel1 :body) :keyup)) (a/filter< #(= (.-keyIdentifier %) "Enter")))) +(defn get-ctrl-enters [] + (->> (:chan (dom/listen (sel1 :body) :keyup)) + (a/filter< #(and (= (.-keyIdentifier %) "Enter") (.-ctrlKey %))))) + (defn get-new-recipe-clicks [] (:chan (dom/listen dom/new-recipe :click))) @@ -225,6 +229,9 @@ (transition state :default) state)) +(defmethod handle-event [:new-recipe :ctrl-enter] [state event] + (transition state :default)) + (defmethod enter-state :edit-recipe [old-state new-state-name [elem]] (dom/-expand! elem) @@ -280,6 +287,7 @@ :body-click (get-body-clicks) :edit (chan) :enter (get-enters) + :ctrl-enter (get-ctrl-enters) :new-recipe-click (get-new-recipe-clicks) :edit-recipe-click (get-edit-recipe-clicks) :recipe-done-btn-click (get-recipe-done-btn-clicks)})