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


(def app-state
  (atom {:canvas {:dimensions {:width 800 :height 400}
                  :actions []}}))

(defprotocol Drawable
  (-draw [this context]))

  (->LineAction [] {:strokeStyle "#000000"
                    :lineCap "round"
                    :lineJoin "round"
                    :lineWidth (get-in @app-state [:tools :width])}))
(def line-tool
  (reify
    ITool
