diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-11-06 10:59:54 +0100 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-11-07 13:19:25 +0100 |
| commit | 8338d414b361e4fb961221642c1064e9dc89ba65 (patch) | |
| tree | f1ac1d12c647617446d00a50ce2afed70a5c9dc1 /gnu/installer/steps.scm | |
| parent | 07239f39db9bce48b938afe210ab20d87f431791 (diff) | |
| download | guix-8338d414b361e4fb961221642c1064e9dc89ba65.tar guix-8338d414b361e4fb961221642c1064e9dc89ba65.tar.gz | |
installer: Limit listbox height.
Fixes: <https://issues.guix.gnu.org/44428>.
* gnu/installer/newt.scm (init): Print screen size.
* gnu/installer/newt/page.scm (default-listbox-height): New variable.
(run-listbox-selection-page): Use it.
* gnu/installer/newt/wifi.scm (wifi-listbox-height): Ditto.
* gnu/installer/newt/network.scm (run-technology-page): Set the maximum
listbox height to 5.
* gnu/installer/newt/ethernet.scm (run-ethernet-page): Ditto.
* gnu/installer/newt/final.scm (run-config-display-page): Change listbox
height.
* gnu/installer/newt/partition.scm (run-disk-page): Ditto.
* gnu/installer/newt/welcome.scm (display-logo?): New procedure.
(run-menu-page): Use it.
* gnu/installer/steps.scm (%configuration-file-width): Remove it.
Diffstat (limited to 'gnu/installer/steps.scm')
| -rw-r--r-- | gnu/installer/steps.scm | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/gnu/installer/steps.scm b/gnu/installer/steps.scm index 16d74c207f..fdcfb0cb4d 100644 --- a/gnu/installer/steps.scm +++ b/gnu/installer/steps.scm @@ -50,7 +50,6 @@ %installer-configuration-file %installer-target-dir - %configuration-file-width format-configuration configuration->file)) @@ -218,7 +217,6 @@ stored in RESULTS. Return #f otherwise." (define %installer-configuration-file (make-parameter "/mnt/etc/config.scm")) (define %installer-target-dir (make-parameter "/mnt")) -(define %configuration-file-width (make-parameter 79)) (define (format-configuration steps results) "Return the list resulting from the application of the procedure defined in |