refactor: remove redundant org code

org-collect-keywords does the job here. No need to reinvent the wheel.
This commit is contained in:
Henrik Lissner 2021-07-26 16:20:48 -04:00
parent fd844ea18d
commit cd87cc0cc8
2 changed files with 3 additions and 21 deletions

View file

@ -126,11 +126,12 @@ selection of all minor-modes, active or not."
(<= level depth))
(or (null tags)
(not (string-match-p ":TOC" tags))))
(let ((path (org-get-outline-path)))
(let ((path (org-get-outline-path))
(title (org-collect-keywords '("TITLE") '("TITLE"))))
(list (string-join
(list (string-join
(append (when include-files
(list (or (+org-get-global-property "TITLE")
(list (or (cdr (assoc "TITLE" title))
(file-relative-name (buffer-file-name)))))
path
(when text