Create a gist now

Instantly share code, notes, and snippets.

Toggle between root and non-root users
(defun toggle-alternate-file-as-root (&optional filename)
"Toggle between the current file as the default user and as root."
(interactive)
(let* ((filename (or filename (buffer-file-name)))
(parsed (when (tramp-tramp-file-p filename)
(coerce (tramp-dissect-file-name filename)
'list))))
(unless filename
(error "No file in this buffer."))
(find-alternate-file
(if (equal '("sudo" "root") (butlast parsed 2))
;; As non-root
(if (or
(string= "localhost" (nth 2 parsed))
(string= (system-name) (nth 2 parsed)))
(nth -1 parsed)
(apply 'tramp-make-tramp-file-name
(append (list tramp-default-method nil) (cddr parsed))))
;; As root
(if parsed
(apply 'tramp-make-tramp-file-name
(append '("sudo" "root") (cddr parsed)))
(tramp-make-tramp-file-name "sudo" "root" "localhost" filename))))))
@haxney

I created a fork which makes a round-trip to and from root on "/etc/passwd" work, at leas for me on Emacs 24.0.50.1 on Ubuntu 10.10.

@ieure
Owner

Excellent, thank you.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment