jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix: (org-ql-search-directories-files) Error unless org-directory

Browse source 
Fixes #139.  Thanks to Matt Huszagh (@matthuszagh) for reporting.

Released as 0.4.7.
This commit is contained in:
Adam Porter 2020-11-16 02:25:45 -06:00
parent 0080055690
commit 0d12cdb3f5
3 changed files with 84 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

9
org-ql-search.el
View file

@ -270,9 +270,12 @@ automatically from the query."
;;;; Functions
(cl-defun org-ql-search-directories-files (&key (directories (list org-directory))
(recurse org-ql-search-directories-files-recursive)
(regexp org-ql-search-directories-files-regexp))
(cl-defun org-ql-search-directories-files
(&key (directories (if (file-exists-p org-directory)
(list org-directory)
(user-error "org-ql-search-directories-files: No DIRECTORIES given, and `org-directory' doesn't exist")))
(recurse org-ql-search-directories-files-recursive)
(regexp org-ql-search-directories-files-regexp))
"Return list of matching files in DIRECTORIES, a list of directory paths.
When RECURSE is non-nil, recurse into subdirectories. When
REGEXP is non-nil, only return files that match REGEXP."