notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more logging

Browse Source
This commit is contained in:
Bryce Covert
2016-01-29 16:48:35 -08:00
parent 4937f3e29a
commit 11d7cb9150
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
desktop/src-common/advent/screens/inventory.clj
View File

@@ -3,6 +3,7 @@
[play-clj.ui :refer :all] [play-clj.ui :refer :all]
[play-clj.utils :refer :all] [play-clj.utils :refer :all]
[play-clj.g2d :refer :all] [play-clj.g2d :refer :all]
[clojure.tools.logging :as log]
[clojure.pprint] [clojure.pprint]
[advent.pathfind] [advent.pathfind]
[advent.zone :as zone] [advent.zone :as zone]
@@ -17,6 +18,7 @@
(defn close [screen entities] (defn close [screen entities]
(log/info "closing inventory")
(screen! @(resolve 'advent.screens.scene/scene) :on-reactivate) (screen! @(resolve 'advent.screens.scene/scene) :on-reactivate)
(-> entities (-> entities
(assoc-in [:tweens :fade-out] (tween/tween :fade-out screen [:opacity] 1.0 0.0 0.2 :ease tween/ease-out-cubic (assoc-in [:tweens :fade-out] (tween/tween :fade-out screen [:opacity] 1.0 0.0 0.2 :ease tween/ease-out-cubic
@@ -35,6 +37,8 @@
deref deref
first) first)
current-cursor (get-in room-entities [:cursor :current])] current-cursor (get-in room-entities [:cursor :current])]
(log/info "chose inventory item" highlighted-item)
(if highlighted-item (if highlighted-item
(if (= :main current-cursor) (if (= :main current-cursor)
(screen! @(resolve 'advent.screens.scene/scene) :on-chose-item :item highlighted-item) (screen! @(resolve 'advent.screens.scene/scene) :on-chose-item :item highlighted-item)
@@ -101,6 +105,7 @@
entities)) entities))
:show-screen (fn [{items :items :as screen} [entities]] :show-screen (fn [{items :items :as screen} [entities]]
(log/info "showing inventory")
(if (:shown? entities) (if (:shown? entities)
entities entities