;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2018 Mathieu Othacehe ;;; Copyright © 2019 Ludovic Courtès ;;; Copyright © 2024 Janneke Nieuwenhuizen ;;; Copyright © 2024 Florian Pelz ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (gnu installer newt locale) #:use-module (gnu installer locale) #:use-module (gnu installer steps) #:use-module (gnu installer newt page) #:use-module (guix i18n) #:use-module (srfi srfi-1) #:use-module (ice-9 match) #:export (run-locale-page)) (define (run-language-page languages language->text) (define result (run-listbox-selection-page #:title (G_ "Locale language") #:info-text (G_ "Choose the language to use for the \ installation process and for the installed system.") #:info-textbox-width 70 #:listbox-items languages #:listbox-item->text language->text #:sort-listbox-items? #f #:button-text (G_ "Exit") #:button-callback-procedure (lambda _ (abort-to-prompt 'installer-step 'abort)))) ;; Immediately install the chosen language so that the territory page that ;; comes after (optionally) is displayed in the chosen language. (setenv "LANGUAGE" result) result) (define (run-territory-page terr;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2023 Herman Rimm <herman@rimm.ee> ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (gnu system images orangepi-r1-plus-lts-rk3328) #:use-module (gnu bootloader) #:use-module (gnu bootloader u-boot) #:use-module (gnu image) #:use-module (gnu packages linux) #:use-module (guix platforms arm) #:use-module (gnu services) #:use-module (gnu services base) #:use-module (gnu services networking) #:use-module (gnu system) #:use-module (gnu system file-systems) #:use-module (gnu system image) #:use-module (srfi srfi-26) #:export (orangepi-r1-plus-lts-rk3328-barebones-os orangepi-r1-plus-lts-rk3328-image-type orangepi-r1-plus-lts-rk3328-barebones-raw-image)) (define orangepi-r1-plus-lts-rk3328-barebones-os (operating-system (host-name "windmolen") (timezone "Europe/Amsterdam") (locale "en_US.utf8") (bootloader (bootloader-configuration (bootloader u-boot-orangepi-r1-plus-lts-rk3328-bootloader) (targets '("/dev/mmcblk0")))) (initrd-modules '()) (kernel linux-libre-arm64-generic) (file-systems (cons (file-system (device (file-system-label "my-root")) (mount-point "/") (type "ext4")) %base-file-systems)) (services (cons* (service agetty-service-type (agetty-configuration (extra-options '("-L")) ;no carrier detect (baud-rate "1500000") (term "vt100") (tty "ttyS2"))) (service dhcp-client-service-type) (service ntp-service-type) %base-services)))) (define orangepi-r1-plus-lts-rk3328-image-type (image-type (name 'orangepi-r1-plus-lts-rk3328-raw) (constructor (lambda (os) (image (inherit (raw-with-offset-disk-image (expt 2 24))) (operating-system os) (platform aarch64-linux)))))) (define orangepi-r1-plus-lts-rk3328-barebones-raw-image (image (inherit (os+platform->image orangepi-r1-plus-lts-rk3328-barebones-os aarch64-linux #:type orangepi-r1-plus-lts-rk3328-image-type)) (name 'orangepi-r1-plus-lts-rk3328-barebones-raw-image))) orangepi-r1-plus-lts-rk3328-barebones-raw-image
generated by cgit
r-languages (lset-difference equal? languages first-languages))) `(,@first-languages ,@other-languages))) (define locale-steps (list (installer-step (id 'language) (compute (lambda _ (run-language-page (sort-languages (delete-duplicates (map locale-language supported-locales))) (lambda (language) (let ((english (language-code->language-name iso639-languages language))) (setenv "LANGUAGE" language) (let ((native (gettext english "iso_639-3"))) (unsetenv "LANGUAGE") native))))))) (installer-step (id 'territory) (compute (lambda (result _) (let ((locales (filter-locales supported-locales result))) ;; Stop the process if the language returned by the previous step ;; is matching one and only one supported locale. (break-on-locale-found locales) ;; Otherwise, ask the user to select a territory among those ;; supported by the previously selected language. (run-territory-page (delete-duplicates (map locale-territory locales)) (lambda (territory) (if territory (let ((english (territory-code->territory-name iso3166-territories territory))) (gettext english "iso_3166-1")) (G_ "No location")))))))) (installer-step (id 'codeset) (compute (lambda (result _) (let ((locales (filter-locales supported-locales result))) ;; Same as above but we now have a language and a territory to ;; narrow down the search of a locale. (break-on-locale-found locales) ;; Otherwise, choose a codeset. (let ((codesets (delete-duplicates (map locale-codeset locales)))) (if (member "UTF-8" codesets) "UTF-8" ;don't even ask (run-codeset-page codesets))))))) (installer-step (id 'modifier) (compute (lambda (result _) (let ((locales (filter-locales supported-locales result))) ;; Same thing with a language, a territory and a codeset this time. (break-on-locale-found locales) ;; Otherwise, ask for a modifier. (run-modifier-page (delete-duplicates (map locale-modifier locales)) (lambda (modifier) (or modifier (G_ "No modifier")))))))))) ;; If run-installer-steps returns locally, it means that the user had to go ;; through all steps (language, territory, codeset and modifier) to select a ;; locale. In that case, like if we exited by breaking to the installer ;; step, turn the result into a glibc locale string and return it. (result->locale-string supported-locales (run-installer-steps #:steps locale-steps #:dry-run? dry-run?)))