daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update of packages

Browse Source
This commit is contained in:
Daniel Weschke
2023-11-04 19:26:41 +01:00
parent e162a12b58
commit 3b54a3236d
726 changed files with 297673 additions and 34585 deletions
Download Patch File Download Diff File Expand all files Collapse all files

78
lisp/org-ref/org-ref-glossary.el
View File

@@ -429,13 +429,13 @@ This is intended to be run in `org-export-before-parsing-hook'."
(nthcdr 2 (org-babel-read-table))))))))))
;; Delete the table
(when entries
(setf (buffer-substring begin end) "")
(cl--set-buffer-substring begin end ""))
(goto-char (point-min))
(cl-loop for (label name description) in entries
do
(insert (format "#+latex_header_extra: \\newglossaryentry{%s}{name=%s,description={{%s}}}\n"
label name description)))))))
(goto-char (point-min))
(cl-loop for (label name description) in entries
do
(insert (format "#+latex_header_extra: \\newglossaryentry{%s}{name=%s,description={{%s}}}\n"
label name description))))))
;;* Acronyms
@@ -447,7 +447,7 @@ This is intended to be run in `org-export-before-parsing-hook'."
FULL is the expanded acronym.
This is not the preferred way to add acronyms, you should add
them manually to the acroynms table."
them manually to the acronyms table."
(interactive "sLabel: \nsAcronym: \nsFull name: ")
(save-excursion
(re-search-backward "#\\+latex_header" nil t)
@@ -668,13 +668,13 @@ This will run in `org-export-before-parsing-hook'."
(nthcdr 2 (org-babel-read-table))))))))))
(when entries
;; Delete the table
(setf (buffer-substring begin end) "")
(cl--set-buffer-substring begin end ""))
(goto-char (point-min))
(cl-loop for (label name description) in entries
do
(insert (format "#+latex_header_extra: \\newacronym{%s}{%s}{%s}\n"
label name description)))))))
(goto-char (point-min))
(cl-loop for (label name description) in entries
do
(insert (format "#+latex_header_extra: \\newacronym{%s}{%s}{%s}\n"
label name description))))))
;; * Interactive command to insert acroynm/glossary links
@@ -907,9 +907,9 @@ Meant for non-LaTeX exports."
;; skip header and hline
(nthcdr 2 (org-babel-read-table))
;; delete the table
(setf (buffer-substring (org-element-property :begin el)
(org-element-property :end el))
""))))
(cl--set-buffer-substring (org-element-property :begin el)
(org-element-property :end el)
""))))
nil t))
(setq acronyms (org-element-map
(org-element-parse-buffer)
@@ -922,9 +922,9 @@ Meant for non-LaTeX exports."
(prog1
(nthcdr 2 (org-babel-read-table))
;; delete the table
(setf (buffer-substring (org-element-property :begin el)
(org-element-property :end el))
""))))
(cl--set-buffer-substring (org-element-property :begin el)
(org-element-property :end el)
""))))
nil t))
;; Replace printglossary link
@@ -939,20 +939,20 @@ Meant for non-LaTeX exports."
lnk))
nil t))
(when printglossary-link
(setf (buffer-substring (org-element-property :begin printglossary-link)
(org-element-property :end printglossary-link))
(concat "*Glossary*\n"
(string-join
(cl-loop for (label name description) in glossary collect
(format "<<%s>>\n- %s :: %s" label name description))
"\n")
(cl--set-buffer-substring (org-element-property :begin printglossary-link)
(org-element-property :end printglossary-link)
(concat "*Glossary*\n"
(string-join
(cl-loop for (label name description) in glossary collect
(format "<<%s>>\n- %s :: %s" label name description))
"\n")
"\n*Acronyms*\n"
(string-join
(cl-loop for (label name description) in acronyms collect
(format "<<%s>>\n- %s :: %s " label name description))
"\n"))))
"\n*Acronyms*\n"
(string-join
(cl-loop for (label name description) in acronyms collect
(format "<<%s>>\n- %s :: %s " label name description))
"\n"))))
;; Replace links
@@ -967,13 +967,13 @@ Meant for non-LaTeX exports."
lnk))))
;; For each link, replace with [[label][link description]]
(cl-loop for lnk in (reverse links) do
(setf (buffer-substring (org-element-property :begin lnk)
(org-element-property :end lnk))
(format "[[%s][%s]]%s"
(org-element-property :path lnk)
(buffer-substring (org-element-property :contents-begin lnk)
(org-element-property :contents-end lnk))
(make-string (org-element-property :post-blank lnk) ? )))))))
(cl--set-buffer-substring (org-element-property :begin lnk)
(org-element-property :end lnk)
(format "[[%s][%s]]%s"
(org-element-property :path lnk)
(buffer-substring (org-element-property :contents-begin lnk)
(org-element-property :contents-end lnk))
(make-string (org-element-property :post-blank lnk) ? )))))))
(provide 'org-ref-glossary)