   (draw-entities state)
   (draw-status-bar state))
 
+(defn handle-click [state]
+  (assoc state :mouse-clicked true))
+
+(defn handle-release [state]
+  (assoc state :mouse-clicked false))
+
 (q/defsketch mermaid-ldjam
   :host "mermaid-ldjam"
   :size [600 400]

  ; update-state is called on each iteration before draw-state.
  :update update-state
  :draw draw-state
  ; This sketch uses functional-mode middleware.
  ; Check quil wiki for more info about middlewares and particularly
  ; fun-mode.

     :flap {:x 60 :y (- (q/height) 20) :width 50 :height 20 :label "Flap"}}
   :current-status "Hello little mermaid."
   :last-clicked []
   :mouse-clicked false
   })

(defn unhide [state hidden-entity]
