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


(deref app-state)

)


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

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