summaryrefslogtreecommitdiff
path: root/bog.el
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2016-03-04 23:23:57 -0500
committerKyle Meyer <kyle@kyleam.com>2016-03-04 23:23:57 -0500
commit02fc78dd4c2f7fa347b9ec59d7aa8fb5fcf7cba8 (patch)
treec08015e1a29792606778df31e5a462e268fe9126 /bog.el
parent54c83c5a123466fb0550698f485fb41270d79758 (diff)
downloadbog-02fc78dd4c2f7fa347b9ec59d7aa8fb5fcf7cba8.tar.gz
bog-clear-citekey-cache: Add all option to prompt
Diffstat (limited to 'bog.el')
-rw-r--r--bog.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/bog.el b/bog.el
index d00b62e..75412d3 100644
--- a/bog.el
+++ b/bog.el
@@ -336,11 +336,11 @@ Otherwise, prompt for CATEGORY."
(unless bog--citekey-cache
(user-error "Citekey cache is empty"))
(list (or (equal current-prefix-arg '(4))
- (and bog--citekey-cache
- (intern (completing-read
- "Category: "
- (mapcar (lambda (c) (symbol-name (car c)))
- (or bog--citekey-cache)))))))))
+ (let ((choice (and bog--citekey-cache
+ (completing-read
+ "Category: "
+ (cons "*all*" bog--citekey-cache)))))
+ (if (equal choice "*all*") t (intern choice)))))))
(setq bog--citekey-cache
(and (not (eq category t))
(assq-delete-all category bog--citekey-cache))))