Update buffer name

This commit is contained in:
Marcus Kammer 2024-03-07 09:10:48 +01:00
parent 5a3f150fcb
commit ec84f20d4c

View file

@ -540,10 +540,10 @@
"Extract headlines and their content from current buffer by TAG."
(interactive "sEnter tag: ")
(save-excursion
(let ((result-buffer (generate-new-buffer "*Extracted Headlines*")))
(let ((result-buffer (generate-new-buffer (concat "*Extracted Headlines " tag "*"))))
(with-current-buffer result-buffer
(org-mode)
(insert "* Extracted Headlines by Tag: " tag " *\n"))
(insert "* Extracted Headlines by Tag: " tag " *\n\n"))
(org-element-map (org-element-parse-buffer) 'headline
(lambda (headline)
(when (member tag (org-element-property :tags headline))