dwim-shell-commands-duplicate tramp experiment

dwim-shell-commands.el

(defun dwim-shell-commands-duplicate ()
  (interactive)
  (dwim-shell-command-on-marked-files
   "Duplicate file(s)."
   "cp '<<f>>' '<<f(u)>>'"
   :utils '("cp" "scp")
   :post-process-template
   (lambda (script file)
     (if (tramp-tramp-file-p file)
         ;; Tramp file path start with "/ssh:". Drop it.
         (string-replace "/ssh:" ""
                         (replace-regexp-in-string "^cp" "scp" script))
       script))))