add geolocalize button

src/babillard_page.eml.html

@@ -14,6 +14,7 @@ let f ~board request =
 <a href=<%s url %>>[New Thread]</a>
 % end;
 <div id="map"></div>
+<button onclick="geolocalize()">Geolocalize me</button>
       </div>
       <div class="col-md-6">
 <div id="thread_preview_div"></div>

src/js_babillard.ml

@@ -1,6 +1,6 @@
 let log = Format.printf
 
-(*TODO fix duplicate module *)
+(*TODO fix duplicate modules *)
 module Leaflet = struct
   (* get the leaflet object *)
   let leaflet =
@@ -96,6 +96,29 @@ module Leaflet = struct
     ()
 end
 
+module Geolocalize = struct
+  let update_location geo =
+    log "update_location@.";
+    match geo with
+    | Error _ -> failwith "error in geolocation"
+    | Ok geo ->
+      let lat = Brr_io.Geolocation.Pos.latitude geo in
+      let lng = Brr_io.Geolocation.Pos.longitude geo in
+      let latlng =
+        Jv.call Leaflet.leaflet "latLng" [| Jv.of_float lat; Jv.of_float lng |]
+      in
+      ignore @@ Jv.call Leaflet.map "setView" [| latlng; Jv.of_int 13 |];
+      ()
+
+  let geolocalize () =
+    log "geolocalize@.";
+    let l = Brr_io.Geolocation.of_navigator Brr.G.navigator in
+    ignore @@ Fut.await (Brr_io.Geolocation.get l) update_location;
+    ()
+
+  let () = Jv.set Jv.global "geolocalize" (Jv.repr geolocalize)
+end
+
 module Marker = struct
   let board =
     let board_div = Jv.get Jv.global "board" in

src/js_newthread.ml

@@ -1,6 +1,6 @@
 let log = Format.printf
 
-(*TODO fix duplicate module *)
+(*TODO fix duplicate modules *)
 module Leaflet = struct
   (* get the leaflet object *)
   let leaflet =
@@ -96,6 +96,29 @@ module Leaflet = struct
     ()
 end
 
+module Geolocalize = struct
+  let update_location geo =
+    log "update_location@.";
+    match geo with
+    | Error _ -> failwith "error in geolocation"
+    | Ok geo ->
+      let lat = Brr_io.Geolocation.Pos.latitude geo in
+      let lng = Brr_io.Geolocation.Pos.longitude geo in
+      let latlng =
+        Jv.call Leaflet.leaflet "latLng" [| Jv.of_float lat; Jv.of_float lng |]
+      in
+      ignore @@ Jv.call Leaflet.map "setView" [| latlng; Jv.of_int 13 |];
+      ()
+
+  let geolocalize () =
+    log "geolocalize@.";
+    let l = Brr_io.Geolocation.of_navigator Brr.G.navigator in
+    ignore @@ Fut.await (Brr_io.Geolocation.get l) update_location;
+    ()
+
+  let () = Jv.set Jv.global "geolocalize" (Jv.repr geolocalize)
+end
+
 module Marker = struct
   let board =
     let board_div = Jv.get Jv.global "board" in

src/newthread_page.eml.html

@@ -10,6 +10,7 @@ Login to make a new thread.
 <div class="row mb-3">
     <div class="col-md-6">
         <div id="map"></div>
+        <button onclick="geolocalize()">Geolocalize me</button>
     </div>
 
     <div class="col-md-6" id="newthread-form">