From a1384d17f65b0a9710f2aa1d8e4739efca1c2b28 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 15 May 2017 11:20:25 +0200 Subject: [PATCH] Refactor doom/sudo-find-file, add doom/sudo-this-file --- core/autoload/editor.el | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/core/autoload/editor.el b/core/autoload/editor.el index 03c60a7e1..70b75df15 100644 --- a/core/autoload/editor.el +++ b/core/autoload/editor.el @@ -1,12 +1,19 @@ ;;; editor.el ;;;###autoload -(defun doom/sudo-find-file () +(defun doom/sudo-find-file (file) "Open a file as root." + (interactive + (list (read-file-name "Open as root: "))) + (find-file (if (file-writable-p file) + file + (concat "/sudo:root@localhost:" file)))) + +;;;###autoload +(defun doom/sudo-this-file () + "Open the current file as root." (interactive) - (let ((file (read-file-name "Open as root: "))) - (unless (file-writable-p file) - (find-file (concat "/sudo:root@localhost:" file))))) + (doom/sudo-find-file (file-truename buffer-file-name))) (defun doom--goto-first-non-blank () (beginning-of-visual-line)