       (timeline-tools-next-line))))
 
 (defun timeline-tools-reparse-timeline ()
-  "Parse timeline from files again and redraws current display
+  "Parse timeline from files again and redraw current display.
 Updates category properties before constructing the new timeline."
   (interactive)
   (dolist (file timeline-tools--current-files)

  "Format of time used in the headline of a timeline.")

(defvar timeline-tools-time-format "%Y-%m-%d %H:%M"
  "Format of time used inside a timeline")

(defvar timeline-tools-mode-map
  (let ((map (make-sparse-keymap)))

;; Interactive functions

(defun timeline-tools-redraw-timeline ()
  "Redraw timeline of current buffer."
  (interactive)
  (if (not (eq major-mode 'timeline-tools-mode))
      (user-error "Not in Timeline buffer")
