(*
 * SPDX-FileCopyrightText: 2024 The Forester Project Contributors
 * SPDX-FileCopyrightText: 2026 The Forester Project Contributors
 *
 * SPDX-License-Identifier: GPL-3.0-or-later
 *)

open Brr

let window () = Window.to_jv G.window
let get (key : string) (of_jv : Jv.t -> 'a) : 'a option =
  Jv.find (window ()) key |> Option.map of_jv
let string (key : string) : string option =
  Jv.Jstr.find (window ()) key |> Option.map Jstr.to_string
let int (key : string) : int option = Jv.Int.find (window ()) key
let bool (key : string) : bool option = Jv.Bool.find (window ()) key