diff options
author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-10-04 03:12:10 +0200 |
---|---|---|
committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-10-04 03:12:10 +0200 |
commit | a144d82f0bd42fbc5ce3693a92c6c163c60639fd (patch) | |
tree | 28a3ee62b65af832323d76dbea1c2880612fa9e8 | |
parent | 7428cf5708db22a1bfd3b9b07462fc6a5a3221d4 (diff) |
refactor(systems): transfer locale implementation to suweren module
-rw-r--r-- | suweren/system.scm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/suweren/system.scm b/suweren/system.scm index b969f41..745e54b 100644 --- a/suweren/system.scm +++ b/suweren/system.scm @@ -22,6 +22,18 @@ #:use-module (suweren commons sudoers) ; %sudoers-specification* ) +(define-public polish-locale-string + "pl_PL.utf8") + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(define polish-locale + ((@ (gnu system locale) locale-definition) + (name polish-locale-string) + (source "pl_PL"))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + ;; (list record* package) (define packages (list kgpg)) @@ -92,6 +104,11 @@ (substitute-urls %default-substitute-urls*) (extra-options extra-options*)))) +(define (locale-definitions*) + (use-modules (gnu system locale)) + (append %default-locale-definitions + (list polish-locale))) + ;; record login-configuration -> ;; record login-configuration (define (login configuration) @@ -118,6 +135,9 @@ (define-public %suweren-kernel (@ (nongnu packages linux) linux)) +(define-public %suweren-locale-definitions + (locale-definitions*)) + (define-public %suweren-services (let* ((sddm-configuration* (sddm-configuration (theme "breeze") (auto-login-user "lilia"))) |