Remove invisible/autosave files from notes list

1 files changed, 6 insertions, 3 deletions

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'.