                                      remaining (- allocation actual)]
                                  [k remaining]))
             remaining-times (filter #(pos? (second %))
-                                    (map remaining-mapper time-allocation))]
+                                    (map remaining-mapper time-allocation))
+            last-7-days (->> pomodoro-stats
+                             (map (fn [[k v]] [k (:time-by-book v)]))
+                             (sort-by first)
+                             (take-last 7)
+                             (map second)
+                             (apply merge-with +))]
         (when (contains? (:tags entry) "#briefing")
           [:form.briefing-details
            [:fieldset

                  updated (assoc-in entry [:briefing :time-allocation book] s)]
              (put-fn [:entry/update-local updated]))))]
    (fn briefing-render [entry put-fn edit-mode?]
      (let [{:keys [pomodoro-stats activity-stats task-stats wordcount-stats
                    daily-summary-stats media-stats]} @chart-data
            day (-> entry :briefing :day)
            day-stats (get pomodoro-stats day)

           [:hr]
           [horizontal-bar stories :story-name time-by-story y-scale]
           (for [[story v] (:time-by-story day-stats)]
             (let [story-name (or (:story-name (get stories story)) "none")]
               ^{:key story}
               [:div
                [:span.legend
