 
 (deref app-state)
 
-(swap! app-state update-in [:tools] assoc :width 3)
+(swap! app-state update-in [:tools] assoc :lineWidth 3)
 
 )

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

(defprotocol Drawable

    (.restore context)))

(defn new-line-action []
  (->LineAction [] (merge {:lineCap "round"
                           :lineJoin "round"} (:tools @app-state))))
(def line-tool
  (reify
    ITool
