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

This commit is contained in:
Adam Porter 2020-11-11 22:52:54 -06:00
parent 6ab74454d0
commit 689cfd68e7

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.
(sort (--when-let (alist-get "sort" params nil nil #'string=)
(read it)))
(org-super-agenda-allow-unsafe-groups nil) ; Disallow unsafe group selectors.
(groups (--when-let (alist-get "super-groups" params nil nil #'string=)
(read it)))
(title (--when-let (alist-get "title" params nil nil #'string=)