From 93ff95c06e8759e1b7241512bb5fae2250c46fa6 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 14 Apr 2020 19:13:56 -0400 Subject: [PATCH] Refactor sudo commands --- core/autoload/files.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/core/autoload/files.el b/core/autoload/files.el index 22acf3e56..65d0a6639 100644 --- a/core/autoload/files.el +++ b/core/autoload/files.el @@ -324,7 +324,7 @@ file if it exists, without confirmation." (`aborted (message "Aborted")) (_ t))) -(defun doom--sudo-file (file) +(defun doom--sudo-file-path (file) (let ((host (or (file-remote-p file 'host) "localhost"))) (concat "/" (when (file-remote-p file) (concat (file-remote-p file 'method) ":" @@ -340,22 +340,24 @@ file if it exists, without confirmation." (defun doom/sudo-find-file (file) "Open FILE as root." (interactive "FOpen file as root: ") - (find-file (doom--sudo-file file))) + (find-file (doom--sudo-file-path file))) ;;;###autoload (defun doom/sudo-this-file () "Open the current file as root." (interactive) - (find-alternate-file (doom--sudo-file (or buffer-file-name - (when (or (derived-mode-p 'dired-mode) - (derived-mode-p 'wdired-mode)) - default-directory))))) + (find-file + (doom--sudo-file-path + (or buffer-file-name + (when (or (derived-mode-p 'dired-mode) + (derived-mode-p 'wdired-mode)) + default-directory))))) ;;;###autoload (defun doom/sudo-save-buffer () "Save this file as root." (interactive) - (let ((file (doom--sudo-file buffer-file-name))) + (let ((file (doom--sudo-file-path buffer-file-name))) (if-let (buffer (find-file-noselect file)) (let ((origin (current-buffer))) (copy-to-buffer buffer (point-min) (point-max))