cripslock

commit d7431e8062abe640f35a336fa41b8a2da965754f
parent 85533b6e5003cc01a84cb5959bcd0a7ade8fccb5
Author: Daniel Barlow <dan@telent.net>
Date:   Mon, 21 Jul 2025 14:13:57 +0100

add rudinmentary index page

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

1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/main.fnl b/main.fnl
@@ -201,7 +201,15 @@
                   ))))
         (stream:write_chunk "" true))
       :search
-      (stream:write_chunk "hello this is a search page" true))))
+      (do
+        (stream:write_chunk "<p><ul>")
+        (each [slug post (pairs post-index)]
+          (stream:write_chunk
+           (string.format
+            "<li><a href=%q>%s</a></li>"
+            slug
+            (or post.title post.subject))))
+        (stream:write_chunk "</ul>" true)))))
 
 (fn response-for-route [headers method stream route]
   (headers:upsert ":status" :200)