dotemacs

commit 40efebe3c06cb24308afcb0e1f530ba9875ce1f9
parent f0725fc196270acd90a681e00e5ec5cb02e732da
Author: Lukas Henkel <lh@entf.net>
Date:   Thu, 12 Oct 2023 19:54:58 +0200

Ability to also use sudo

Diffstat:
M
lisp/lh.el
 | 
13
++++++++++---

1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/lisp/lh.el b/lisp/lh.el
@@ -84,14 +84,21 @@
     (base64-encode-region (point-min) (point-max))
     (buffer-string)))
 
-(defun lh/doas-current-buffer ()
-  (interactive)
+(defun lh/root-current-buffer (sudo)
   (let ((old-point (point))
         (old (current-buffer)))
-    (find-file (concat "/doas::" (buffer-file-name)))
+    (find-file (concat "/" sudo "::" (buffer-file-name)))
     (goto-char old-point)
     (kill-buffer old)))
 
+(defun lh/doas-current-buffer ()
+  (interactive)
+  (lh/root-current-buffer "doas"))
+
+(defun lh/sudo-current-buffer ()
+  (interactive)
+  (lh/root-current-buffer "sudo"))
+
 (defun lh/buffer-create-new ()
   (interactive)
   (let ((buf (generate-new-buffer "new")))