site-lisp/timeline-tools.el

@@ -115,7 +115,7 @@ end date of the timeline."
 
 (define-derived-mode timeline-tools-mode
   org-mode "Timeline"
-  "Major mode to display `org-mode' timelines."
+  "Major mode to display org-mode timelines."
   (hl-line-mode)
   (buffer-enable-undo))
 
@@ -161,7 +161,10 @@ Return whatever is found first."
 
 (defun timeline-tools-entry-headline (entry)
   "Return the headline associated with ENTRY."
-  (org-entry-get (timeline-tools-entry-marker entry) "ITEM"))
+  (let* ((marker (timeline-tools-entry-marker entry)))
+    (plist-get (cadr (org-with-point-at marker
+                       (org-element-headline-parser (point-max))))
+               :raw-value)))
 
 
 ;; Utilities
@@ -294,10 +297,11 @@ returned by `timeline-tools-clocklines-in-range’, which see.
 Entries in the resulting list are sorted by START, ascending.
 TSTART and TEND must be valid time specifiers for
 `timeline-tools-clocklines-in-range’.  If not given,
-FILES-OR-BUFFERS defaults to `org-agenda-files’ without archives."
+FILES-OR-BUFFERS defaults to `org-agenda-files’ including all
+archives."
   (let (timeline-of-files turned-around-timeline)
     (setq timeline-of-files
-          (->> (or files-or-buffers (org-agenda-files t nil))
+          (->> (or files-or-buffers (org-agenda-files t t))
                (cl-mapcan #'(lambda (file-or-buffer)
                               (let ((buffer (cond
                                              ((bufferp file-or-buffer)
@@ -406,7 +410,7 @@ Filtering is done by applying all functions from
 (defun timeline-tools-format-timeline (tstart tend &optional files)
   "Display timeline of tasks between TSTART and TEND from FILES.
 
-When not given, FILES defaults to `org-agenda-files’ without
+When not given, FILES defaults to `org-agenda-files’ including
 archives.  The timeline is transformed as given by the current
 value of `timeline-tools-filter-functions’.  When called
 interactively, START and END are queried with `org-read-date’."
@@ -430,7 +434,7 @@ interactively, START and END are queried with `org-read-date’."
 
 DATE should be a string of the form %Y-%m-%d.  When called
 interactively, this date will be queried with `org-read-date’.
-When not given, FILES defaults to `org-agenda-files’ without
+When not given, FILES defaults to `org-agenda-files’ including
 archives."
   (interactive (list (org-read-date nil nil)))
   (let ((timeline-tools-time-format "%H:%M")
@@ -740,7 +744,7 @@ clock line."
       (with-current-buffer buffer
         ;; Make sure everything is visible, as otherwise editing may produce odd
         ;; results
-        (org-fold-show-all)
+        (org-show-all)
 
         (timeline-tools-map-clocklines
          (lambda (timestamp-1 timestamp-2)