bindings for geolocation getCurrentPosition

gleam.toml

···
 name = "plinth"
-version = "0.4.5"
+version = "0.4.6"
 description = "Bindings to Node.js and browser platform APIs"
 target = "javascript"
 

src/geolocation_ffi.mjs

···
+export function getCurrentPosition(success, error) {
+  globalThis.navigator.geolocation.getCurrentPosition(success, error)
+}

src/plinth/browser/geolocation.gleam

···
+import gleam/dynamic
+import gleam/javascript/promise
+import gleam/option.{type Option}
+import gleam/string
+
+pub type JSGeolocationPosition
+
+pub type JSGeolocationPositionError
+
+pub type GeolocationPosition {
+  GeolocationPosition(
+    latitude: Float,
+    longitude: Float,
+    altitude: Option(Float),
+    accuracy: Float,
+    altitude_accuracy: Option(Float),
+    heading: Option(Float),
+    speed: Option(Float),
+    // separate timestamp field in native object
+    timestamp: Float,
+  )
+}
+
+pub fn decode(raw) {
+  dynamic.decode8(
+    GeolocationPosition,
+    dynamic.field("coords", dynamic.field("latitude", dynamic.float)),
+    dynamic.field("coords", dynamic.field("longitude", dynamic.float)),
+    dynamic.field(
+      "coords",
+      dynamic.field("altitude", dynamic.optional(dynamic.float)),
+    ),
+    dynamic.field("coords", dynamic.field("accuracy", dynamic.float)),
+    dynamic.field(
+      "coords",
+      dynamic.field("altitudeAccuracy", dynamic.optional(dynamic.float)),
+    ),
+    dynamic.field(
+      "coords",
+      dynamic.field("heading", dynamic.optional(dynamic.float)),
+    ),
+    dynamic.field(
+      "coords",
+      dynamic.field("speed", dynamic.optional(dynamic.float)),
+    ),
+    dynamic.field("timestamp", dynamic.float),
+  )(raw)
+}
+
+@external(javascript, "../../geolocation_ffi.mjs", "getCurrentPosition")
+pub fn get_current_position(
+  success: fn(JSGeolocationPosition) -> Nil,
+  error: fn(JSGeolocationPositionError) -> Nil,
+) -> Nil
+
+pub fn current_position() {
+  promise.new(fn(resolve) {
+    get_current_position(
+      fn(position) {
+        case decode(dynamic.from(position)) {
+          Ok(position) -> Ok(position)
+          Error(reason) -> Error(string.inspect(reason))
+        }
+        |> resolve()
+      },
+      fn(error) { resolve(Error(string.inspect(error))) },
+    )
+  })
+}