From 4e15cf57d5dcd11bd9e3195dc80fe4913d80a400 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Thu, 19 Feb 2015 23:00:32 -0500
Subject: bog-bib-citekeys: Remove extension

Remove '.bib' from citekeys, which was introduced in 16b60db1.
---
 bog.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'bog.el')

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
-- 
cgit v1.2.3