     (.stroke context)
     (.restore context)))
 
-(defn square [[[x0 y0] [x1 y1]]]
+(defn rectangle [[[x0 y0] [x1 y1]]]
   [[x0 y0] [x1 y0] [x1 y1] [x0 y1]])
 
-(defrecord SquareAction [points props]
+(defrecord RectangleAction [points props]
   Drawable
   (-draw [this context]
     (.save context)

(def all-tools
  {:line straight-line-tool
   :freehand freehand-tool
   :square square-tool
   :circle circle-tool})

(defn current-tool []

               (dom/button #js {:disabled (= (om/value (:current tools)) :line)
                                :onClick (fn [e]
                                           (om/update! tools [:current] :line))} "Line")
               (dom/button #js {:disabled (= (om/value (:current tools)) :rectangle)
                                :onClick (fn [e]
                                           (om/update! tools [:current] :rectangle))} "Rectangle")
               (dom/button #js {:disabled (= (om/value (:current tools)) :circle)
                                :onClick (fn [e]
                                           (om/update! tools [:current] :circle))} "Circle")
