From 2f3d586b78c87927b0c74d4e43391e592234653c Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 7 Dec 2014 20:13:28 -0500
Subject: Remove invisible/autosave files from notes list

---
 bog.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'bog.el')

diff --git a/bog.el b/bog.el
index cef56a3..130a1c1 100644
--- a/bog.el
+++ b/bog.el
@@ -713,9 +713,12 @@ level `bog-refile-maxlevel' are considered."
 
 (defun bog-notes-files ()
   "Return Org files in `bog-notes-directory'"
-  (file-expand-wildcards
-   (concat (file-name-as-directory bog-notes-directory)
-           "*.org")))
+  (--remove (let ((base-name (file-name-nondirectory it)))
+              (or (string-prefix-p "." base-name)
+                  (auto-save-file-name-p base-name)))
+   (file-expand-wildcards
+    (concat (file-name-as-directory bog-notes-directory)
+            "*.org"))))
 
 (defun bog-search-notes (&optional todo-only string)
   "Search notes using `org-search-view'.
-- 
cgit v1.2.3