 
 
 ;; -----------------------------------------
-;; DISPLAY
+;; PLUGGING THE BLOCKS
 ;; -----------------------------------------
 
 (defn get-suggestions
   []
-  (if (and (:help @app-state) (not (is-ai? @current-player)))
+  (if (and @help-toggled? (not (is-ai? @current-player)))
     (turn/get-moves-of @current-turn @current-player)
     {}))
 

(def current-turn (reaction (game/current-turn (:game @app-state))))
(def current-board (reaction (turn/get-board @current-turn)))
(def current-player (reaction (turn/get-player @current-turn)))


;; -----------------------------------------

(defn start-game-loop
  "Manage transitions between player moves, ai moves, and generic game events"
  []
  (let [is-human-xf (fn [_] (not (is-ai? @current-player)))
        player-events (chan 1 (filter is-human-xf))
        game-events (chan 1)]
    (go
      (while true
