From 16b60db1d29cefa30784ed4d2965f9413bdfaf35 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Tue, 17 Feb 2015 21:56:47 -0500
Subject: bog-bib-citekeys: Rewrite with directory-files

---
 bog.el | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

(limited to 'bog.el')

diff --git a/bog.el b/bog.el
index 6aade8e..2f97c1d 100644
--- a/bog.el
+++ b/bog.el
@@ -730,13 +730,9 @@ instead of citekeys from file names in `bog-bib-directory'."
                        bog-bib-directory t directory-files-no-dot-files-regexp))
             (when (and (file-readable-p df) (file-directory-p df))
               (push df dirs)))
-      (push bog-bib-directory dirs))
-      (-map #'file-name-base
-            (-mapcat
-             (lambda (dir)
-               (file-expand-wildcards
-                (concat (file-name-as-directory dir) "*.bib")))
-             dirs)))))
+        (push bog-bib-directory dirs))
+      (-mapcat (lambda (dir) (directory-files dir nil ".*\\.bib$"))
+               dirs))))
 
 
 ;;; Web
-- 
cgit v1.2.3