                      (int))]
     (str "rgb(" (join "," [(toNumber name 0) (toNumber name 1) (toNumber name 2)]) ")")))
 
-(println (shift-color "Wally"))
-(println (shift-color "bob"))
-
 (defn plotPlan [plan]
   (let [jsPlan (clj->js plan)
         dataSet (-> d3
                     (.select "#canvas")
                     (.selectAll "g")
-                    (.data jsPlan (fn [key] (println key) (str
-                                                            (.-day key)
-                                                            (.-shift key)
-                                                            (.-name key)))))
+                    (.data jsPlan (fn [key] (str
+                                              (.-day key)
+                                              (.-shift key)
+                                              (.-name key)))))
         enterSet (.enter dataSet)
         enterGroup (-> enterSet
                      (.append "g")

       (map #(zipmap [:day :shift :name] %))))

(defn updatePlan [e]
  (println e)
  (let [v (.-value planInput)
        p (extractPlan v)]
    (plotPlan p)))

(defn setup! []
  (.addEventListener renderInput "click" updatePlan))

(setup!)

(def WIDTH 60)
(def HEIGHT-HOUR 20)
(def HEIGHT (* 8 HEIGHT-HOUR))
(def DAYS ["Mo" "Di" "Mi" "Do" "Fr" "Sa" "So"])
(def HOURS (range 24))

(defn shift-color [name]
  (let [toNumber #(-> (window/parseInt (nth (lower-case %1) %2) 36)
