cripslock

commit bc4ea71f10f92d6a6a550d71c462dff083bcd3c5
parent 6ae237e3046bf27a5234081fc1d7de1393453390
Author: Daniel Barlow <dan@telent.net>
Date:   Thu, 10 Sep 2026 00:11:06 +0100

add link to cc by-nc-nd in page footer

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

1 file changed, 16 insertions(+), 4 deletions(-)
diff --git a/main.fnl b/main.fnl
@@ -112,9 +112,23 @@ img.floated { width: 40%%; float: right; clear: right; border: 1px #555 solid; b
     title)))
 
 
+(fn stream-from-cq-stream [stream]
+  { :write #(stream:write_chunk $2 false) })
+
+
 (fn page-footer [stream]
-  (stream:write_chunk
-   "<footer style=\"margin-top: 1em; clear: both;\"/><div>Powered by <a href=\"https://gti.telent.net/dan/cripslock\">cripslock</a>. Copyright &copy; 2001-2025 Daniel Barlow</div></footer></body></html>"))
+  (let [y (os.date "%Y")
+        s (stream-from-cq-stream stream)]
+    (to-html
+     [[:footer {:style "margin-top: 1em; clear: both;"}]
+      [:div
+       "Powered by "
+       [[:a {:href "https://gti.telent.net/dan/cripslock"}]
+        "cripslock"]
+       ". Copyright &copy; 2001-" y " Daniel Barlow "
+       [[:a {:href "https://creativecommons.org/licenses/by-nc-nd/4.0/"}]
+        "CC BY-NC-ND"]]]
+     s)))
 
 (fn month-name [m]
   (. ["Jan" "Feb" "Mar" "Apr" "May" "Jun"
@@ -141,8 +155,6 @@ img.floated { width: 40%%; float: right; clear: right; border: 1px #555 solid; b
             ]
         links))))
 
-(fn stream-from-cq-stream [stream]
-  { :write #(stream:write_chunk $2 false) })
 
 
 (fn topics-html [topics]