diff options
-rw-r--r-- | z.scm | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -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") |