From 299854354c2184006194f9ff27ccba8f62e0c455 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Tue, 17 Feb 2015 21:56:21 -0500
Subject: Rewrite bog-clean-and-rename-staged-bibs

---
 bog.el | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/bog.el b/bog.el
index 783893c..6aade8e 100644
--- a/bog.el
+++ b/bog.el
@@ -648,11 +648,9 @@ Search for new BibTeX files in `bog-stage-directory', and run
 This function is only useful if you use the non-standard setup of
 one entry per BibTeX file."
   (interactive)
-  (let ((staged
-         (file-expand-wildcards
-          (concat (file-name-as-directory bog-stage-directory) "*.bib"))))
-    (--each staged
-      (bog--prepare-bib-file it t))))
+  (let ((staged (directory-files bog-stage-directory t ".*\\.bib$")))
+    (dolist (file staged)
+      (bog--prepare-bib-file file t))))
 
 (defun bog--prepare-bib-file (file &optional new-key)
   (let (bib-file)
-- 
cgit v1.2.3