From f2c518cbd3e3a313ac518c177907cd75938f8402 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Tue, 17 Feb 2015 21:56:05 -0500 Subject: bog-notes: Rewrite with directory-files --- bog.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'bog.el') diff --git a/bog.el b/bog.el index 6b72fea..783893c 100644 --- a/bog.el +++ b/bog.el @@ -943,12 +943,8 @@ level `bog-refile-maxlevel' are considered." (defun bog-notes () "Return Org files in `bog-note-directory'." - (--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-note-directory) - "*.org")))) + (directory-files bog-note-directory t + "^[^\\.].*.org$")) (defun bog-read-note-file-name () "Read name of Org file in `bog-note-directory'." -- cgit v1.2.3