From 9b0a48a0cae8b93c64cc9f0da322fd72c8a70b34 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Fri, 26 Jul 2024 11:33:45 +0200 Subject: feat!(system): implement keyboard-layout --- machines/portable-bios.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'machines') diff --git a/machines/portable-bios.scm b/machines/portable-bios.scm index a5c03c1..416960d 100644 --- a/machines/portable-bios.scm +++ b/machines/portable-bios.scm @@ -8,12 +8,13 @@ ) ;; bootloader-configuration -(define-public bootloader-configuration* +(define-public (bootloader-configuration* keyboard-layout*) (let ((bootloader* grub-bootloader) (bootloader-targets (list "/dev/sdb")) ; TODO: generalize the target ) (bootloader-configuration (bootloader bootloader*) - (targets bootloader-targets)))) + (targets bootloader-targets) + (keyboard-layout keyboard-layout*)))) ;; string -> (file-system) (define-public (file-systems* host-name*) -- cgit v1.2.3