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

update packages

Browse Source
This commit is contained in:
Daniel Weschke
2025-11-25 19:52:03 +01:00
parent 14ba373378
commit dbbae92267
280 changed files with 13451 additions and 11207 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -68,22 +68,68 @@
The clickable part are the keys.")
(defun org-ref-latex-get-bibliography ()
"Find bibliographies in the tex file."
(defun org-ref-latex--scan-buffer-for-bibliography ()
"Scan current buffer for bibliography commands.
Returns a list of bibliography files found via \\bibliography{}
and \\addbibresource{} commands.
This is a helper function for `org-ref-latex-get-bibliography'."
(save-excursion
(let ((bibliography '()))
;; Look for \bibliography{file1,file2,...} (BibTeX format)
(goto-char (point-min))
(while (re-search-forward "\\\\bibliography{\\(?1:.*\\)}" nil t)
(setq bibliography (append bibliography
(mapcar (lambda (f)
(concat f ".bib"))
(split-string (match-string-no-properties 1) ",")))))
(setq bibliography
(append bibliography
(mapcar (lambda (f)
(concat f ".bib"))
(split-string (match-string-no-properties 1) ",")))))
;; Look for \addbibresource{file.bib} (BibLaTeX format)
(goto-char (point-min))
(while (re-search-forward "\\\\addbibresource{\\(?1:.*\\)}" nil t)
(setq bibliography (append bibliography (list (match-string-no-properties 1)))))
(setq bibliography
(append bibliography
(list (match-string-no-properties 1)))))
bibliography)))
(defun org-ref-latex-get-bibliography ()
"Find bibliographies in the tex file.
First searches the current buffer for \\bibliography{} or
\\addbibresource{} commands.
If no bibliography is found and the `TeX-master' variable is set
to a filename (indicating this is an included file in a multi-file
project), searches the master file for bibliography commands.
This enables bibliography discovery in multi-file LaTeX projects
where chapter/section files are included into a main file that
contains the bibliography declaration.
Returns a list of bibliography file paths."
(let ((bibliography (org-ref-latex--scan-buffer-for-bibliography)))
;; If no bibliography found in current buffer, check TeX-master
(when (and (null bibliography)
(boundp 'TeX-master)
(stringp TeX-master))
;; TeX-master is a filename (relative or absolute)
;; Build the full path to the master file
(let* ((master-file
(expand-file-name
;; Add .tex extension if not present
(if (string-match-p "\\.tex\\'" TeX-master)
TeX-master
(concat TeX-master ".tex"))
;; Resolve relative to current buffer's directory
(file-name-directory (buffer-file-name))))
(master-buffer
(when (file-exists-p master-file)
(find-file-noselect master-file))))
(when master-buffer
(with-current-buffer master-buffer
(setq bibliography (org-ref-latex--scan-buffer-for-bibliography))))))
bibliography))
(defun org-ref-next-latex-cite (&optional limit)
"Font-lock function to make cites in LaTeX documents clickable."
@@ -101,14 +147,14 @@ The clickable part are the keys.")
:optional-1 ,(match-string-no-properties 2)
:optional-2 ,(match-string-no-properties 3)
:keys ,(mapcar
#'s-trim
(s-split
","
(match-string-no-properties 4))))))
#'string-trim
(split-string
(match-string-no-properties 4)
",")))))
(goto-char (match-beginning 0))
(let ((end (match-end 0)))
(cl-loop for key in (mapcar #'s-trim (split-string (match-string-no-properties 4) ","))
(cl-loop for key in (mapcar #'string-trim (split-string (match-string-no-properties 4) ","))
unless (string-empty-p key)
do
(save-match-data
@@ -212,7 +258,7 @@ Should DWIM inserting into existing or new citations."
(setq cite-string (concat (format "\\%s" (plist-get data :cite-type))
(or (plist-get data :optional-1) "")
(or (plist-get data :optional-2) "")
(format "{%s}" (s-join "," (plist-get data :keys)))))
(format "{%s}" (string-join (plist-get data :keys) ","))))
(cl--set-buffer-substring (plist-get data :cite-begin)
(plist-get data :cite-end)
cite-string)
@@ -263,7 +309,7 @@ With prefix arg DESCENDING, sort in descending order."
(setq cite-string (concat (format "\\%s" (plist-get data :cite-type))
(or (plist-get data :optional-1) "")
(or (plist-get data :optional-2) "")
(format "{%s}" (s-join "," (plist-get data :keys)))))
(format "{%s}" (string-join (plist-get data :keys) ","))))
(cl--set-buffer-substring (plist-get data :cite-begin)
(plist-get data :cite-end)
cite-string)