let rec multiclip_copy (mc : view) args =
if Array.length args > 0 then
mc#add args.(0)
else
begin
let f = function
"" -> ()
| s ->
Cam_commands.launch_command
(Printf.sprintf "%s_copy" factory_name) [| s |]
in
let title = "Add to last active multiclip" in
Ed_misc.input_string
~history: copy_history
mc#minibuffer
~title
""
f
end