From f2910261e2eea2f6c48b2e70b207b0f242b957cf Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Sat, 19 Oct 2019 01:06:22 -0500 Subject: [PATCH] Fix: (org-ql-search) Accept symbol as arg to :super-groups --- README.org | 5 +++++ org-ql-search.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/README.org b/README.org index f3a79b5..8f9a8b1 100644 --- a/README.org +++ b/README.org @@ -363,6 +363,11 @@ Expands into a call to ~org-ql-select~ with the same arguments. For convenience /Note:/ Breaking changes may be made before version 1.0, but in the event of major changes, attempts at backward compatibility will be made with obsolescence declarations, translation of arguments, etc. Users who need stability guarantees before 1.0 may choose to use tagged stable releases. +** 0.3.2-pre + +*Fixed* ++ In =org-ql-search=, accept symbol as ~:super-groups~ argument. + ** 0.3.1 *Fixed* diff --git a/org-ql-search.el b/org-ql-search.el index 45f349a..6d96871 100644 --- a/org-ql-search.el +++ b/org-ql-search.el @@ -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))))