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

Remove unused delete grub code

Browse source
This commit is contained in:
Nicholas Kariniemi 2013-08-31 10:40:14 +03:00
parent f000807c10
commit f8abd291ef
1 changed files with 0 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -89,21 +89,11 @@
event-type (if completed :uncomplete :complete)]
{:_id id :event event-type}))
(defn get-deleted-events []
(let [click-events (chan)]
(dommy/listen! [(sel1 :#grub-list) ".close"]
:click
#(go (>! click-events %)))
(let [ids (map-chan #(.-id (.-parentNode (.-parentNode (.-target %)))) click-events)
grub-events (map-chan (fn [id] {:event :delete :_id id}) ids)]
grub-events)))
(defn get-clear-all-events []
(let [events (chan)]
(dommy/listen! (sel1 :#clear-all-btn) :click #(go (>! events {:event :clear-all})))
events))
(defn render-grub-list [grubs]
(let [grub-list (sel1 :#grub-list)
sorted-grubs (sort-by (juxt :completed :_id) grubs)]
@ -115,7 +105,6 @@
(defn push-outgoing-events []
(fan-in outgoing-events [(get-added-events)
(get-deleted-events)
(get-clear-all-events)]))
(defn watch-for-state-changes []