diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2019-04-17 00:08:34 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2019-04-17 00:08:34 +0200 |
| commit | f5961dd5854cec1ed9a41365836d63aa15256642 (patch) | |
| tree | 9e6168827adf5e4e90128d55fad6f0ab6448c86a /gnu/installer.scm | |
| parent | 05bb85fda06dc361b8d3d1eef0759606784b3130 (diff) | |
| parent | e28ff04108ae7506a21d451cc23d63937076e2a3 (diff) | |
| download | patches-f5961dd5854cec1ed9a41365836d63aa15256642.tar patches-f5961dd5854cec1ed9a41365836d63aa15256642.tar.gz | |
Merge branch 'master' into staging
Diffstat (limited to 'gnu/installer.scm')
| -rw-r--r-- | gnu/installer.scm | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/gnu/installer.scm b/gnu/installer.scm index 50e2e7d85e..6a7a556271 100644 --- a/gnu/installer.scm +++ b/gnu/installer.scm @@ -91,9 +91,17 @@ version of this file." (define apply-locale ;; Install the specified locale. - #~(lambda (locale-name) - (false-if-exception - (setlocale LC_ALL locale-name)))) + (with-imported-modules (source-module-closure '((gnu services herd))) + #~(lambda (locale) + (false-if-exception + (setlocale LC_ALL locale)) + + ;; Restart the documentation viewer so it displays the manual in + ;; language that corresponds to LOCALE. + (with-error-to-port (%make-void-port "w") + (lambda () + (stop-service 'term-tty2) + (start-service 'term-tty2 (list locale))))))) (define* (compute-locale-step #:key locales-name @@ -323,6 +331,7 @@ selected keymap." (gnu installer newt) ((gnu installer newt keymap) #:select (keyboard-layout->configuration)) + (gnu services herd) (guix i18n) (guix build utils) (ice-9 match)) |