let hide () =
  let modal = Document.query_selector_unsafe "#g-Modal" in
  Element.remove_child Document.body modal

let show content =
  let view =
    H.div
      [| HA.id "g-Modal" |]
      [| H.div
          [| HA.class_ "g-Modal__Curtain"
          ;  HE.on_click (fun _ -> hide ())
          |]
          [| |]
      ;  H.div
          [| HA.class_ "g-Modal__Window" |]
          [| Button.raw
              [| HA.class_ "g-Modal__Close"
              ;  HE.on_click (fun _ -> hide ())
              |]
              [| H.div [| HA.class_ "fa fa-close" |] [| |] |]
          ;  content
          |]
      |]
  in
  Element.append_child Document.body view