refactor(ayase): isolate locale string for locale configuration

1 files changed, 12 insertions, 9 deletions

diff --git a/systems/ayase.scm b/systems/ayase.scm
index 58a3e2e..1adcac4 100644
--- a/systems/ayase.scm
+++ b/systems/ayase.scm
@@ -1,19 +1,22 @@
 (define-module (systems ayase))
 
-(define host-name
-  "ayase")
-
 (define efi-filesystem-uuid
   ((@ (gnu system uuid) uuid)
    "B4FB-CBD9"
    'fat32))
 
+(define host-name
+  "ayase")
+
 (define (label number)
   ((@ (gnu system file-systems) file-system-label)
    (string-append host-name
 		  "-swap"
 		  number)))
 
+(define polish-locale-string
+  "pl_PL.utf8")
+
 (define root-filesystem-uuid
   ((@ (gnu system file-systems) uuid)
    "615a98cd-a632-4ee5-a6f4-e5ebcaa6fb8c"))
@@ -61,6 +64,11 @@
   ((@ (gnu services) service)
    openssh-service-type))
 
+(define polish-locale
+  ((@ (gnu system locale) locale-definition)
+   (name polish-locale-string)
+   (source "pl_PL")))
+
 (define root-partition
   ((@ (gnu system file-systems) file-system)
    (mount-point "/")
@@ -110,11 +118,6 @@
   (append %default-locale-definitions
 	  (list polish-locale)))
 
-(define polish-locale
-  ((@ (gnu system locale) locale-definition)
-   (name "pl_PL.utf8")
-   (source "pl_PL")))
-
 (define services
   (append (@ (suweren services) %distribution-services)
 	  (list (gc-workaround-service)
@@ -155,7 +158,7 @@
 		       swap-device-2))
    (users (users))
    (timezone "Europe/Warsaw")
-   (locale "pl_PL.utf8")
+   (locale polish-locale-string)
    (locale-definitions (locale-definitions))
    (services services)
    (sudoers-file %sudoers-specification*)))