Add: (org-ql-search) Offer global groups

2019-08-13 22:35:06 -05:00 · 2019-08-13 22:35:06 -05:00 · 0a69207759
commit 0a69207759
parent 9c45a020c1
2 changed files with 3 additions and 0 deletions
--- a/org-ql-agenda.el
+++ b/org-ql-agenda.el
@ -177,8 +177,10 @@ TITLE: An optional string displayed in the header."
                     :narrow (eq current-prefix-arg '(4))
                     :groups (pcase (completing-read "Group by: "
                                                     (cons "Don't group"
+                                                           "Global groups"
                                                           (cl-loop for type in org-super-agenda-auto-selector-keywords
                                                                    collect (substring (symbol-name type) 6))))
+                               ("Global groups" org-super-agenda-groups)
                               ("Don't group" nil)
                               (property (list (list (intern (concat ":auto-" property))))))
                     :sort (pcase (completing-read "Sort by: "