7 lines
293 B
Common Lisp
7 lines
293 B
Common Lisp
![]() |
;; To get "sudo" to work in SLY.
|
||
|
(let ((askpass (format nil
|
||
|
"~a/.guix-extra-profiles/common-lisp/common-lisp/bin/lxqt-openssh-askpass"
|
||
|
(uiop:getenv "HOME")) ))
|
||
|
(when (uiop:file-exists-p askpass)
|
||
|
(setf (uiop:getenv "SUDO_ASKPASS") askpass)))
|