rename geochan

src/client/html.ml

@@ -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;

src/dune

@@ -1,12 +1,12 @@
 (executable
- (public_name permap)
- (modules permap)
- (package permap)
+ (public_name geochan)
+ (modules geochan)
+ (package geochan)
  (libraries
   config_serv_impl ; implements config_serv
   config_impl ; implements config
   shared
-  permap
+  geochan
   ;;
   dream
   fmt
@@ -19,9 +19,9 @@
   (:standard -open Prelude)))
 
 (library
- (name permap)
+ (name geochan)
  (wrapped false)
- (modules :standard \ permap json_data syntax types err validate_str)
+ (modules :standard \ geochan json_data syntax types err validate_str)
  (libraries
   config_serv ; virtual
   config ; virtual

src/html.ml

@@ -15,7 +15,7 @@ let page_of_res res =
 
 (* TODO have a loading animation *)
 let app_start_page =
-  let title = "Permap" in
+  let title = "Geochan" in
   let body = El.body [] in
   let styles =
     let leaflet_style = "/assets/css/leaflet.css" in

src/virtual/impl/dir.ml

@@ -1,9 +1,9 @@
 module App_id = struct
   let qualifier = "org"
 
-  let organization = "Permap"
+  let organization = "Geochan"
 
-  let application = "permap"
+  let application = "geochan"
 end
 
 module Project_dirs = Directories.Project_dirs (App_id)

src/virtual/make_config_lib.ml

@@ -138,7 +138,7 @@ let print_config_serv () =
       | Error (`Msg _) ->
         Fmt.error_msg "error when creating %a" Fpath.pp data_dir
     in
-    let db_path = Fpath.(data_dir / "permap.db") in
+    let db_path = Fpath.(data_dir / "geochan.db") in
     let s = Uri.of_string @@ Fmt.str "sqlite3://%a" Fpath.pp db_path in
     print_uri "db_uri" s;
     ()