[elpa] externals/taxy 933d33d 1/4: Example: Tidy (taxy-org-ql-search)

[ELPA Syncer]

branch: externals/taxy
commit 933d33d4772c103d190892dd32656ced848c57c2
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Example: Tidy (taxy-org-ql-search)
---
 examples/taxy-org-ql-view.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/examples/taxy-org-ql-view.el b/examples/taxy-org-ql-view.el
index 6dac1c7..141aeb5 100644
--- a/examples/taxy-org-ql-view.el
+++ b/examples/taxy-org-ql-view.el
@@ -187,14 +187,14 @@ KEYS is passed to `taxy-org-ql-view-take-fn', which see."
 (cl-defun taxy-org-ql-search
     (buffers-or-files query &key taxy-keys sort)
   "Show Org QL QUERY on BUFFERS-OR-FILES with `taxy-org-ql-view'."
-  (declare (indent defun))
-  (let* ((title (format "Query:%S  In:%s" query buffers-or-files))
+  (declare (indent 1))
+  (let* ((title (format "Query:%S  In:%S" query buffers-or-files))
         (taxy (taxy-org-ql-view-make-taxy title
                 taxy-keys))
         (items (org-ql-select buffers-or-files query
                  :action 'element-with-markers
                  :sort sort))
-        (buffer-name (format "*Taxy Org QL View: %s" title)))
+        (buffer-name (format "*Taxy Org QL View: %s*" title)))
     (when (get-buffer buffer-name)
       ;; Reusing an existing magit-section buffer seems to cause a lot
       ;; of GC, so just kill it if it already exists.