             (update-string-map piece-str to-pos)
             (move from-pos to-pos)
             (handle-deselection from-pos positions)))
-    (swap! text-state assoc
+    (swap! text-state
+           assoc
            :move-to {}
            :piece-str ""
            :text "")))

             state
             [:string-map (:turn state) (:piece-str @text-state)])]
    (swap! app-state (handle-deselection pos positions))
    (swap! text-state assoc
           :move-to {}
           :piece-str "")))


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

