             stories @stories
             time-by-story (sort-by #(str (first %)) (:time-by-story day-stats))
             stacked (reduce stacked-reducer {} time-by-story)
-            time-by-story2 (reverse (sort-by #(str (first %)) (:items stacked)))]
+            time-by-story2 (reverse (sort-by #(str (first %)) (:items stacked)))
+            weekend? (cc/weekend? (:date-string day-stats))]
         [:g
          {:on-mouse-enter mouse-enter-fn
           :on-mouse-leave mouse-leave-fn}

  [:svg
   {:viewBox (str "0 0 600 " chart-h)}
   [:g
    [cc/chart-title "by saga"]
    [:g
     (for [[idx v] indexed]
       (let [h (* y-scale (:total-time v))
             mouse-enter-fn (cc/mouse-enter-fn local v)
             mouse-leave-fn (cc/mouse-leave-fn local v)]
         ^{:key (str idx)}
         [day-bars-by-saga v local idx chart-h y-scale put-fn]))]]])

(defn time-by-stories-list
  "Render list of times spent on individual stories, plus the total."

            [reagent.ratom :refer-macros [reaction]]
            [clojure.pprint :as pp]
            [iwaswhere-web.charts.data :as cd]))

(defn ts-bars
  "Renders group with rects for all stories of the particular day."
