cripslock

commit c42bcc14efcb938904039b5d9fc0eb6f137c1453
parent 1df6d820cc5eb344c8048e73e17187523d678c6a
Author: Daniel Barlow <dan@telent.net>
Date:   Wed, 30 Jul 2025 22:31:51 +0100

use cq-stream where needed

Diffstat:
M
main.fnl
 | 
7
+++----

1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/main.fnl b/main.fnl
@@ -126,7 +126,7 @@
   { :write #(stream:write_chunk $2) })
 
 (fn sidebar [site stream]
-  (let [s { :write #(stream:write_chunk $2) }
+  (let [s (cq-stream stream)
         topics (site:topics)
         ladder (all-months site)]
     (stream:write_chunk "<aside>
@@ -172,7 +172,7 @@ in the Fediverse at <a href=\"https://axillae.telent.net/\">@dan@axillae.telent.
 
 (fn send-post [post stream excerpt?]
   (let [path (. post :full-path)
-        s { :write #(stream:write_chunk $2) } ]
+        s (cq-stream stream)]
     (print :path path)
     (with-open [f (io.open path  )]
       (when f
@@ -257,8 +257,7 @@ in the Fediverse at <a href=\"https://axillae.telent.net/\">@dan@axillae.telent.
 (fn send-topic-page [stream slug]
   (let [post (post-index:get slug)
         results (post-index:search {:filter {:topic slug}})
-        s { :write #(stream:write_chunk $2) }]
-    (print (view results))
+        s (cq-stream stream)]
     (server.headers stream { })
     (page-header stream (.. "Topic: " slug))
     (if post