bog-select-citekey: Add citekey history list

1 files changed, 4 insertions, 1 deletions

diff --git a/bog.el b/bog.el
index 1803836..0bcc29a 100644
--- a/bog.el
+++ b/bog.el
@@ -476,9 +476,12 @@ If NO-CONTEXT is non-nil, immediately fall back."
                       bog-citekey-at-point
                       bog-all-heading-citekeys)
 
+(defvar bog-citekey-history nil)
+
 (defun bog-select-citekey (citekeys)
   "Prompt for citekey from CITEKEYS."
-  (completing-read "Select citekey: " citekeys nil t))
+  (completing-read "Select citekey: " citekeys
+                   nil t nil 'bog-citekey-history))
 
 ;;;; Other