marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use org api

Browse source
This commit is contained in:
Marcus Kammer 2024-03-05 19:06:08 +01:00
parent 1be1e93f4d
commit 5a3f150fcb
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
bundle/bundle--org.el
View file

@ -543,10 +543,10 @@
(let ((result-buffer (generate-new-buffer "*Extracted Headlines*"))) (let ((result-buffer (generate-new-buffer "*Extracted Headlines*")))
(with-current-buffer result-buffer (with-current-buffer result-buffer
(org-mode) (org-mode)
(insert "* Extracted Headlines by Tag: " tag " *\n\n")) (insert "* Extracted Headlines by Tag: " tag " *\n"))
(goto-char (point-min)) (org-element-map (org-element-parse-buffer) 'headline
(while (re-search-forward (format "^\\*+\\s-+\\(.*?\\)\\s-+:.*?%s.*?:\\(.*?\n\n\\)" tag) nil t) (lambda (headline)
(let ((headline (match-string 1))) (when (member tag (org-element-property :tags headline))
(with-current-buffer result-buffer (with-current-buffer result-buffer
(insert headline "\n")))) (insert (org-element-interpret-data headline) "\n")))))
(pop-to-buffer result-buffer)))) (pop-to-buffer result-buffer))))