gnu/installer/newt/parameters.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
   3 ;;;
   4 ;;; This file is part of GNU Guix.
   5 ;;;
   6 ;;; GNU Guix is free software; you can redistribute it and/or modify it
   7 ;;; under the terms of the GNU General Public License as published by
   8 ;;; the Free Software Foundation; either version 3 of the License, or (at
   9 ;;; your option) any later version.
  10 ;;;
  11 ;;; GNU Guix is distributed in the hope that it will be useful, but
  12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 ;;; GNU General Public License for more details.
  15 ;;;
  16 ;;; You should have received a copy of the GNU General Public License
  17 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 (define-module (gnu installer newt parameters)
  20   #:use-module (gnu installer proxy)
  21   #:use-module (gnu installer steps)
  22   #:use-module (gnu installer newt page)
  23   #:use-module (guix i18n)
  24   #:use-module (ice-9 match)
  25   #:use-module (newt)
  26   #:export (run-parameters-page))
  27
  28 (define (run-proxy-page)
  29   (define proxy
  30     (run-input-page (G_ "Please enter the HTTP proxy URL. If you enter an \
  31 empty string, proxy usage will be disabled.")
  32                     (G_ "HTTP proxy configuration")
  33                     #:allow-empty-input? #t))
  34   (if (string=? proxy "")
  35       (clear-http-proxy)
  36       (set-http-proxy proxy)))
  37
  38 (define (run-parameters-page keyboard-layout-selection)
  39   "Run a parameters page allowing to change the keyboard layout"
  40   (let* ((items
  41           (list
  42            (cons (G_ "Change keyboard layout") keyboard-layout-selection)
  43            (cons (G_ "Configure HTTP proxy") run-proxy-page)))
  44          (result
  45           (run-listbox-selection-page
  46            #:info-text (G_ "Please choose one of the following parameters or \
  47 press ‘Back’ to go back to the installation process.")
  48            #:title (G_ "Installation parameters")
  49            #:listbox-items items
  50            #:listbox-item->text car
  51            #:sort-listbox-items? #f
  52            #:listbox-height 6
  53            #:button-text (G_ "Back"))))
  54     (match result
  55       ((_ . proc)
  56        (proc))
  57       (_ #f))))