let configure_keymaps title op new_allowed available_commands f_save () =
  let p =
    Configwin.list
      ~f: (fun l -> op#set l; f_save ())
      ~titles: [ Cam_messages.binding ; Cam_messages.command ]
      ~add: (add_binding new_allowed available_commands)
      ~edit: (fun (b,a) -> snd (edit_binding new_allowed available_commands (b,a)))
      title
      (fun (k,a) -> [Configwin.key_to_string k ; a])
      op#get
  in
  ignore (Configwin.simple_get ~width: 400 ~height: 400 title [p])