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

    (reduce
     (fn [hmap [row col]]
       (let [color (get-in init-colors [row col])]
         (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
