 (def app-state
   (atom {:canvas {:dimensions {:width 800 :height 400}
                   :actions []}
-         :tools {:width 4}}))
+         :tools {:width 4
+                 :strokeStyle "#000000" }}))
 
 (defprotocol Drawable
   (-draw [this context]))

    (.restore context)))

(defn new-line-action []
  (->LineAction [] {:strokeStyle "#000000"
                    :lineCap "round"
                    :lineJoin "round"
                    :lineWidth (get-in @app-state [:tools :width])}))

                                         (om/update! tools [:width] newval)))}
                      (map (fn [i]
                             (dom/option #js {:value i} i))
                           (range 1 11)))
               (dom/input #js {:type "text"
                               :value (:strokeStyle tools)
                               :onChange (fn [e]
                                           (om/update! tools [:strokeStyle] (.-value (.-currentTarget e))))})))))

(defn app-component [app owner]
  (reify
