let yank_choose v args =
let mb = v#minibuffer in
let title = "Choose text to paste (Up/Down to choose):" in
let on_eval () =
let s_utf8 = mb#get_user_text in
paste v [| s_utf8 |];
mb#set_active false
in
mb#clear ;
mb#set_on_eval on_eval;
mb#set_text ~fixed: title "";
mb#set_history pastable_history;
mb#set_active true