jmd pushed a commit to branch wip-installer in repository guix. commit 6e814f787e3e0cbcf2e0e6f723a16b0c5ef60ec4 Author: John Darrington <j...@gnu.org> Date: Sat Jan 7 08:53:07 2017 +0100
installer: Ignore case in button accelerators. * gurses/buttons.scm (buttons-key-matches-symbol): Check upper and lower case matches. --- gurses/buttons.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/gurses/buttons.scm b/gurses/buttons.scm index 7b1c666..8be4983 100644 --- a/gurses/buttons.scm +++ b/gurses/buttons.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2016 John Darrington <j...@gnu.org> +;;; Copyright © 2016, 2017 John Darrington <j...@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -152,7 +152,8 @@ (define (buttons-key-matches-symbol? nav ch symbol) (if (char? ch) - (or (eq? (buttons-fetch-by-key nav (char-upcase ch)) symbol) + (or (eq? (buttons-fetch-by-key nav (char-downcase ch)) symbol) + (eq? (buttons-fetch-by-key nav (char-upcase ch)) symbol) (and (or (eq? ch #\newline) (eq? ch #\space)) (and=> (buttons-get-current-selection nav)