From 150c49903bf2eebd0fea118b51a08b7b63047e33 Mon Sep 17 00:00:00 2001 From: MitchMarq42 Date: Sat, 11 Mar 2023 19:53:05 -0900 Subject: [PATCH] rewrite find-file-sudo to fix opening some directories etc --- lisp/mitch-packages.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/mitch-packages.el b/lisp/mitch-packages.el index 3ab22e6..3b43f72 100644 --- a/lisp/mitch-packages.el +++ b/lisp/mitch-packages.el @@ -43,9 +43,10 @@ (expand-file-name "tramp-history" backup-directory)) :config (defun find-file-sudo (&rest throwaway) - (unless (and buffer-file-name - (file-writable-p buffer-file-name)) - (find-alternate-file (concat "/sudo:root@localhost:" buffer-file-name)))) + (if buffer-file-name + (unless (or (file-writable-p buffer-file-name) + (file-directory-p buffer-file-name)) + (find-alternate-file (format "/sudo::%s" buffer-file-name))))) (advice-add #'find-file :after #'find-file-sudo)) ;; Visualize whitespace. In a very chill and invisible way. (use-package image-mode