open Brr
open Brr_note
module Js = Js_of_ocaml.Js

let popup
  : ?form:('a Note.signal * El.t) option -> title:Jstr.t -> 'a option Note.event
  = fun ?(form = None) ~title ->

    (* Ensure we keep a track for the signal event.

       This looks a bit like the old memory magment in C, as it require to
       destroy the logger each time the popup is removed. *)
    let log_opt = Option.map
        (fun (values, _) -> Note.S.log values (fun _ -> ()))
        form in

    let close_btn =
      El.span
        ~at:At.[class' (Jstr.v "modal-close")]
        [ El.txt' "×"]

    and submit_btn = El.input ()
        ~at:At.[type' (Jstr.v "submit")] in

    let container = match form with
      | None -> El.div
      | Some _ -> El.form

    and body = match form with
      | None -> El.div []
      | Some (_, content) -> content

    and footer = match form with
      | None -> El.txt Jstr.empty
      | Some _ ->

        El.div [ submit_btn ]
          ~at:At.[class' (Jstr.v "row")] in

    (* HTML Element creation *)
    let el = El.div
        ~at:At.[class' (Jstr.v "modal")]
        [ container
            ~at:At.[class' (Jstr.v "modal-content")]
            [ El.div
                ~at:At.[class' (Jstr.v "modal-header")]
                [ close_btn
                ; El.h3
                    [ El.txt title ]]
            ; El.div
                ~at:At.[class' (Jstr.v "modal-body")]
                [ body ]
            ; El.div
                ~at:At.[class' (Jstr.v "modal-footer")]
                [ footer ]]] in

    let () = El.append_children (Document.body G.document)
        [ el ] in

    (* Event handler *)
    let close_event = Evr.on_el
        Ev.click
        (fun _ ->
           El.remove el;
           Option.iter Note.Logr.destroy log_opt;
           None)
        close_btn

    and submit_event = Evr.on_el
        Ev.click
        (fun _ ->
           El.remove el;
           Option.iter Note.Logr.destroy log_opt;
           Option.map (fun v -> Note.S.value (fst v)) form)
        submit_btn in

    Note.E.select
      [ close_event
      ; submit_event ]