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:
parent
a07717cc8b
commit
c69a1c27ee
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user