             sagas @sagas
             time-by-saga (sort-by #(str (first %)) (:time-by-saga day-stats))
             stacked (reduce stacked-reducer {} time-by-saga)
-            time-by-saga (reverse (sort-by #(str (first %)) (:items stacked)))]
+            time-by-saga (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}
          (for [[saga {:keys [y v]}] time-by-saga]
            (let [h (* y-scale v)
                  y (- chart-h (+ h (* y-scale y)))
-                 saga-name (or (:saga-name (get sagas saga)) "No saga")]
+                 saga-name (or (:saga-name (get sagas saga)) "No saga")
+                 weekday? (not (cc/weekend? (:date-string day-stats)))]
              ^{:key (str saga)}
              [:rect {:on-click (cc/open-day-fn v put-fn)
                      :fill     (cc/item-color saga-name)
                      :x        (* 30 idx)
                      :y        y
                      :width    26
-                     :height   h}]))]))))
+                     :height   h}]))
+         (when weekend?
+           [:rect {:fill    :white
+                   :x       (* 30 idx)
+                   :y       0
+                   :opacity 0.5
+                   :width   26
+                   :height  chart-h}])]))))
 
 (defn bars-by-saga
   "Renders chart with daily recorded times, split up by story."

  [: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."

            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)))
            weekend? (cc/weekend? (:date-string day-stats))]
        [:g
         {:on-mouse-enter mouse-enter-fn
          :on-mouse-leave mouse-leave-fn}
