diff options
Diffstat (limited to 'lisp/init-tramp.el')
-rw-r--r-- | lisp/init-tramp.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/init-tramp.el b/lisp/init-tramp.el index 4fe63e0..9aa268b 100644 --- a/lisp/init-tramp.el +++ b/lisp/init-tramp.el @@ -1,12 +1,12 @@ -(defun sudo-prefix-p (prefix) +(defun mpolden/sudo-prefix-p (prefix) "Return non-nil if PREFIX is a sudo prefix." (member prefix '("/sudo" "/sudo:"))) -(defun ssh-prefix-p (prefix) +(defun mpolden/ssh-prefix-p (prefix) "Return non-nil if PREFIX is a ssh prefix." (string-equal prefix "/ssh")) -(defun sudo-file-name (filename) +(defun mpolden/sudo-file-name (filename) "Return FILENAME with a sudo prefix. If FILENAME already has a sudo prefix, do nothing. If FILENAME is @@ -14,29 +14,29 @@ accessed over SSH, prefix it with \"/sudo:\". Otherwise, assume FILENAME is a local path and prefix it with \"/sudo::\"." (let* ((splitname (split-string filename ":")) (prefix (car splitname))) - (if (sudo-prefix-p prefix) + (if (mpolden/sudo-prefix-p prefix) filename - (let* ((ssh (ssh-prefix-p prefix)) + (let* ((ssh (mpolden/ssh-prefix-p prefix)) (sudo-prefix (if ssh "/sudo" "/sudo:")) (components (if ssh (cdr splitname) splitname))) (mapconcat 'identity (cons sudo-prefix components) ":"))))) -(defun sudo-find-file (&optional arg) +(defun mpolden/sudo-find-file (&optional arg) "Find file and open it with sudo. With a prefix ARG prompt edit currently visited file using sudo." (interactive "P") (if arg - (find-alternate-file (sudo-file-name buffer-file-name)) - (find-file (sudo-file-name (read-file-name "Find file with sudo: "))))) + (find-alternate-file (mpolden/sudo-file-name buffer-file-name)) + (find-file (mpolden/sudo-file-name (read-file-name "Find file with sudo: "))))) -(defun sudo-current-file () +(defun mpolden/sudo-current-file () (interactive) - (sudo-find-file t)) + (mpolden/sudo-find-file t)) (use-package tramp :bind - (("C-x +" . sudo-find-file) - ("C-x !" . sudo-current-file)) + (("C-x +" . mpolden/sudo-find-file) + ("C-x !" . mpolden/sudo-current-file)) :config ;; make sudo:remote-host work as expected |