let confirm (mb : Ed_minibuffer.minibuffer) text f =
let g () =
let s = of_utf8 mb#get_user_text in
mb#set_text "";
mb#set_active false;
if String.length s > 0 then
match s.[0] with
'y'|'Y' -> f ()
| _ -> ()
else
()
in
mb#clear ;
mb#set_text ~fixed: (Printf.sprintf "%s (y/n) " text) "";
mb#set_on_eval g;
mb#set_active true