bog-bib-citekeys: Remove extension

Remove '.bib' from citekeys, which was introduced in 16b60db1.

1 files changed, 3 insertions, 2 deletions

diff --git a/bog.el b/bog.el
index 5fd42dc..c81e67f 100644
--- a/bog.el
+++ b/bog.el
@@ -739,8 +739,9 @@ instead of citekeys from file names in `bog-bib-directory'."
             (when (and (file-readable-p df) (file-directory-p df))
               (push df dirs)))
         (push bog-bib-directory dirs))
-      (cl-mapcan (lambda (dir) (directory-files dir nil ".*\\.bib$"))
-                 dirs))))
+      (mapcar #'file-name-sans-extension
+              (cl-mapcan (lambda (dir) (directory-files dir nil ".*\\.bib$"))
+                         dirs)))))
 
 
 ;;; Web