uiop:launch-program fails to run sudo without -S

[Pierre Neidhardt]

Thanks for the details, this makes sense! :)

The problem with -S is that I need to pass it systematically.  Worse: I
cannot invoke shell scripts that call `sudo' without -S.

So instead I ended up adding this to my ~/.slynk.lisp:

--8<---------------cut here---------------start------------->8---
(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)))
--8<---------------cut here---------------end--------------->8---

Works perfectly for me now! :)

Thanks!

-- 
Pierre Neidhardt
https://ambrevar.xyz/
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 511 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/asdf-devel/attachments/20210112/2cf0b87c/attachment.sig>