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

Fix: (org-ql-search) Interactive completion

Browse source
This commit is contained in:
Adam Porter 2019-08-15 23:34:23 -05:00
parent 6cd9341146
commit da711ebb35
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
org-ql-agenda.el
View file

@ -176,8 +176,8 @@ TITLE: An optional string displayed in the header."
(read-minibuffer "Query: ") (read-minibuffer "Query: ")
: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" (append (list "Don't group"
"Global groups" "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) ("Global groups" org-super-agenda-groups)