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

                       (when allocation
                         [:span.allocated (u/duration-string allocation)]))
                     (when (pos? remaining)
                       [:span (u/duration-string remaining)])])]))]]])))))

                                     remaining (- allocation actual)]
                                 [k remaining]))
            remaining-times (filter #(pos? (second %))
                                    (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
