use yojson to make geojson: fix bug with utf8

src/dune

@@ -18,6 +18,7 @@
   user
   user_profile)
  (libraries
+  yojson
   uuidm
   caqti.blocking
   caqti-driver-sqlite3

src/pp_babillard.ml

@@ -190,20 +190,22 @@ let get_markers () =
   let markers = List.map Result.get_ok (List.filter Result.is_ok markers_res) in
 
   let pp_marker fmt (lat, lng, content, thread_id) =
-    Format.fprintf fmt
+    (* geojson use lng lat, and not lat lng*)
-      {|{
+    let json =
-  "type": "Feature",
+      `Assoc
-  "geometry": {
+        [ ("type", `String "Feature")
-    "type": "Point",
+        ; ( "geometry"
-    "coordinates": [%s,%s]
+          , `Assoc
-  },
+              [ ("type", `String "Point")
-  "properties": {
+              ; ("coordinates", `List [ `Float lng; `Float lat ])
-    "content": "%s",
+              ] )
-    "thread_id": "%s"
+        ; ( "properties"
-  }}|}
+          , `Assoc
-      (* geojson use lng lat, and not lat lng*)
+              [ ("content", `String content); ("thread_id", `String thread_id) ]
-      (Float.to_string lng)
+          )
-      (Float.to_string lat) (String.escaped content) thread_id
+        ]
+    in
+    Yojson.pretty_print fmt json
   in
   let markers =
     Format.asprintf "[%a]"