                [:strong (:word-count word-stats)] " words written."])
             (when day-stats [time-by-stories-list day-stats])
             [:hr]
-            [:div [horizontal-bar @books :book-name time-allocation 0.0045]]
-            [:div [horizontal-bar @books :book-name remaining-times 0.0045]]
+            [:div [horizontal-bar books :book-name time-allocation 0.0045]]
+            [:div [horizontal-bar books :book-name remaining-times 0.0045]]
             [:div
              "Total planned: "
              [:strong
               (u/duration-string
                 (apply + (map second (-> entry :briefing :time-allocation))))]]
             [:div.story-time
-             (for [[k v] @books]
+             (for [[k v] books]
                (let [allocation (get-in entry [:briefing :time-allocation k] 0)
                      actual (get-in (:time-by-book day-stats) [k] 0)
                      remaining (- allocation actual)]

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

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