let prompt_command args =
let mb = get_mb () in
let on_return com =
match Ed_misc.no_blanks com with
"" -> ()
| _ -> Cam_commands.eval_command com
in
Cam_hooks.warning_message "couocu";
Ed_misc.select_string
~history: prompt_command_history
mb ~title: "Command"
~choices: (Cam_commands.available_command_names ())
""
on_return