minor fixes.

This commit is contained in:
2014-10-03 18:41:34 -07:00
parent f2d915a3f0
commit d672c7ab39
2 changed files with 4 additions and 3 deletions

View File

@@ -77,8 +77,9 @@
:on-touch-down (fn [screen [entities]]
(when (:shown? entities)
(run! @(resolve 'advent.screens.scene/scene) :on-reactivate)
(when-let [{:keys [highlighted-item]} entities]
(run! @(resolve 'advent.screens.scene/scene) :on-chose-item :item highlighted-item))
(let [{:keys [highlighted-item]} entities]
(when highlighted-item
(run! @(resolve 'advent.screens.scene/scene) :on-chose-item :item highlighted-item)))
(-> entities
(assoc :shown? false)
(assoc :start-showing? false))))