;; 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)))