 
 
 ;; -----------------------------------------------------------------------------
-;; App Div
+;; App Div / Canvas
 
 (defn app-div [] (poly/get-element :app))
+
+(defn app-canvas [] (poly/get-element :app-canvas))
 
 
 ;; -----------------------------------------------------------------------------

  (swap! state assoc-in [:env :frames-per-second] fps)
  (get-in @state [:app :measure-fps?]))

(defn on-env-keyboard-key [m]
  (console/info (:poly/keyword m))
  ;(inspect m)
  (condp = (:poly/keyword m)
    :a :>> #(klang/hide!)
    :q :>> #(klang/show!)
    nil))

(defn on-env-mouse-move [m]

          :mouse-move nil
          :time nil
          }
    :gui {:cells nil
          :frame 0
          :generation 0
          }}))


