From 13713d63f1f19b39097589f34080c61a3095aa3f Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Thu, 10 Oct 2024 11:54:26 +0200 Subject: refactor(mcdowell): isolate keyboard-layout-mcdowell --- systems/mcdowell.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'systems') diff --git a/systems/mcdowell.scm b/systems/mcdowell.scm index c7a418d..c1d53e0 100644 --- a/systems/mcdowell.scm +++ b/systems/mcdowell.scm @@ -34,6 +34,10 @@ (use-modules (suweren system)) %suweren-services) +(define keyboard-layout-mcdowell + ((@ (gnu system keyboard) keyboard-layout) + "pl")) + (define guix-home (service guix-home-service-type home-environments)) @@ -49,12 +53,11 @@ (define (operating-system*) (use-modules (machines portable-bios) (suweren system)) - (let* ((keyboard-layout* (keyboard-layout "pl")) - (timezone* "Europe/Warsaw")) + (let* ((timezone* "Europe/Warsaw")) ((@ (gnu system) operating-system) (kernel kernel*) - (bootloader (bootloader-configuration* keyboard-layout*)) - (keyboard-layout keyboard-layout*) + (keyboard-layout keyboard-layout-mcdowell) + (bootloader (bootloader-configuration* keyboard-layout-mcdowell)) (initrd initrd*) (firmware firmware*) (host-name host-name*) -- cgit v1.2.3