rename geochan

This commit is contained in:
Swrup 2025-04-15 05:59:03 +02:00
parent 55d2abefb4
commit 930c49e8d6
11 changed files with 33 additions and 61 deletions

View file

@ -350,7 +350,7 @@ let def_page_title t_s =
| New_thread -> "new thread"
| kind -> Kind.to_string kind )
in
Fmt.str "%s | Permap" s |> String.capitalize_ascii |> Jstr.v
Fmt.str "%s | Geochan" s |> String.capitalize_ascii |> Jstr.v
|> Document.set_title G.document
in
S.map (fun t -> t.page) t_s |> S.changes |> hold_endless set_title;