From eed9d47b53101fc611b8a8454faa3454f08a28fd Mon Sep 17 00:00:00 2001 From: Fredrik Salomonsson Date: Tue, 6 Nov 2018 23:26:36 -0800 Subject: Fixed that it returns OK after each command Which was why it didn't work. --- rofi-pinentry.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'rofi-pinentry.scm') 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))) -- cgit