From 3420022462e7f27ee8821d4192ce86eb157a3af2 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Fri, 15 May 2020 12:58:20 -0700 Subject: Fix links in tag view, header link, and non-found page --- z.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/z.scm b/z.scm index 73e6dfc..50ea60a 100644 --- a/z.scm +++ b/z.scm @@ -224,7 +224,8 @@ NL < '\n' (content "width=device-width, initial-scale=1")))) (style ,*css*) (body - (h1 "z") + (h1 (a (@ (href "/")) + "z")) ,*navbar* ,@body))) @@ -285,11 +286,12 @@ NL < '\n' (respond `((ul ,@(turn (tagged tag) (lambda [id] - `(li (a (@ (href ,(fmt "/node/~a" id))) + `(li (a (@ (href ,(fmt "/node/~a" (id->string id)))) ,(fmt "~a: ~a" (id->string id) (title (load-node id))))))))))] - [_ (respond "not found")])) + [_ (respond '(h1 "not found") + #:title "z - not found")])) (define* (serve #:key (port 8080)) (prn "z") -- cgit v1.2.3