 (defn briefing-view
   [entry put-fn edit-mode?]
   (let [chart-data (subscribe [:chart-data])
+        stats (subscribe [:stats])
         input-fn
         (fn [entry]
           (fn [ev]

                [:strong book-name] ": " (u/duration-string v)]))
           [:hr]
           [:svg
            {:viewBox (str "0 0 300 10")}
            [:g (for [[story {:keys [x v]}] time-by-story]
                  (let [w (* y-scale v)
                        x (* y-scale x)

                            :y       0
                            :x       x
                            :width   w
                            :height  15}]))]]
           (for [[story v] (:time-by-story day-stats)]
             (let [story-name (or (:story-name (get stories story)) "No story")]
               ^{:key story}
