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

Fix: (-view--link-open) Set org-super-agenda-allow-unsafe-groups

Browse source
This commit is contained in:
Adam Porter 2020-11-11 22:52:54 -06:00
parent 6ab74454d0
commit 689cfd68e7
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
org-ql-view.el
View file

@ -617,6 +617,7 @@ protocol. See, e.g. `org-ql-view--link-store'."
;; `url-parse-query-string' returns "improper" alists, which makes this awkward. ;; `url-parse-query-string' returns "improper" alists, which makes this awkward.
(sort (--when-let (alist-get "sort" params nil nil #'string=) (sort (--when-let (alist-get "sort" params nil nil #'string=)
(read it))) (read it)))
(org-super-agenda-allow-unsafe-groups nil) ; Disallow unsafe group selectors.
(groups (--when-let (alist-get "super-groups" params nil nil #'string=) (groups (--when-let (alist-get "super-groups" params nil nil #'string=)
(read it))) (read it)))
(title (--when-let (alist-get "title" params nil nil #'string=) (title (--when-let (alist-get "title" params nil nil #'string=)