update packages

This commit is contained in:
2025-11-25 19:52:03 +01:00
parent 14ba373378
commit dbbae92267
280 changed files with 13451 additions and 11207 deletions

View File

@@ -232,7 +232,9 @@ character was found."
(rx "\\" (1+ (any "a-z" "A-Z")) word-end)) ; \TEX-COMMAND + word-end
(defconst citeproc-bt--braces-rx
(rx "{" (group (*? anything)) "}")) ; {TEXT}
(rx (group (or string-start (not "\\"))) "{" ; unescaped {
(group (optional (seq (*? anything) (not "\\")))) ; TEXT
"}")) ; unescaped }
(defun citeproc-bt--process-brackets (s &optional lhb rhb)
"Process LaTeX curly brackets in string S.
@@ -250,11 +252,11 @@ The default is to remove them."
match t))
((string-match citeproc-bt--braces-rx result)
(setq result (replace-match
(concat lhb "\\1" rhb)
(concat "\\1" lhb "\\2" rhb)
t nil result)
match t))
(t (setq match nil))))
result))
(s-replace-all '(("\\{" . "{") ("\\}" . "}")) result)))
(defun citeproc-bt--preprocess-for-decode (s)
"Preprocess field S before decoding.

View File

@@ -258,7 +258,7 @@ CSL tests."
;; LaTeX
(defconst citeproc-fmt--latex-esc-regex
(regexp-opt '("_" "&" "#" "%" "$"))
(regexp-opt '("_" "&" "#" "%" "$" "{" "}" ))
"Regular expression matching characters to be escaped in LaTeX output.")
(defun citeproc-fmt--latex-escape (s)

View File

@@ -63,7 +63,7 @@ simply the result of upcasing.")
(defun citeproc-locale-getter-from-dir (dir)
"Return a locale getter getting parsed locales from a local DIR.
If the requested locale couldn't be read then return the parsed
en-US locale, which must exist."
en-US locale, which must exist, and warn the user."
(let ((default-loc-file (f-join dir "locales-en-US.xml")))
(lambda (loc)
(let* ((ext-loc (if (or (member loc citeproc-locale--simple-locales)
@@ -75,11 +75,16 @@ en-US locale, which must exist."
(citeproc-lib-remove-xml-comments
(citeproc-lib-parse-xml-file
(if loc-available loc-file
(if (not (f-readable-p default-loc-file))
(error
"The default CSL locale file %s doesn't exist or is unreadable"
default-loc-file)
default-loc-file))))))))
(if (not (f-readable-p default-loc-file))
(error
"The default CSL locale file %s doesn't exist or is unreadable"
default-loc-file)
(display-warning
'citeproc
(format
"Could not read CSL locale file %s, using the fallback en-US locale"
loc-file))
default-loc-file))))))))
(defun citeproc-locale-termlist-from-xml-frag (frag)
"Transform xml FRAG representing citeproc--terms into a citeproc-term list."

View File

@@ -1,5 +1,5 @@
;; -*- no-byte-compile: t; lexical-binding: nil -*-
(define-package "citeproc" "20250525.1011"
(define-package "citeproc" "20251103.716"
"A CSL 1.0.2 Citation Processor."
'((emacs "26")
(dash "2.13.0")
@@ -11,8 +11,8 @@
(parsebib "2.4")
(compat "28.1"))
:url "https://github.com/andras-simonyi/citeproc-el"
:commit "e3bf1f80bcd64edf4afef564c0d94d38aa567d61"
:revdesc "e3bf1f80bcd6"
:commit "a3d62ab8e40a75fcfc6e4c0c107e3137b4db6db8"
:revdesc "a3d62ab8e40a"
:keywords '("bib")
:authors '(("András Simonyi" . "andras.simonyi@gmail.com"))
:maintainers '(("András Simonyi" . "andras.simonyi@gmail.com")))

View File

@@ -247,7 +247,7 @@ REPLACEMENTS is an alist with (FROM . TO) elements."
"Replace dumb apostophes in string S with smart ones.
The replacement character used is the unicode character `modifier
letter apostrophe'."
(subst-char-in-string ?' ?ʼ (subst-char-in-string ? ?ʼ s t) t))
(string-replace "'" "ʼ" (string-replace "" "ʼ" s)))
(defconst citeproc-s--cull-spaces-alist
'((" " . " ") (";;" . ";") ("..." . ".") (",," . ",") (".." . "."))

View File

@@ -7,8 +7,8 @@
;; URL: https://github.com/andras-simonyi/citeproc-el
;; Keywords: bib
;; Package-Requires: ((emacs "26") (dash "2.13.0") (s "1.12.0") (f "0.18.0") (queue "0.2") (string-inflection "1.0") (org "9") (parsebib "2.4")(compat "28.1"))
;; Package-Version: 20250525.1011
;; Package-Revision: e3bf1f80bcd6
;; Package-Version: 20251103.716
;; Package-Revision: a3d62ab8e40a
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by