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) (defun org-ql-view--expand-buffers-files (buffers-files)
"Return BUFFERS-FILES expanded to a list of files or buffers. "Return BUFFERS-FILES expanded to a list of files or buffers.
The counterpart to `org-ql-view--contract-buffers-files'." The counterpart to `org-ql-view--contract-buffers-files'."
(cl-labels (--> (-list buffers-files)
((process-buffers-files-elements (pcase-exhaustive it
(_buffers-files) ("all" (--select (equal (buffer-local-value 'major-mode it) 'org-mode)
(pcase-exhaustive _buffers-files (buffer-list)))
("all" (--select (equal (buffer-local-value 'major-mode it) 'org-mode) ("org-agenda-files" (org-agenda-files))
(buffer-list))) ("org-directory" (org-ql-search-directories-files))
("org-agenda-files" (org-agenda-files)) ((or "" "buffer") (current-buffer))
("org-directory" (org-ql-search-directories-files)) ((pred bufferp) (list it))
((or "" "buffer") (current-buffer)) ((pred listp) (list it))
((pred bufferp) (list _buffers-files)) ;; A single filename.
((pred listp) (list _buffers-files)) ((pred stringp) (list it)))
;; A single filename. -non-nil -uniq -flatten))
((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)))
(defun org-ql-view--complete-super-groups () (defun org-ql-view--complete-super-groups ()
"Return value for `org-ql-view-super-groups' using completion." "Return value for `org-ql-view-super-groups' using completion."