From dacf2830d3706acaa46b2928f67c5ff2b572f954 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Sat, 29 Jun 2024 07:52:54 -0500 Subject: [PATCH] WIP --- org-ql-view.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/org-ql-view.el b/org-ql-view.el index 02ebb3f8..e115920a 100644 --- a/org-ql-view.el +++ b/org-ql-view.el @@ -634,11 +634,11 @@ purposes of compatibility with changes in Org 9.4." read-value)) read-value)) (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 (car (alist-get "super-groups" params nil nil #'string=)) (read it))) - (title (--when-let (alist-get "title" params nil nil #'string=) + (title (--when-let (car (alist-get "title" params nil nil #'string=)) (read it))) - (buffers-files (--if-let (alist-get "buffers-files" params nil nil #'string=) + (buffers-files (--if-let (car (alist-get "buffers-files" params nil nil #'string=)) (org-ql-view--expand-buffers-files (read it)) (current-buffer)))) (unless (or (bufferp buffers-files)