rename geochan
This commit is contained in:
parent
55d2abefb4
commit
930c49e8d6
11 changed files with 33 additions and 61 deletions
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue