From 18def9313acdc8e55278b38b8cc84d086fe8b6ce Mon Sep 17 00:00:00 2001
From: Adam Porter <adam@alphapapa.net>
Date: Tue, 16 Jul 2019 19:07:55 -0500
Subject: [PATCH] Change: (org-ql-agenda--agenda) Avoid eval

---
 org-ql-agenda.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/org-ql-agenda.el b/org-ql-agenda.el
index 921d121..0aced86 100644
--- a/org-ql-agenda.el
+++ b/org-ql-agenda.el
@@ -206,13 +206,14 @@ SORT: One or a list of `org-ql' sorting functions, like `date' or
   (declare (indent defun))
   (when (and super-groups (not org-super-agenda-mode))
     (user-error "`org-super-agenda-mode' must be activated to use grouping"))
-  ;; I think it's reasonable to use `eval' here.
   (let* ((org-super-agenda-groups super-groups)
-         (entries (--> (eval `(org-ql ',buffers-files
-                                ,query
-                                :sort ,sort
-                                :markers t
-                                :narrow ,narrow))
+         (entries (--> (org-ql-query buffers-files
+                         query
+                         :sort sort
+                         :narrow narrow
+                         :action (lambda ()
+                                   (->> (org-element-headline-parser (line-end-position))
+                                        org-ql--add-markers)))
                        (mapcar #'org-ql-agenda--format-element it)
                        (cond ((bound-and-true-p org-super-agenda-mode) (org-super-agenda--group-items it))
                              (t it))