summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--z.scm8
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")