            {:xlink-href   (str "#" id)
             :start-offset "50%"
             :style        {:text-anchor :middle
+                           :font-family "Roboto"
                            :font-size   (if @over? "1rem" "0.75rem")
-                           :font-weight :normal}}
+                           :font-weight 300}}
            (if @over?
-             (str name " (" hours-per-day " / day)")
+             (str "(" hours-per-day " / day)")
              name)]]]))))
 
 (def colors (cycle ["Tomato"

  [(* r (Math/cos theta))
   (* r (Math/sin theta))])

(defn arc-path [{:keys [x y r] :as m} pct0 pct1]
  (let [[x0 y0]           (-> pct0
                              pct-to-angle
                              angle-to-cart
                              (scale m)
                              (invert-y m)
                              (move-to-origin m))
        [x1 y1]           (-> pct1
                              pct-to-angle
                              angle-to-cart
                              (scale m)

      (if (< 0.5 (- pct1 pct0)) 1 0)

      ;; sweep-flag, always go clockwise
      (if reverse? 0 1)

      ;; x y
      x1 y1])))

(defn arc-path+origin [{x :x y :y :as m} pct0 pct1]
  (str (arc-path m pct0 pct1 {}) " L " x " " y))

(defn pie-slice [{:keys [x y r] :as m} {:keys [name start end color]}]
  (let [id (gensym "slice")
