     (reduce
      (fn [hmap [row col]]
        (let [color (get-in init-colors [row col])]
-         (update-in hmap [:board row col] assoc :color color :text "")))
+         (update-in hmap
+                    [:board row col]
+                    assoc :color color :text "")))
      state
      positions)))
 

          positions (vals (:move-to @text-state))]
      (swap! text-state assoc :text str)
      (cond
        (move-command? @text-state) (handle-move state text-state positions)
        piece-pos (select-piece state text-state piece-pos str)
        (deselected? state @text-state str) (deselect-piece
                                             state
                                             text-state

         assoc
         :move-to (zipmap
                   default-keybindings
                   (vec
                    (possible-placements pos turn)))
         :piece-str str)
  (swap! app-state (handle-selection pos turn)))

