diff options
Diffstat (limited to 'pinentry-rofi.scm')
| -rwxr-xr-x | pinentry-rofi.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/pinentry-rofi.scm b/pinentry-rofi.scm index db54d21..f326f57 100755 --- a/pinentry-rofi.scm +++ b/pinentry-rofi.scm @@ -60,14 +60,14 @@ "Evaluates to #t if string is empty." (string=? str "")) -(define (pinentry-remove-underline str) +(define (remove-underline str) "Replace _ followed by a character with just the character." (regexp-substitute/global #f "(^|[[:blank:]])_([[:alpha:]])" str 'pre 1 2 'post)) -(define (pinentry-escape-underscore str) +(define (escape-underscore str) "Replace __ followed by a character with _ and said character. -Always call this after `pinentry-remove-underline' or +Always call this after `remove-underline' or `html-underline'." (regexp-substitute/global #f "(^|[[:blank:]])__([[:alpha:]])" str 'pre 1 "_" 2 'post)) @@ -95,7 +95,7 @@ Always call this after `pinentry-remove-underline' or (define (pango-markup str) "Transform string to pango." (hex->char - (pinentry-escape-underscore + (escape-underscore (html-underline (html-< (html-newline str)))))) @@ -103,8 +103,8 @@ Always call this after `pinentry-remove-underline' or (define (input-string str) "Transform string to input for rofi. Input strings does not support pango markup" - (pinentry-escape-underscore - (pinentry-remove-underline str))) + (escape-underscore + (remove-underline str))) (define* (pinentry-set set-func pinentry label) "Using SET-FUNC, set the entry in PINENTRY to LABEL." |