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

Replacing org-ql-view--expand-buffers-files

Browse source
This commit is contained in:
Ahmed Shariff 2021-09-13 11:01:55 -05:00
parent cabf88eea5
commit 788951a4a9
1 changed files with 12 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

30
org-ql-view.el
View file

@ -1078,24 +1078,18 @@ representation `org-ql-view-buffers-files' is returned."
(defun org-ql-view--expand-buffers-files (buffers-files)
"Return BUFFERS-FILES expanded to a list of files or buffers.
The counterpart to `org-ql-view--contract-buffers-files'."
(cl-labels
((process-buffers-files-elements
(_buffers-files)
(pcase-exhaustive _buffers-files
("all" (--select (equal (buffer-local-value 'major-mode it) 'org-mode)
(buffer-list)))
("org-agenda-files" (org-agenda-files))
("org-directory" (org-ql-search-directories-files))
((or "" "buffer") (current-buffer))
((pred bufferp) (list _buffers-files))
((pred listp) (list _buffers-files))
;; A single filename.
((pred stringp) (list _buffers-files)))))
(remove-duplicates (-mapcat #'process-buffers-files-elements
(remove nil (if (listp buffers-files)
buffers-files
(list buffer-files))))
:test 'equalp)))
(--> (-list buffers-files)
(pcase-exhaustive it
("all" (--select (equal (buffer-local-value 'major-mode it) 'org-mode)
(buffer-list)))
("org-agenda-files" (org-agenda-files))
("org-directory" (org-ql-search-directories-files))
((or "" "buffer") (current-buffer))
((pred bufferp) (list it))
((pred listp) (list it))
;; A single filename.
((pred stringp) (list it)))
-non-nil -uniq -flatten))
(defun org-ql-view--complete-super-groups ()
"Return value for `org-ql-view-super-groups' using completion."