From b253ff2e2eb344b786417453e092ce3813ce4958 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Fri, 27 Sep 2024 18:27:30 +0200
Subject: fix(ayase): solve the locale problem

---
 systems/ayase.scm | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

(limited to 'systems')

diff --git a/systems/ayase.scm b/systems/ayase.scm
index 6eb698a..62c5f35 100644
--- a/systems/ayase.scm
+++ b/systems/ayase.scm
@@ -77,7 +77,6 @@
 (define swap-2
   (swap-space (target (swap-label "-2"))))
 
-;; (list #<service>)
 (define system-services
   (list (service libvirt-service-type)
 	(service openssh-service-type)
@@ -89,15 +88,18 @@
 			      ruby))
 	(simple-service 'system-packages
 			profile-service-type
-			(list glibc-locales
-			      gnome-boxes
+			(list gnome-boxes
 			      kgpg
 			      pinentry-qt
 			      pinentry-tty))))
 
 ;;;
 
-;; (list #<service>)
+(define polish-locale
+  ((@ (gnu system locale) locale-definition)
+   (name "pl_PL.utf8")
+   (source "pl_PL")))
+
 (define services
   (append %distribution-services
 	  (list home-services)
@@ -114,6 +116,11 @@
   (append %base-user-accounts
 	  (list uid1000-account)))
 
+(define (locale-definitions)
+  (use-modules (gnu system locale))
+  (append %default-locale-definitions
+	  (list polish-locale)))
+
 ;;;
 
 ;; #<operating-system>
@@ -153,7 +160,8 @@
                       (swap-devices swap-devices)
                       (users (users))
                       (timezone "Europe/Warsaw")
-                      ;; (locale "en_US.utf8")
+                      (locale "pl_PL.utf8")
+		      (locale-definitions (locale-definitions))
                       (services services)
 		      (sudoers-file %sudoers-specification*))))
 
-- 
cgit v1.2.3