system: Fix grub keymap with store in btrfs subvolume.

* gnu/bootloader/grub.scm (grub-configuration-file)
[keyboard-layout-config]: Use normalize-file.
This commit is contained in:
Miguel Ángel Arruga Vivas 2020-10-24 17:48:28 +02:00
parent a07717cc8b
commit c69a1c27ee
No known key found for this signature in database
GPG Key ID: 634C6E8979FABEC2

@ -421,11 +421,12 @@ set lang=~a~%" locale))))
(bootloader-configuration-bootloader config))) (bootloader-configuration-bootloader config)))
(keymap* (and layout (keymap* (and layout
(keyboard-layout-file layout #:grub grub))) (keyboard-layout-file layout #:grub grub)))
(entry (first all-entries))
(device (menu-entry-device entry))
(mount-point (menu-entry-device-mount-point entry))
(keymap (and keymap* (keymap (and keymap*
(if store-directory-prefix (normalize-file keymap* mount-point
#~(string-append #$store-directory-prefix store-directory-prefix))))
#$keymap*)
keymap*))))
#~(when #$keymap #~(when #$keymap
(format port "\ (format port "\
insmod keylayouts insmod keylayouts