                                                   (org-time-string-to-time date))
                                    files)))
 
-(defun timeline-tools-redraw-timeline ()
+(defun timeline-tools-redraw-timeline (&optional force)
   "Redraw timeline of current buffer.
-If the current timeline is `nil' (via the buffer local variable
-`timeline-tools--current-timeline', reparse the timeline using
+If `force' is non-nil, reparse the timeline using
 `timeline-tools-timeline' within the time span given by the
 current values of the relevant buffer local variables."
   (interactive)
   (if (not (eq major-mode 'timeline-tools-mode))
       (user-error "Not in Timeline buffer")
-    (unless timeline-tools--current-timeline
+    (when force
       (setq-local timeline-tools--current-timeline
                   (timeline-tools-transform-timeline
                    (timeline-tools-timeline

      (setq-local timeline-tools-time-format timeline-tools-time-format)
      (setq-local timeline-tools-headline-time-format timeline-tools-headline-time-format)
      (hl-line-mode)
      (timeline-tools-redraw-timeline))
    (pop-to-buffer target-buffer)
    t))


  (dolist (file timeline-tools--current-files)
    (with-current-buffer (get-file-buffer file)
      (org-refresh-category-properties)))
  (timeline-tools-redraw-timeline 'force))

(defun timeline-tools-forward-day ()
  "Display timeline of next day."
