From a144d82f0bd42fbc5ce3693a92c6c163c60639fd Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Fri, 4 Oct 2024 03:12:10 +0200 Subject: refactor(systems): transfer locale implementation to suweren module --- suweren/system.scm | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) 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"))) -- cgit v1.2.3