(defun sudo-path (user path)
  (format "/sudo:%s@%s:%s" user system-name path) )

(defun sudo-user-path (path)
  (sudo-path user-login-name path) )

(defun sudo-root-path (path)
  (sudo-path "root" path) )

(provide 'sudo-user-path)