From 996d6485603a9e2a22edaf8343291615c5884d0f Mon Sep 17 00:00:00 2001
From: Adam Porter <adam@alphapapa.net>
Date: Sun, 8 Mar 2020 11:12:49 -0500
Subject: [PATCH] Fix: (org-ql-view--contract-buffers-files) Handle
 org-agenda-files

---
 org-ql-view.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/org-ql-view.el b/org-ql-view.el
index 941225b..20eb02e 100644
--- a/org-ql-view.el
+++ b/org-ql-view.el
@@ -841,6 +841,8 @@ current buffer.  Otherwise BUFFERS-FILES is returned unchanged."
                            (concat "'" (prin1-to-string buffers-files))))))
       ((pred (equal (current-buffer)))
        "buffer")
+      ((or 'org-agenda-files '(function org-agenda-files))
+       "org-agenda-files")
       (_ (let ((print-length nil))
            (prin1-to-string buffers-files))))))