[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: installer: Handle both uppercase and lowercase shortcut keys.
From: |
Danny Milosavljevic |
Subject: |
01/01: installer: Handle both uppercase and lowercase shortcut keys. |
Date: |
Wed, 5 Jul 2017 06:06:22 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit 4413c3e0a20b58c96fcfb443b1a448ee38949ac5
Author: Danny Milosavljevic <address@hidden>
Date: Wed Jul 5 12:05:20 2017 +0200
installer: Handle both uppercase and lowercase shortcut keys.
* gnu/system/installer/page.scm (page-default-key-handler): Modify.
---
gnu/system/installer/page.scm | 12 ++++++++++--
1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/gnu/system/installer/page.scm b/gnu/system/installer/page.scm
index 30c3b79..d100f3a 100644
--- a/gnu/system/installer/page.scm
+++ b/gnu/system/installer/page.scm
@@ -158,8 +158,16 @@ If a form is used it's assumed that the menu is not used
and vice versa."
(form-set-enabled! form #t)))
'handled)
- ((and nav (buttons-fetch-by-key nav ch))
- (buttons-select-by-symbol nav (buttons-fetch-by-key nav ch))
+ ((and nav (or (buttons-fetch-by-key nav (char-upcase ch))
+ (buttons-fetch-by-key nav (char-downcase ch))))
+ (buttons-select-by-symbol nav (or (buttons-fetch-by-key nav
+ (char-upcase ch))
+ (buttons-fetch-by-key nav
+ (char-downcase
ch))))
+ (if menu
+ (menu-set-active! menu #f)
+ (if form
+ (form-set-enabled! form #f)))
(page-activate-focused-item page))
(else