open Brr

let send_raw : filename:Jstr.t -> Jstr.t -> unit =
 fun ~filename data ->
  (* Create the link to download the the element, and simulate a click on it *)
  let a =
    El.a
      ~at:
        At.[ href Jv.Id.(of_jv @@ to_jv data); v (Jstr.v "download") filename ]
      []
  in
  El.click a


(** Send a file to the user. *)
let send : mime_type:Jstr.t -> filename:Jstr.t -> Jstr.t -> unit =
 fun ~mime_type ~filename content ->
  let btoa = Jv.get Jv.global "btoa" in
  let base64data = Jv.apply btoa [| Jv.of_jstr content |] in

  let data =
    Jv.to_jstr
    @@ Jv.call
         (Jv.of_string "data:")
         "concat"
         [| Jv.of_jstr mime_type; Jv.of_jstr (Jstr.v ";base64,"); base64data |]
  in

  send_raw ~filename data


(** Load the content at the given URL and return it 
    The response body is only loaded if the result code is 200
 *)
let get_content_from_url :
    string -> (int * Jstr.t, Jv.Error.t) result Note.event =
 fun resource ->
  Brr_io.Fetch.Request.v (Jstr.v resource)
  |> Brr_io.Fetch.request
  |> fun f ->
  Fut.bind f (fun result ->
      match result with
      | Error e -> Fut.return (Error e)
      | Ok response ->
        (* Check the status before loading the response itself *)
        ( match Brr_io.Fetch.Response.status response with
        | 200 ->
            Brr_io.Fetch.Response.as_body response
            |> Brr_io.Fetch.Body.text
            |> Fut.map
                 (Result.map (fun v ->
                      (Brr_io.Fetch.Response.status response, v) ) )
        | other -> Fut.return (Ok (other, Jstr.empty)) ) )
  |> Brr_note.Futr.to_event