sig
  val event_target : unit -> Dom_html.eventTarget Js.t option
  val set_event_target : Dom_html.eventTarget Js.t option -> unit
  val key_capture : unit -> Useri_base.Key.id -> bool
  val set_key_capture : (Useri_base.Key.id -> bool) -> unit
end