Fix links in tag view, header link, and non-found page

1 files 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")