Merge multiple #+glossary_sources in a buffer

This commit is contained in:
TEC 2022-07-24 03:14:05 +08:00
parent 9642278dc9
commit ab312e5a29
Signed by: tec
GPG Key ID: 779591AFDB81F06C
1 changed files with 7 additions and 5 deletions

View File

@ -1737,11 +1737,13 @@ location."
(concat fq-source " :only-contents t"))
(t fq-source))))
(org-babel-balanced-split
(or (org-element-map (org-element-parse-buffer) 'keyword
(lambda (keyword)
(and (equal "GLOSSARY_SOURCES" (org-element-property :key keyword))
(org-element-property :value keyword)))
nil t)
(or (mapconcat
#'identity
(org-element-map (org-element-parse-buffer) 'keyword
(lambda (keyword)
(and (equal "GLOSSARY_SOURCES" (org-element-property :key keyword))
(org-element-property :value keyword))))
" ")
"")
?\s))))