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

Fix: (org-ql-search) Accept symbol as arg to :super-groups

Browse source
This commit is contained in:
Adam Porter 2019-10-19 01:06:22 -05:00
parent be7ac9921d
commit f2910261e2
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
org-ql-search.el
View file

@ -166,7 +166,9 @@ necessary."
(org-ql-view-super-groups super-groups)
(org-ql-view-title title))
(when super-groups
(let ((org-super-agenda-groups super-groups))
(let ((org-super-agenda-groups (cl-etypecase super-groups
(symbol (symbol-value super-groups))
(list super-groups))))
(setf strings (org-super-agenda--group-items strings))))
(org-ql-view--display :buffer buffer :header header
:string (s-join "\n" strings))))