emacs: Support editing files via doas/sudo

1 files changed, 13 insertions, 0 deletions

diff --git a/.config/emacs/modules/mm-editing.el b/.config/emacs/modules/mm-editing.el
index 73b29a6..2ae4107 100644
--- a/.config/emacs/modules/mm-editing.el
+++ b/.config/emacs/modules/mm-editing.el
@@ -426,4 +426,17 @@ is as described by `emmet-expand-line'."
 (use-package subword
   :hook prog-mode)
 
+
+;;; Edit Files via Doas/Sudo
+
+(defvar mm-root-editing-program
+  (if (string= (system-name) "mangobox") "doas" "sudo"))
+
+(defun mm-edit-root-protected-file-buffer ()
+  (interactive)
+  (when (and buffer-file-name (not (file-writable-p buffer-file-name)))
+    (find-alternate-file (format "/%s:root@localhost:%s"
+                                 mm-root-editing-program
+                                 buffer-file-name))))
+
 (provide 'mm-editing)