let keyhit_spec
    ?(mods= !default_modifiers)
    ?(mask= !default_mask)
    key =
  let n_mods = int_of_modifiers mods in
  let n_mask = lnot (int_of_modifiers mask) in
  (n_mods, n_mask, key)