                 [:strong book-name] ": " (u/duration-string v)]))
            [:hr]
            [:svg
-            {:viewBox (str "0 0 300 10")}
+            {:viewBox (str "0 0 300 15")}
             [: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  10}]))]]
           (for [[book v] (:time-by-book day-stats)]
             (let [book-name (or (:book-name (get books book)) "No book")]
               ^{:key book}

               "Tasks: " [:strong tasks-cnt] " created, "
               [:strong done-cnt] " done, "
               [:strong closed-cnt] " closed"])
            (when word-stats
              [:div
               [:strong (:started-tasks-cnt @stats)] " started tasks, "
               [:strong (:word-count word-stats)] " words written." ])
            (when day-stats [time-by-stories-list day-stats])]])))))
