              state
              [:string-map (:turn state) (:piece-str @text-state)])]
     (swap! app-state (handle-deselection pos positions))
-    (swap! text-state assoc
+    (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)))


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