emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Consider current buffer's file when sudo-editing

Browse source 
If doom/sudo-find-file is invoked with a file that is equal
to the current buffer's file, kill that buffer since it is probably
not needed anymore.
This commit is contained in:
Ralf Beckmann 2019-11-03 14:25:10 +01:00
parent 68e56025bc
commit 7a810d53a0
1 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

21
core/autoload/files.el
View file

@ -317,16 +317,19 @@ file if it exists, without confirmation."
(defun doom/sudo-find-file (file) (defun doom/sudo-find-file (file)
"Open FILE as root." "Open FILE as root."
(interactive "FOpen file as root: ") (interactive "FOpen file as root: ")
(when (file-writable-p file)
(user-error "File is user writeable, aborting sudo"))
(let* ((host (or (file-remote-p file 'host) "localhost")) (let* ((host (or (file-remote-p file 'host) "localhost"))
(user-host (if-let (( user (file-remote-p file 'user))) (f (concat "/" (when (file-remote-p file)
(concat user "@" host) (concat (file-remote-p file 'method) ":"
host)) (if-let (user (file-remote-p file 'user))
(hop1 (when (file-remote-p file) (concat "/" (file-remote-p file 'method) ":" user-host))) (concat user "@" host)
(sep (if hop1 "|" "/")) host)
(hop2 (concat "sudo:root@" host ":" (or (file-remote-p file 'localname) file)))) "|"))
(find-file (concat hop1 sep hop2)))) "sudo:root@" host
":" (or (file-remote-p file 'localname)
file))))
(if (and buffer-file-name (equal file (file-truename buffer-file-name)))
(find-alternate-file f)
(find-file f))))
;;;###autoload ;;;###autoload
(defun doom/sudo-this-file () (defun doom/sudo-this-file ()