summaryrefslogtreecommitdiff
path: root/bog.el
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-09-04 23:28:51 -0400
committerKyle Meyer <kyle@kyleam.com>2015-09-04 23:28:51 -0400
commit043d10573c707128b186e3b6755c2bf9478010b6 (patch)
tree1b1a61d2d3d84f0bce721977a6c1de17cd652706 /bog.el
parentd13639c25647c22379c0b98939ed016947caddd4 (diff)
downloadbog-043d10573c707128b186e3b6755c2bf9478010b6.tar.gz
bog-create-combined-bib: Add option to avoid prompt
Diffstat (limited to 'bog.el')
-rw-r--r--bog.el25
1 files changed, 18 insertions, 7 deletions
diff --git a/bog.el b/bog.el
index 57dad92..7ba1d11 100644
--- a/bog.el
+++ b/bog.el
@@ -157,6 +157,13 @@ This is only meaningful if `bog-find-citekey-bib-func' set to
:type '(choice (const :tag "Don't use single file" nil)
(file :tag "Single file")))
+(defcustom bog-combined-bib-ignore-not-found nil
+ "Whether `bog-create-combined-bib' ignores missing bib files.
+If non-nil, `bog-create-combined-bib' does not ask whether to
+continue when a citekey's bib file is not found."
+ :group 'bog
+ :type 'boolean)
+
(defcustom bog-citekey-file-name-separators "[-_]"
"Regular expression matching separators in file names.
When `bog-find-citekey-file' is run on <citekey>, it will find
@@ -773,10 +780,12 @@ one entry per BibTeX file."
;;;###autoload
(defun bog-create-combined-bib (&optional arg)
"Create a buffer that has entries for a collection of citekeys.
-If in Dired, collect citekeys from marked (or next ARG) files.
-Otherwise, collect citekeys the current buffer."
- (interactive "p")
- (setq arg (and current-prefix-arg arg))
+If in Dired, collect citekeys from marked files. Otherwise,
+collect citekeys the current buffer. With prefix argument ARG,
+reverse the meaning of `bog-combined-bib-ignore-not-found'."
+ (interactive (list (if current-prefix-arg
+ (not bog-combined-bib-ignore-not-found)
+ bog-combined-bib-ignore-not-found)))
(let ((bib-buffer-name "*Bog combined bib*")
citekeys
citekey-bibs)
@@ -784,7 +793,7 @@ Otherwise, collect citekeys the current buffer."
(if (derived-mode-p 'dired-mode)
(setq citekeys
(delete-dups (cl-mapcan #'bog-citekeys-in-file
- (dired-get-marked-files nil arg))))
+ (dired-get-marked-files))))
(setq citekeys (bog-citekeys-in-buffer))))
(setq citekeys (sort citekeys #'string-lessp))
(setq citekey-bibs
@@ -798,8 +807,10 @@ Otherwise, collect citekeys the current buffer."
(insert "\n")
(insert-file-contents (cdr citekey-bib))
(goto-char (point-max)))
- ((not (y-or-n-p (format "No BibTeX entry found for %s. Skip it?"
- (car citekey-bib))))
+ ((or arg
+ (y-or-n-p (format "No BibTeX entry found for %s. Skip it?"
+ (car citekey-bib)))))
+ (t
(kill-buffer bib-buffer-name)
(user-error "Aborting"))))
(bibtex-mode)