my-macfusion-cp.el

;; とりあえずのプログラム
(defun mf-cp-current-buffer ()
  (interactive)
  (let* ((filename (buffer-file-name))
         (local-prj-root "/path/to/prj/root")
         ;;filenameからlocal-prjを除いたもの
         (local-file-path-from-root (substring filename
                                               (length local-prj-root)
                                               (length filename)))
         (mf-prj-root "/Volumes/mount-name"))
    (start-process-shell-command
     "cp" "*macfusion-cp*"
     "cp" filename (concat mf-prj-root
                           local-file-path-from-root))
    ))

(provide 'my-macfusion-cp)