dream improvements

This commit is contained in:
Bryce Covert
2015-11-14 09:27:12 -08:00
parent 85e9ed084a
commit 4f37232223
5 changed files with 45 additions and 21 deletions

View File

@@ -957,9 +957,14 @@ void main ()
(.end batch))))
(defn get-rendered [entities e]
(merge e
(when (#{:night :sunrise} (get-in entities [:state :time]))
(get-in entities [:time-profiles (:night-profile e :default)]))))
(as-> e e
(merge e
(when (#{:night :sunrise} (get-in entities [:state :time]))
(get-in entities [:time-profiles (:night-profile e :default)]))
)
(if (:offset-y e)
(assoc e :y (+ (:y e) (:offset-y e)))
e)))
(defn shift-range-to-bounds [x1 x2 min max]