Commit Diff


commit - f0725fc196270acd90a681e00e5ec5cb02e732da
commit + 40efebe3c06cb24308afcb0e1f530ba9875ce1f9
blob - 7b878cbb7f1d3dd70b06b92bb3ecbcb1809cbcad
blob + 28f51f92e244efebd997afd9c1ac06310714a6b6
--- lisp/lh.el
+++ 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")))