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