Fix headline display in timeline tools

Why did I do this that complicated to begin with?
2024-06-11 18:12:51 +02:00 · 2024-06-11 18:12:51 +02:00 · 2144c7e110
commit 2144c7e110
parent 3b8fa72a5a
1 changed files with 1 additions and 4 deletions
--- a/site-lisp/timeline-tools.el
+++ b/site-lisp/timeline-tools.el
@ -161,10 +161,7 @@ Return whatever is found first."

 (defun timeline-tools-entry-headline (entry)
  "Return the headline associated with ENTRY."
-  (let* ((marker (timeline-tools-entry-marker entry)))
-    (plist-get (cadr (org-with-point-at marker
-                       (org-element-headline-parser (point-max))))
-               :raw-value)))
+  (org-entry-get (timeline-tools-entry-marker entry) "ITEM"))


 ;; Utilities