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

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

Browse source
This commit is contained in:
Adam Porter 2019-08-13 22:35:06 -05:00
parent 9c45a020c1
commit 0a69207759
2 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
README.org
View file

@ -413,6 +413,7 @@ Expands into a call to ~org-ql-select~ with the same arguments. For convenience
+ Face =org-ql-agenda-due-date=. + Face =org-ql-agenda-due-date=.
+ Selectors ~(children)~ and ~(descendants)~. + Selectors ~(children)~ and ~(descendants)~.
+ Function ~org-ql-search~ and macro ~org-ql-agenda~ accept a ~:title~ argument, which is displayed in the header. + Function ~org-ql-search~ and macro ~org-ql-agenda~ accept a ~:title~ argument, which is displayed in the header.
+ Command ~org-ql-search~ offers global ~org-super-agenda-groups~ in completion.
*Changed* *Changed*
+ Function ~org-ql-query~ renamed to ~org-ql-select~. ~org-ql-query~ now refers to a new function. + Function ~org-ql-query~ renamed to ~org-ql-select~. ~org-ql-query~ now refers to a new function.

2
org-ql-agenda.el
View file

@ -177,8 +177,10 @@ TITLE: An optional string displayed in the header."
:narrow (eq current-prefix-arg '(4)) :narrow (eq current-prefix-arg '(4))
:groups (pcase (completing-read "Group by: " :groups (pcase (completing-read "Group by: "
(cons "Don't group" (cons "Don't group"
"Global groups"
(cl-loop for type in org-super-agenda-auto-selector-keywords (cl-loop for type in org-super-agenda-auto-selector-keywords
collect (substring (symbol-name type) 6)))) collect (substring (symbol-name type) 6))))
("Global groups" org-super-agenda-groups)
("Don't group" nil) ("Don't group" nil)
(property (list (list (intern (concat ":auto-" property)))))) (property (list (list (intern (concat ":auto-" property))))))
:sort (pcase (completing-read "Sort by: " :sort (pcase (completing-read "Sort by: "