mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Define setfunction for bibtex-generate-url-list (bug#78798)

Browse source 
* lisp/textmodes/bibtex.el
        (bibtex-generate-url-list-init): New function.

        * lisp/textmodes/bibtex.el (bibtex-generate-url-list)
        (bibtex-font-lock-url-regexp): Use it.
This commit is contained in:
Roland Winkler 2025-07-20 01:01:12 -05:00
parent 49696b5cd1
commit e6c1ec71b7
1 changed files with 27 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

34
lisp/textmodes/bibtex.el
View file

@ -1432,6 +1432,25 @@ Used by `bibtex-complete-crossref-cleanup' and `bibtex-copy-summary-as-kill'."
:type '(choice (const :tag "Default" bibtex-summary) :type '(choice (const :tag "Default" bibtex-summary)
(function :tag "Personalized function"))) (function :tag "Personalized function")))
(defun bibtex-generate-url-list-init (&optional local)
"Initialize `bibtex-font-lock-url-regexp' from `bibtex-generate-url-list'.
Return value of `bibtex-font-lock-url-regexp'.
Call this function when setting `bibtex-generate-url-list' in elisp code.
Use LOCAL non-nil when setting `bibtex-generate-url-list' buffer-locally."
;; Assume that field names begin at the beginning of a line.
(let ((val (concat "^[ \t]*"
(regexp-opt (delete-dups
(mapcar #'caar
(with-no-warnings
bibtex-generate-url-list)))
'paren)
"[ \t\n]*=[ \t\n]*")))
(if (boundp 'bibtex-font-lock-url-regexp)
(if local
(setq bibtex-font-lock-url-regexp val)
(setq-default bibtex-font-lock-url-regexp val)))
val))
(defcustom bibtex-generate-url-list (defcustom bibtex-generate-url-list
'((("url" . ".*:.*")) '((("url" . ".*:.*"))
(("doi" . "10\\.[0-9]+/.+") (("doi" . "10\\.[0-9]+/.+")
@ -1463,7 +1482,9 @@ and with the `match-data' properly set.
Case is always ignored. Always remove the field delimiters. Case is always ignored. Always remove the field delimiters.
If `bibtex-expand-strings' is non-nil, BibTeX strings are expanded If `bibtex-expand-strings' is non-nil, BibTeX strings are expanded
for generating the URL. for generating the URL.
Set this variable before loading BibTeX mode.
Either set this variable via `customize' or call after setting it
`bibtex-generate-url-list-init'.
The following is a complex example, see URL `https://link.aps.org/'. The following is a complex example, see URL `https://link.aps.org/'.
@ -1495,7 +1516,10 @@ The following is a complex example, see URL `https://link.aps.org/'.
(choice (string :tag "Replacement") (choice (string :tag "Replacement")
(integer :tag "Sub-match") (integer :tag "Sub-match")
(function :tag "Filter"))))))) (function :tag "Filter")))))))
:risky t) :risky t
:set (lambda (symbol value)
(set-default symbol value)
(bibtex-generate-url-list-init)))
(defcustom bibtex-cite-matcher-alist (defcustom bibtex-cite-matcher-alist
'(("\\\\cite[ \t\n]*{\\([^}]+\\)}" . 1)) '(("\\\\cite[ \t\n]*{\\([^}]+\\)}" . 1))
@ -1838,11 +1862,7 @@ Initialized by `bibtex-set-dialect'.")
bibtex-cite-matcher-alist)) bibtex-cite-matcher-alist))
"Default expressions to highlight in BibTeX mode.") "Default expressions to highlight in BibTeX mode.")
(defvar bibtex-font-lock-url-regexp (defvar bibtex-font-lock-url-regexp (bibtex-generate-url-list-init)
;; Assume that field names begin at the beginning of a line.
(concat "^[ \t]*"
(regexp-opt (delete-dups (mapcar #'caar bibtex-generate-url-list)) t)
"[ \t\n]*=[ \t\n]*")
"Regexp for `bibtex-font-lock-url' derived from `bibtex-generate-url-list'.") "Regexp for `bibtex-font-lock-url' derived from `bibtex-generate-url-list'.")
(defvar bibtex-string-empty-key nil (defvar bibtex-string-empty-key nil