let set_window_common_keymaps window =
  Okey.remove_widget window ();
  let add ((mods, k), com) =
    Okey.add window ~mods k (fun () -> Cam_commands.eval_command com)
  in
  List.iter add keymap_common#get