     (fn [state]
       [:input {:type "text"
                :value @value
-               :on-change (fn [e]
-                            (let [c (-> e .-target .-value)]
-                              (reset! value c)))}])))
+               :on-change (handle-text-input state value)}])))
 
 (defn cell-view
   [state]

                        (let [val (js/parseInt (.-target.value e))]
                          (swap! app-state assoc :width val :height val)))}])

(defn input-view
  "input of commands through strings"
  []

#_(swap! app-state assoc :height 500)
#_(swap! app-state assoc-in [:board 7 4 :color] "#4286f4")
#_(reset! app-state init-state)
#_(swap! app-state assoc :turn :black)

(defn board-style
  [data]
