ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Fix crash in parameters menu.

Browse source 
Fixes: <https://issues.guix.gnu.org/45378>.

* gnu/installer/newt/keymap.scm (run-layout-page): Return false when
"Continue" button is pressed.
(run-keymap-page): Do not try to compute variants if layout is false. Also do
not try to format the result if layout is false.
* gnu/installer.scm (compute-keymap-step): Do not apply keymap if
"run-keymap-page" returns false.
This commit is contained in:
Mathieu Othacehe 2021-01-12 16:26:07 +01:00
parent 55157c9071
commit bb4e67415e
No known key found for this signature in database
GPG key ID: 8354763531769CA6
2 changed files with 14 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gnu/installer.scm
View file

@ -187,7 +187,7 @@ (define* (compute-keymap-step context)
(lambda (models layouts)
((installer-keymap-page current-installer)
layouts '#$context)))))
(#$apply-keymap result)
(and result (#$apply-keymap result))
result)))
(define (installer-steps)

21
gnu/installer/newt/keymap.scm
View file

@ -56,7 +56,7 @@ (define (run-layout-page layouts layout->text context)
(else (G_ "Exit")))
#:button-callback-procedure
(case context
((param) (const #t))
((param) (const #f))
(else
(lambda _
(raise
@ -183,7 +183,9 @@ (define keymap-steps
(compute
(lambda (result _)
(let* ((layout (result-step result 'layout))
(variants (x11-keymap-layout-variants layout)))
(variants (if layout
(x11-keymap-layout-variants layout)
'())))
;; Return #f if the layout does not have any variant.
(and (not (null? variants))
(run-variant-page
@ -196,16 +198,19 @@ (define keymap-steps
(gettext (x11-keymap-layout-description layout)
"xkeyboard-config")))))))))))
(define (format-result result)
(let ((layout (x11-keymap-layout-name
(result-step result 'layout)))
(variant (and=> (result-step result 'variant)
(define (format-result layout variant)
(let ((layout (x11-keymap-layout-name layout))
(variant (and=> variant
(lambda (variant)
(gettext (x11-keymap-variant-name variant)
"xkeyboard-config")))))
(toggleable-latin-layout layout variant)))
(format-result
(run-installer-steps #:steps keymap-steps)))
(let* ((result (run-installer-steps #:steps keymap-steps))
(layout (result-step result 'layout))
(variant (result-step result 'variant)))
(and layout
(format-result layout variant))))
(define (keyboard-layout->configuration keymap)
"Return the operating system configuration snippet to install KEYMAP."