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

8
org-ql-agenda.el
View file

@ -176,10 +176,10 @@ 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)
("Don't group" nil) ("Don't group" nil)
(property (list (list (intern (concat ":auto-" property)))))) (property (list (list (intern (concat ":auto-" property))))))