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

Add accidentally dropped "recur" back

Browse source
This commit is contained in:
Nicholas Kariniemi 2014-08-08 23:01:09 +03:00
parent c90c5e41d2
commit 75496c1376
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -96,14 +96,15 @@
(a/sub <events :body-mousedown subscriber) (a/sub <events :body-mousedown subscriber)
(a/sub <events :body-scroll subscriber) (a/sub <events :body-scroll subscriber)
(go-loop [] (let [event (<! subscriber)] (go-loop [] (let [event (<! subscriber)]
(when-not (or (om/get-state owner :unmounted) (when-not (or (nil? event)
(nil? event)) (om/get-state owner :unmounted))
(when (and (= (:type event) :body-mousedown) (when (and (= (:type event) :body-mousedown)
(not (dom/click-on-self? (:event event) (not (dom/click-on-self? (:event event)
(om/get-node owner)))) (om/get-node owner))))
(transition-state owner :body-mousedown)) (transition-state owner :body-mousedown))
(when (= (:type event) :body-scroll) (when (= (:type event) :body-scroll)
(transition-state owner :scroll))))))) (transition-state owner :scroll))
(recur))))))
om/IWillUnmount om/IWillUnmount
(will-unmount [_] (will-unmount [_]
(let [<events (om/get-shared owner :<events) (let [<events (om/get-shared owner :<events)