diff options
author | Fredrik Salomonsson <plattfot@gmail.com> | 2018-11-06 23:26:36 -0800 |
---|---|---|
committer | Fredrik Salomonsson <plattfot@gmail.com> | 2018-11-06 23:26:36 -0800 |
commit | eed9d47b53101fc611b8a8454faa3454f08a28fd (patch) | |
tree | 8b8ba608ff97140b3d41cb723776ac9147bd97c2 /rofi-pinentry.scm | |
parent | fd7716b6bc76c10a530af936046ed53b710e8da3 (diff) | |
download | pinentry-rofi-eed9d47b53101fc611b8a8454faa3454f08a28fd.tar.gz |
Fixed that it returns OK after each command
Which was why it didn't work.
Diffstat (limited to 'rofi-pinentry.scm')
-rwxr-xr-x | rofi-pinentry.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rofi-pinentry.scm b/rofi-pinentry.scm index e897262..e74be85 100755 --- a/rofi-pinentry.scm +++ b/rofi-pinentry.scm @@ -146,12 +146,12 @@ touch-file=/run/user/1000/gnupg/S.gpg-agent" (format #t "BYE\n") (force-output) (exit #f)))) + (when (pinentry-ok pinentry) + (format #t "OK\n") + (force-output)) (pinentry-loop pinentry input-port)))) (let ((pinentry (make-pinentry #t "Passphrase:" "" #f))) (format #t "OK Please go ahead\n") (force-output) - (pinentry-loop pinentry (current-input-port)) - (when (pinentry-ok pinentry) - (format #t "OK\n") - (force-output))) + (pinentry-loop pinentry (current-input-port))) |