 
 (defvar timeline-tools--current-timeline nil
   "Currently displayed timeline in abstract form.")
-
-(defvar timeline-tools-headline-time-format "%Y-%m-%d %H:%M"
-  "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)))

  :group 'timeline-tools
  :type 'integer)


;; Mode definition

               (timeline-tools-entry-start-time entry))
            60)))

(defun timeline-tools-entry-category (entry &rest _)
  "Return ARCHIVE_CATEGORY or CATEGORY at position given by marker of ENTRY.
Return whatever is found first."
  (let ((marker (timeline-tools-entry-marker entry)))
