From 3cb79d6c31bb047cf8fd1ef85638d5e87e6f57c1 Mon Sep 17 00:00:00 2001 From: Daanturo Date: Sun, 9 Mar 2025 15:37:12 +0000 Subject: [PATCH] Defcustom org-cite-insert-single --- lisp/oc.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/oc.el b/lisp/oc.el index de7ea1fe2..bf1e5bb0e 100644 --- a/lisp/oc.el +++ b/lisp/oc.el @@ -1610,6 +1610,9 @@ Citation keys are strings without the leading \"@\"." (org-element-create 'citation-reference (list :key k))) keys))) +(defcustom org-cite-insert-single nil + "Whether `org-cite-insert' asks for one or multiple citations.") + (defun org-cite-make-insert-processor (select-key select-style) "Build a function appropriate as an insert processor. @@ -1701,7 +1704,9 @@ More specifically, (delete-region start end) (insert key)))))) (_ - (let ((keys (funcall select-key t))) + (let ((keys (if org-cite-insert-single + (list (funcall select-key nil)) + (funcall select-key t)))) (unless keys (user-error "Aborted")) (insert (format "[cite%s:%s]" -- 2.48.1