From 6e58eb2c990aad59ec84f1c7751028a18d8cb9d0 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Fri, 15 May 2020 13:53:15 -0700
Subject: Replace quote syntax with list function

Way easier to read this way.
---
 z.scm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'z.scm')

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
-- 
cgit v1.2.3