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])