         (setq-local timeline-tools--current-time-end (org-time-string-to-seconds tend))
         (setq-local timeline-tools--current-files files)
         (setq-local timeline-tools--current-timeline 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)
         (buffer-enable-undo)
         (timeline-tools-redraw-timeline))

  :group 'timeline-tools
  :type '(list function))

(defcustom timeline-tools-time-format
  "%Y-%m-%d %H:%M"
  "Format of time as used by the formatting functions."
  :group 'timeline-tools
  :type 'string)


    (let ((timeline timeline-tools--current-timeline))
      (erase-buffer)
      (insert (format "* Timeline from [%s] to [%s]\n\n"
                      (format-time-string timeline-tools-headline-time-format
                                          timeline-tools--current-time-start)
                      (format-time-string timeline-tools-headline-time-format
                                          timeline-tools--current-time-end)))
      (insert "|--|\n")
      (insert "| Category | Start | End | Duration | Task |\n")
