 (defn barchart-row
   [days span start stats tag k y scale cls]
   [:g
+   [:text {:x           180
+           :y           (- y 12)
+           :font-size   12
+           :fill        "#777"
+           :font-weight :bold
+           :text-anchor "end"}
+    tag]
    (for [n (range (inc days))]
      (let [d (* 24 60 60 1000)
            offset (* n d)

                :style    {:background :white}
                :on-click toggle}
          [:filter#blur1
           [:feGaussianBlur {:stdDeviation 2}]]
          [:g
           (for [n (range (+ 2 days))]
             (let [offset (* n d)

        local (r/atom {:last-fetched 0 :n 30})
        toggle (fn [_] (swap! local assoc-in [:n] (if (= 7 (:n @local)) 30 7)))]
    (fn [put-fn]
      (prn :keep-updated)
      (h/keep-updated :stats/custom-fields 31 local @last-update put-fn)
      (let [scores2 (->> @stats
                         :questionnaires
                         :panas
