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