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

Clear added grubs properly

Browse source
This commit is contained in:
Nicholas Kariniemi 2014-07-02 23:20:54 +03:00
parent 0bf23c9255
commit c23bab8964
1 changed files with 9 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/cljs/grub/view.cljs
View file

@ -88,14 +88,10 @@
:completed false}) :completed false})
(defn add-grub [add {:keys [new-grub]} owner] (defn add-grub [add {:keys [new-grub]} owner]
(logs "add-grub:" new-grub)
(when (not (empty? new-grub)) (when (not (empty? new-grub))
(let [new-grub-event (add-grub-event new-grub)] (let [new-grub-event (add-grub-event new-grub)]
(logs "put event:" new-grub-event) (om/set-state! owner :new-grub "")
(go (>! add new-grub-event)) (put! add (add-grub-event new-grub)))))
(om/set-state! owner :new-grub ""))
;(put! add (add-grub-event new-grub))
))
(defn enter-pressed? [event] (defn enter-pressed? [event]
(let [enter-keycode 13] (let [enter-keycode 13]
@ -106,8 +102,8 @@
(log "enter pressed:" (:new-grub state)) (log "enter pressed:" (:new-grub state))
(add-grub add state owner))) (add-grub add state owner)))
(defn handle-new-grub-change [e owner {:keys [new-grub]}] (defn handle-new-grub-change [event owner]
(om/set-state! owner :new-grub (.. e -target -value))) (om/set-state! owner :new-grub (.. event -target -value)))
(defn grubs-view [grubs owner] (defn grubs-view [grubs owner]
(reify (reify
@ -115,7 +111,7 @@
(init-state [_] (init-state [_]
{:new-grub ""}) {:new-grub ""})
om/IRenderState om/IRenderState
(render-state [this state] (render-state [this {:keys [new-grub] :as state}]
(let [add (:add (om/get-shared owner))] (let [add (:add (om/get-shared owner))]
(html (html
[:div [:div
@ -123,15 +119,15 @@
[:div.input-group.add-grub-input-form [:div.input-group.add-grub-input-form
[:span.input-group-btn [:span.input-group-btn
[:input.form-control#add-grub-input [:input.form-control#add-grub-input
{:ref :new-grub {:type "text"
:type "text"
:placeholder "2 grubs" :placeholder "2 grubs"
:value new-grub
:on-key-up #(add-grub-on-enter % add state owner) :on-key-up #(add-grub-on-enter % add state owner)
:on-change #(handle-new-grub-change % owner state)}]] :on-change #(handle-new-grub-change % owner)}]]
[:button.btn.btn-primary [:button.btn.btn-primary
{:id "add-grub-btn" {:id "add-grub-btn"
:type "button" :type "button"
:on-click #(add-grub (:add (om/get-shared owner)) (:new-grub state) owner)} :on-click #(add-grub (:add (om/get-shared owner)) new-grub owner)}
"Add"]] "Add"]]
[:ul#grub-list.list-group [:ul#grub-list.list-group
(for [grub (sort-grubs grubs)] (for [grub (sort-grubs grubs)]