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

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

                    daily-summary-stats media-stats]} @chart-data
            day (-> entry :briefing :day)
            day-stats (get pomodoro-stats day)
            word-stats (get wordcount-stats day)
            {:keys [tasks-cnt done-cnt closed-cnt]} (get task-stats day)
            started (:started-tasks-cnt @stats)]
        (when (contains? (:tags entry) "#briefing")
          [:form.task-details
           [:fieldset
