ambevar-dotfiles/.slynk.lisp

5 lines
201 B
Common Lisp

;; To get "sudo" to work in SLY.
(let ((askpass (format nil "~a/.local/bin/emacs-askpass" (uiop:getenv "HOME"))))
(when (uiop:file-exists-p askpass)
(setf (uiop:getenv "SUDO_ASKPASS") askpass)))