   (dissoc app-state :current-field))
 
 (defn match-answer
-  "Mark if the last question was correctly answered or not." 
+  "Mark if the last question was correctly answered or not."
   [matches? app-state]
   (assoc app-state :verdict matches?))
 

                                                restart-timer
                                                (fn [app-state] (assoc app-state :current-field id))))
                :missed (do (test-winner on-turn id)
                            (swap! app-state (comp toggle-player 
                                                   deselect-current-field)))
                nil))))


        (alts! [keypresses (timeout verdict-display-time)])
        (close! keypresses)
        (swap! app-state (comp restart-timer toggle-player clear-hint clear-answer
                               deselect-current-field unmatch-answer)))))

(defn make-a-guess
  []
