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