diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2020-04-08 10:20:33 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <m.othacehe@gmail.com> | 2020-04-08 10:24:02 +0200 |
| commit | ee0ad7803c82383ac1bced073d8670bc407797e7 (patch) | |
| tree | 8fe5f367737013bb6262a32182971a123b72af1c /gnu/installer/newt | |
| parent | 07a53bd512530d8f87e076263227216c467727bb (diff) | |
| download | guix-ee0ad7803c82383ac1bced073d8670bc407797e7.tar.gz | |
installer: Add proxy support.
* gnu/installer/proxy.scm: New file. * gnu/local.mk (INSTALLER_MODULES): Add it. * po/guix/POTFILES.in: Add it. * gnu/installer/newt/parameters.scm (run-proxy-page): New procedure, (run-parameters-page): add the previous procedure to the parameters menu.
Diffstat (limited to 'gnu/installer/newt')
| -rw-r--r-- | gnu/installer/newt/parameters.scm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/gnu/installer/newt/parameters.scm b/gnu/installer/newt/parameters.scm index 4a34e94155..95112b5780 100644 --- a/gnu/installer/newt/parameters.scm +++ b/gnu/installer/newt/parameters.scm @@ -17,6 +17,7 @@ ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (gnu installer newt parameters) + #:use-module (gnu installer proxy) #:use-module (gnu installer steps) #:use-module (gnu installer newt page) #:use-module (guix i18n) @@ -24,11 +25,22 @@ #:use-module (newt) #:export (run-parameters-page)) +(define (run-proxy-page) + (define proxy + (run-input-page (G_ "Please enter the HTTP proxy URL. If you enter an \ +empty string, proxy usage will be disabled.") + (G_ "HTTP proxy configuration") + #:allow-empty-input? #t)) + (if (string=? proxy "") + (clear-http-proxy) + (set-http-proxy proxy))) + (define (run-parameters-page keyboard-layout-selection) "Run a parameters page allowing to change the keyboard layout" (let* ((items (list - (cons (G_ "Change keyboard layout") keyboard-layout-selection))) + (cons (G_ "Change keyboard layout") keyboard-layout-selection) + (cons (G_ "Configure HTTP proxy") run-proxy-page))) (result (run-listbox-selection-page #:info-text (G_ "Please choose one of the following parameters or \ |