sig
  val keymap_common :
    ((Okey.modifier list * Gdk.keysym) * string) Config_file.list_cp
  val init_common_keymaps : unit -> unit
  val set_window_common_keymaps : GWindow.window -> unit
  val configure_keymaps :
    string ->
    < get : ((Gdk.Tags.modifier list * Gdk.keysym) * string) list;
      set : ((Gdk.Tags.modifier list * Gdk.keysym) * string) list -> 'a; .. > ->
    bool -> string list -> (unit -> unit) -> unit -> unit
  val configure_common_keymaps : unit -> unit
end