add rudimentary up navigation

2026-04-19 22:04:35 -04:00 · 2025-11-23 03:00:44 +13:00
parent 54eaf4186f
commit e04ff565ee
2 changed files with 16 additions and 2 deletions
@@ -32,4 +32,7 @@
  (uri-decode (regexp-replace* #rx"#" str "/")))

 (define (url-segments->guess-title segments)
-  (regexp-replace* #rx"_" (cadr segments) " "))
+  (string-join
+   (for/list ([s (in-list (cdr segments))])
+     (regexp-replace* #rx"_" s " "))
+   "/"))