awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Refactor doom/sudo-find-file, add doom/sudo-this-file

Browse Source
This commit is contained in:
Henrik Lissner
2017-05-15 11:20:25 +02:00
parent be4be57a1a
commit a1384d17f6
1 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
core/autoload/editor.el
View File

@ -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)