installer: Limit listbox height.
authorMathieu Othacehe <othacehe@gnu.org>
Fri, 6 Nov 2020 09:59:54 +0000 (10:59 +0100)
committerMathieu Othacehe <othacehe@gnu.org>
Sat, 7 Nov 2020 12:19:25 +0000 (13:19 +0100)
commit8338d414b361e4fb961221642c1064e9dc89ba65
treef1ac1d12c647617446d00a50ce2afed70a5c9dc1
parent07239f39db9bce48b938afe210ab20d87f431791
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.
gnu/installer/newt.scm
gnu/installer/newt/ethernet.scm
gnu/installer/newt/final.scm
gnu/installer/newt/network.scm
gnu/installer/newt/page.scm
gnu/installer/newt/partition.scm
gnu/installer/newt/welcome.scm
gnu/installer/newt/wifi.scm
gnu/installer/steps.scm