let add_shortcut w l ((mods, k), action) = try let (c_opt, f) = List.assoc action l in Okey.add ?cond: c_opt w ~mods k f with Not_found -> prerr_endline (Cam_messages.error_unknown_action action)