Replace quote syntax with list function

Way easier to read this way.

1 files changed, 8 insertions, 5 deletions

diff --git a/z.scm b/z.scm
index 50ea60a..65f73af 100644
--- a/z.scm
+++ b/z.scm
@@ -268,11 +268,14 @@ NL < '\n'
      (let* ([node (load-node (string->id id))]
             [txt (or (get-content node) "")])
        (respond
-        `(,(->> txt
-                pandoc
-                ;; wrap in article tags so sxml includes all of the content
-               ((/. s (string.str "<article>" s "</article>")))
-               xml->sxml))
+        (->> txt
+             pandoc
+             ;; wrap in article tags so sxml includes all of the
+             ;; content, not jus the first element
+             ((/. s (string.str "<article>" s "</article>")))
+             xml->sxml
+             ;;  wrap in a list to prevent *TOP* from being rendered
+             list)
         #:title (fmt "z - ~a" (title node))))]
     [("tag")
      (begin