From 58ae8838564d26143450549f7787c1540e068a04 Mon Sep 17 00:00:00 2001
From: Adam Porter <adam@alphapapa.net>
Date: Sun, 20 Mar 2022 18:48:43 -0500
Subject: [PATCH] Change: Use --header-line-format for query headings

---
 taxy-org-ql-view.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/taxy-org-ql-view.el b/taxy-org-ql-view.el
index a5bbcae..efc871c 100644
--- a/taxy-org-ql-view.el
+++ b/taxy-org-ql-view.el
@@ -354,10 +354,11 @@ Searches in ELEMENT's buffer."
                                 :level-indent org-ql-view-level-indent
                                 :item-indent org-ql-view-item-indent
                                 args)))
-      (let* ((title (format "Query:%S  In:%S"
-                            (or (org-ql--query-sexp-to-string query)
-				(prin1-to-string query))
-			    buffers-or-files))
+      (let* ((title (org-ql-view--header-line-format
+		     :buffers-files buffers-or-files
+		     :query query
+		     ;; FIXME: View titles.
+		     ))
              (items (org-ql-select buffers-or-files query
                       :action 'element-with-markers
                       :sort sort))