1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
3 ;;; Copyright © 2016 Chris Marusich <cmmarusich@gmail.com>
4 ;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
5 ;;; Copyright © 2017, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
6 ;;; Copyright © 2019, 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
7 ;;; Copyright © 2019 Miguel Ángel Arruga Vivas <rosen644835@gmail.com>
8 ;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
9 ;;; Copyright © 2020 Stefan <stefan-guix@vodafonemail.de>
11 ;;; This file is part of GNU Guix.
13 ;;; GNU Guix is free software; you can redistribute it and/or modify it
14 ;;; under the terms of the GNU General Public License as published by
15 ;;; the Free Software Foundation; either version 3 of the License, or (at
16 ;;; your option) any later version.
18 ;;; GNU Guix is distributed in the hope that it will be useful, but
19 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
20 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 ;;; GNU General Public License for more details.
23 ;;; You should have received a copy of the GNU General Public License
24 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
26 (define-module (gnu bootloader grub)
27 #:use-module (guix build union)
28 #:use-module (guix records)
29 #:use-module (guix store)
30 #:use-module (guix utils)
31 #:use-module (guix gexp)
32 #:use-module (gnu artwork)
33 #:use-module (gnu bootloader)
34 #:use-module (gnu system uuid)
35 #:use-module (gnu system file-systems)
36 #:use-module (gnu system keyboard)
37 #:use-module (gnu system locale)
38 #:use-module (gnu packages bootloaders)
39 #:autoload (gnu packages gtk) (guile-cairo guile-rsvg)
40 #:autoload (gnu packages xorg) (xkeyboard-config)
41 #:use-module (ice-9 match)
42 #:use-module (ice-9 regex)
43 #:use-module (srfi srfi-1)
44 #:use-module (srfi srfi-2)
49 grub-theme-color-normal
50 grub-theme-color-highlight
53 install-grub-efi-netboot
57 grub-efi-netboot-bootloader
58 grub-mkrescue-bootloader
59 grub-minimal-bootloader
65 ;;; Configuration of GNU GRUB.
69 (define* (normalize-file file mount-point store-directory-prefix)
70 "Strip MOUNT-POINT and prepend STORE-DIRECTORY-PREFIX, if any, to FILE, a
71 G-expression or other lowerable object denoting a file name."
73 (define (strip-mount-point mount-point file)
75 (if (string=? mount-point "/")
77 #~(let ((file #$file))
78 (if (string-prefix? #$mount-point file)
79 (substring #$file #$(string-length mount-point))
83 (define (prepend-store-directory-prefix store-directory-prefix file)
84 (if store-directory-prefix
85 #~(string-append #$store-directory-prefix #$file)
88 (prepend-store-directory-prefix store-directory-prefix
89 (strip-mount-point mount-point file)))
93 (define-record-type* <grub-theme>
94 ;; Default theme contributed by Felipe López.
95 grub-theme make-grub-theme
97 (image grub-theme-image
98 (default (file-append %artwork-repository
99 "/grub/GuixSD-fully-black-4-3.svg")))
100 (resolution grub-theme-resolution
101 (default '(1024 . 768)))
102 (color-normal grub-theme-color-normal
103 (default '((fg . light-gray) (bg . black))))
104 (color-highlight grub-theme-color-highlight
105 (default '((fg . yellow) (bg . black))))
106 (gfxmode grub-theme-gfxmode
107 (default '("auto")))) ;list of string
111 ;;; Background image & themes.
114 (define (bootloader-theme config)
115 "Return user defined theme in CONFIG if defined or a default theme
117 (or (bootloader-configuration-theme config) (grub-theme)))
119 (define* (image->png image #:key width height)
120 "Build a PNG of HEIGHT x WIDTH from IMAGE if its file suffix is \".svg\".
121 Otherwise the picture in IMAGE is just copied."
122 (computed-file "grub-image.png"
123 (with-imported-modules '((gnu build svg))
124 (with-extensions (list guile-rsvg guile-cairo)
125 #~(if (string-suffix? ".svg" #+image)
127 (use-modules (gnu build svg))
128 (svg->png #+image #$output
131 (copy-file #+image #$output))))))
133 (define* (grub-background-image config)
134 "Return the GRUB background image defined in CONFIG or #f if none was found.
135 If the suffix of the image file is \".svg\", then it is converted into a PNG
136 file with the resolution provided in CONFIG."
137 (let* ((theme (bootloader-theme config))
138 (image (grub-theme-image theme)))
140 (match (grub-theme-resolution theme)
141 (((? number? width) . (? number? height))
142 (image->png image #:width width #:height height))
145 (define (grub-locale-directory grub)
146 "Generate a directory with the locales from GRUB."
149 (use-modules (ice-9 ftw))
150 (let ((locale (string-append #$grub "/share/locale"))
154 (for-each (lambda (lang)
155 (let ((file (string-append locale "/" lang
156 "/LC_MESSAGES/grub.mo"))
157 (dest (string-append lang ".mo")))
158 (when (file-exists? file)
159 (copy-file file dest))))
161 (computed-file "grub-locales" builder))
163 (define* (eye-candy config store-device store-mount-point
164 #:key store-directory-prefix port)
165 "Return a gexp that writes to PORT (a port-valued gexp) the 'grub.cfg' part
166 concerned with graphics mode, background images, colors, and all that.
167 STORE-DEVICE designates the device holding the store, and STORE-MOUNT-POINT is
168 its mount point; these are used to determine where the background image and
169 fonts must be searched for. STORE-DIRECTORY-PREFIX is a directory prefix to
170 prepend to any store file name."
171 (define (setup-gfxterm config font-file)
172 (if (memq 'gfxterm (bootloader-configuration-terminal-outputs config))
181 (grub-theme-gfxmode (bootloader-theme config))
185 (define (theme-colors type)
186 (let* ((theme (bootloader-theme config))
187 (colors (type theme)))
188 (string-append (symbol->string (assoc-ref colors 'fg)) "/"
189 (symbol->string (assoc-ref colors 'bg)))))
192 (let* ((bootloader (bootloader-configuration-bootloader config))
193 (grub (bootloader-package bootloader)))
194 (normalize-file (file-append grub "/share/grub/unicode.pf2")
196 store-directory-prefix)))
199 (normalize-file (grub-background-image config)
201 store-directory-prefix))
205 # Set 'root' to the partition that contains /gnu/store.
212 if background_image ~a; then
214 set color_highlight=~a
216 set menu_color_normal=cyan/blue
217 set menu_color_highlight=white/blue
219 #$(grub-root-search store-device font-file)
220 #$(setup-gfxterm config font-file)
221 #$(grub-setup-io config)
224 #$(theme-colors grub-theme-color-normal)
225 #$(theme-colors grub-theme-color-highlight))))
229 ;;; Configuration file.
232 (define* (keyboard-layout-file layout
235 "Process the X keyboard layout description LAYOUT, a <keyboard-layout> record,
236 and return a file in the format for GRUB keymaps. LAYOUT must be present in
237 the 'share/X11/xkb/symbols/' directory of 'xkeyboard-config'."
239 (with-imported-modules '((guix build utils))
241 (use-modules (guix build utils))
243 ;; 'grub-kbdcomp' passes all its arguments but '-o' to 'ckbcomp'
244 ;; (from the 'console-setup' package).
245 (invoke #+(file-append grub "/bin/grub-mklayout")
246 "-i" #+(keyboard-layout->console-keymap layout)
249 (computed-file (string-append "grub-keymap."
250 (string-map (match-lambda
253 (keyboard-layout-name layout)))
256 (define (grub-setup-io config)
257 "Return GRUB commands to configure the input / output interfaces. The result
258 is a string that can be inserted in grub.cfg."
259 (let* ((symbols->string (lambda (list)
260 (string-join (map symbol->string list) " ")))
261 (outputs (bootloader-configuration-terminal-outputs config))
262 (inputs (bootloader-configuration-terminal-inputs config))
263 (unit (bootloader-configuration-serial-unit config))
264 (speed (bootloader-configuration-serial-speed config))
266 ;; Respectively, GRUB_TERMINAL_OUTPUT and GRUB_TERMINAL_INPUT,
267 ;; as documented in GRUB manual section "Simple Configuration
269 (valid-outputs '(console serial serial_0 serial_1 serial_2 serial_3
270 gfxterm vga_text mda_text morse spkmodem))
271 (valid-inputs '(console serial serial_0 serial_1 serial_2 serial_3
272 at_keyboard usb_keyboard))
279 (if (memq output valid-outputs) output #f)) outputs)) "\n"
287 (if (memq input valid-inputs) input #f)) inputs)) "\n"))
288 ;; UNIT and SPEED are arguments to the same GRUB command
289 ;; ("serial"), so we process them together.
294 ;; COM ports 1 through 4
295 (if (and (exact-integer? unit) (<= unit 3) (>= unit 0))
296 (string-append " --unit=" (number->string unit))
300 (if (exact-integer? speed)
301 (string-append " --speed=" (number->string speed))
305 (format #f "~a" io)))
307 (define (grub-root-search device file)
308 "Return the GRUB 'search' command to look for DEVICE, which contains FILE,
309 a gexp. The result is a gexp that can be inserted in the grub.cfg-generation
311 ;; Usually FILE is a file name gexp like "/gnu/store/…-linux/vmlinuz", but
312 ;; it can also be something like "(hd0,msdos1)/vmlinuz" in the case of
313 ;; custom menu entries. In the latter case, don't emit a 'search' command.
314 (if (and (string? file) (not (string-prefix? "/" file)))
317 ;; Preferably refer to DEVICE by its UUID or label. This is more
318 ;; efficient and less ambiguous, see <http://bugs.gnu.org/22281>.
320 (format #f "search --fs-uuid --set ~a"
321 (uuid->string device)))
322 ((? file-system-label? label)
323 (format #f "search --label --set ~a"
324 (file-system-label->string label)))
326 (and (string? device) (string-contains device ":/"))) nfs-uri)
327 ;; If the device is an NFS share, then we assume that the expected
328 ;; file on that device (e.g. the GRUB background image or the kernel)
329 ;; has to be loaded over the network. Otherwise we would need an
330 ;; additional device information for some local disk to look for that
331 ;; file, which we do not have.
333 ;; We explicitly set "root=(tftp)" here even though if grub.cfg
334 ;; had been loaded via TFTP, Grub would have set "root=(tftp)"
335 ;; automatically anyway. The reason is if you have a system that
336 ;; used to be on NFS but now is local, root would be set to local
337 ;; disk. If you then selected an older system generation that is
338 ;; supposed to boot from network in the Grub boot menu, Grub still
339 ;; wouldn't load those files from network otherwise.
341 ;; TFTP is preferred to HTTP because it is used more widely and
342 ;; specified in standards more widely--especially BOOTP/DHCPv4
343 ;; defines a TFTP server for DHCP option 66, but not HTTP.
345 ;; Note: DHCPv6 specifies option 59 to contain a boot-file-url,
346 ;; which can contain a HTTP or TFTP URL.
348 ;; Note: It is assumed that the file paths are of a similar
349 ;; setup on both the TFTP server and the NFS server (it is
350 ;; not possible to search for files on TFTP).
355 #~(format #f "search --file --set ~a" #$file)))))
357 (define* (grub-configuration-file config entries
360 (system (%current-system))
362 store-directory-prefix)
363 "Return the GRUB configuration file corresponding to CONFIG, a
364 <bootloader-configuration> object, and where the store is available at
365 STORE-FS, a <file-system> object. OLD-ENTRIES is taken to be a list of menu
366 entries corresponding to old generations of the system.
367 STORE-DIRECTORY-PREFIX may be used to specify a store prefix, as is required
368 when booting a root file system on a Btrfs subvolume."
370 (append entries (bootloader-configuration-menu-entries config)))
371 (define (menu-entry->gexp entry)
372 (let ((label (menu-entry-label entry))
373 (linux (menu-entry-linux entry))
374 (device (menu-entry-device entry))
375 (device-mount-point (menu-entry-device-mount-point entry)))
377 (let ((arguments (menu-entry-linux-arguments entry))
378 (linux (normalize-file linux
380 store-directory-prefix))
381 (initrd (normalize-file (menu-entry-initrd entry)
383 store-directory-prefix)))
384 ;; Here DEVICE is the store and DEVICE-MOUNT-POINT is its mount point.
385 ;; Use the right file names for LINUX and INITRD in case
386 ;; DEVICE-MOUNT-POINT is not "/", meaning that the store is on a
387 ;; separate partition.
389 ;; When BTRFS-SUBVOLUME-FILE-NAME is defined, prepend it the linux and
390 ;; initrd paths, to allow booting from a Btrfs subvolume.
391 #~(format port "menuentry ~s {
397 #$(grub-root-search device linux)
398 #$linux (string-join (list #$@arguments))
400 (let ((kernel (menu-entry-multiboot-kernel entry))
401 (arguments (menu-entry-multiboot-arguments entry))
402 (modules (menu-entry-multiboot-modules entry))
403 (root-index 1)) ; XXX EFI will need root-index 2
406 multiboot ~a root=device:hd0s~a~a~a
410 #$root-index (string-join (list #$@arguments) " " 'prefix)
411 (string-join (map string-join '#$modules)
412 "\n module " 'prefix))))))
415 (let* ((entry (first all-entries))
416 (device (menu-entry-device entry))
417 (mount-point (menu-entry-device-mount-point entry)))
421 #:store-directory-prefix store-directory-prefix
424 (define locale-config
425 (let* ((entry (first all-entries))
426 (device (menu-entry-device entry))
427 (mount-point (menu-entry-device-mount-point entry))
428 (bootloader (bootloader-configuration-bootloader config))
429 (grub (bootloader-package bootloader)))
430 #~(let ((locale #$(and locale
431 (locale-definition-source
432 (locale-name->definition locale))))
433 (locales #$(and locale
434 (normalize-file (grub-locale-directory grub)
436 store-directory-prefix))))
439 # Localization configuration.
440 ~asearch --file --set ~a/en@quot.mo
443 ;; Skip the search if there is an image, as it has already
444 ;; been performed by eye-candy and traversing the store is
445 ;; an expensive operation.
446 #$(if (grub-theme-image (bootloader-theme config))
453 (define keyboard-layout-config
454 (let* ((layout (bootloader-configuration-keyboard-layout config))
455 (grub (bootloader-package
456 (bootloader-configuration-bootloader config)))
458 (keyboard-layout-file layout #:grub grub)))
459 (entry (first all-entries))
460 (device (menu-entry-device entry))
461 (mount-point (menu-entry-device-mount-point entry))
463 (normalize-file keymap* mount-point
464 store-directory-prefix))))
468 keymap ~a~%" #$keymap))))
471 #~(call-with-output-file #$output
474 "# This file was generated from your Guix configuration. Any changes
475 # will be lost upon reconfiguration.
479 #$keyboard-layout-config
483 #$(bootloader-configuration-default-entry config)
484 #$(bootloader-configuration-timeout config))
485 #$@(map menu-entry->gexp all-entries)
487 #$@(if (pair? old-entries)
489 submenu \"GNU system, old configurations...\" {~%")
490 #$@(map menu-entry->gexp old-entries)
494 if [ \"${grub_platform}\" == efi ]; then
495 menuentry \"Firmware setup\" {
500 ;; Since this file is rather unique, there's no point in trying to
502 (computed-file "grub.cfg" builder
503 #:options '(#:local-build? #t
504 #:substitutable? #f)))
509 ;;; Install procedures.
513 #~(lambda (bootloader device mount-point)
514 (let ((grub (string-append bootloader "/sbin/grub-install"))
515 (install-dir (string-append mount-point "/boot")))
516 ;; Install GRUB on DEVICE which is mounted at MOUNT-POINT. If DEVICE
517 ;; is #f, then we populate the disk-image rooted at MOUNT-POINT.
520 ;; Tell 'grub-install' that there might be a LUKS-encrypted
521 ;; /boot or root partition.
522 (setenv "GRUB_ENABLE_CRYPTODISK" "y")
524 ;; Hide potentially confusing messages from the user, such as
525 ;; "Installing for i386-pc platform."
526 (invoke/quiet grub "--no-floppy" "--target=i386-pc"
527 "--boot-directory" install-dir
529 ;; When creating a disk-image, only install GRUB modules.
530 (copy-recursively (string-append bootloader "/lib/")
533 (define install-grub-disk-image
534 #~(lambda (bootloader root-index image)
535 ;; Install GRUB on the given IMAGE. The root partition index is
538 (string-append bootloader "/bin/grub-mkimage"))
539 (modules '("biosdisk" "part_msdos" "fat" "ext2"))
541 (string-append bootloader "/sbin/grub-bios-setup"))
542 (root-device (format #f "hd0,msdos~a" root-index))
543 (boot-img (string-append bootloader "/lib/grub/i386-pc/boot.img"))
544 (device-map "device.map"))
546 ;; Create a minimal, standalone GRUB image that will be written
547 ;; directly in the MBR-GAP (space between the end of the MBR and the
549 (apply invoke grub-mkimage
552 "-p" (format #f "(~a)/boot/grub" root-device)
555 ;; Create a device mapping file.
556 (call-with-output-file device-map
558 (format port "(hd0) ~a~%" image)))
560 ;; Copy the default boot.img, that will be written on the MBR sector
561 ;; by GRUB-BIOS-SETUP.
562 (copy-file boot-img "boot.img")
564 ;; Install both the "boot.img" and the "core.img" files on the given
565 ;; IMAGE. On boot, the MBR sector will execute the minimal GRUB
566 ;; written in the MBR-GAP. GRUB configuration and missing modules will
567 ;; be read from ROOT-DEVICE.
568 (invoke grub-bios-setup
574 (define install-grub-efi
575 #~(lambda (bootloader efi-dir mount-point)
576 ;; There is nothing useful to do when called in the context of a disk
579 ;; Install GRUB onto the EFI partition mounted at EFI-DIR, for the
580 ;; system whose root is mounted at MOUNT-POINT.
581 (let ((grub-install (string-append bootloader "/sbin/grub-install"))
582 (install-dir (string-append mount-point "/boot"))
583 ;; When installing Guix, it's common to mount EFI-DIR below
584 ;; MOUNT-POINT rather than /boot/efi on the live image.
585 (target-esp (if (file-exists? (string-append mount-point efi-dir))
586 (string-append mount-point efi-dir)
588 ;; Tell 'grub-install' that there might be a LUKS-encrypted /boot or
590 (setenv "GRUB_ENABLE_CRYPTODISK" "y")
591 (invoke/quiet grub-install "--boot-directory" install-dir
592 "--bootloader-id=Guix"
593 "--efi-directory" target-esp)))))
595 (define (install-grub-efi-netboot subdir)
596 "Define a grub-efi-netboot bootloader installer for installation in SUBDIR,
597 which is usually efi/Guix or efi/boot."
598 (let* ((system (string-split (nix-system->gnu-triplet
599 (or (%current-target-system)
602 (arch (first system))
603 (boot-efi-link (match system
604 ;; These are the supportend systems and the names
605 ;; defined by the UEFI standard for removable media.
606 (("i686" _ ...) "/bootia32.efi")
607 (("x86_64" _ ...) "/bootx64.efi")
608 (("arm" _ ...) "/bootarm.efi")
609 (("aarch64" _ ...) "/bootaa64.efi")
610 (("riscv" _ ...) "/bootriscv32.efi")
611 (("riscv64" _ ...) "/bootriscv64.efi")
612 ;; Other systems are not supported, although defined.
613 ;; (("riscv128" _ ...) "/bootriscv128.efi")
614 ;; (("ia64" _ ...) "/bootia64.efi")
616 (core-efi (string-append
617 ;; This is the arch dependent file name of GRUB, e.g.
618 ;; i368-efi/core.efi or arm64-efi/core.efi.
625 (with-imported-modules
626 '((guix build union))
627 #~(lambda (bootloader target mount-point)
628 "Install the BOOTLOADER, which must be the package grub, as e.g.
629 bootx64.efi or bootaa64.efi into SUBDIR, which is usually efi/Guix or efi/boot,
630 below the directory TARGET for the system whose root is mounted at MOUNT-POINT.
632 MOUNT-POINT is the last argument in 'guix system init /etc/config.scm mnt/point'
633 or '/' for other 'guix system' commands.
635 TARGET is the target argument given to the bootloader-configuration in
638 (bootloader (bootloader-configuration
643 TARGET is required to be an absolute directory name, usually mounted via NFS,
644 and finally needs to be provided by a TFTP server as the TFTP root directory.
646 GRUB will load tftp://server/SUBDIR/grub.cfg and this file will instruct it to
647 load more files from the store like tftp://server/gnu/store/…-linux…/Image.
649 To make this possible two symlinks will be created. The first symlink points
650 relatively form MOUNT-POINT/TARGET/SUBDIR/grub.cfg to
651 MOUNT-POINT/boot/grub/grub.cfg, and the second symlink points relatively from
652 MOUNT-POINT/TARGET/%store-prefix to MOUNT-POINT/%store-prefix.
654 It is important to note that these symlinks need to be relativ, as the absolute
655 paths on the TFTP server side are unknown.
657 It is also important to note that both symlinks will point outside the TFTP root
658 directory and that the TARGET/%store-prefix symlink makes the whole store
659 accessible via TFTP. Possibly the TFTP server must be configured
660 to allow accesses outside its TFTP root directory. This may need to be
661 considered for security aspects."
662 (use-modules ((guix build union) #:select (symlink-relative)))
663 (let* ((net-dir (string-append mount-point target "/"))
664 (sub-dir (string-append net-dir #$subdir "/"))
665 (store (string-append mount-point (%store-prefix)))
666 (store-link (string-append net-dir (%store-prefix)))
667 (grub-cfg (string-append mount-point "/boot/grub/grub.cfg"))
668 (grub-cfg-link (string-append sub-dir (basename grub-cfg)))
669 (boot-efi-link (string-append sub-dir #$boot-efi-link)))
670 ;; Prepare the symlink to the store.
671 (mkdir-p (dirname store-link))
672 (false-if-exception (delete-file store-link))
673 (symlink-relative store store-link)
674 ;; Prepare the symlink to the grub.cfg, which points into the store.
675 (mkdir-p (dirname grub-cfg-link))
676 (false-if-exception (delete-file grub-cfg-link))
677 (symlink-relative grub-cfg grub-cfg-link)
678 ;; Install GRUB, which refers to the grub.cfg, with support for
679 ;; encrypted partitions,
680 (setenv "GRUB_ENABLE_CRYPTODISK" "y")
681 (invoke/quiet (string-append bootloader "/bin/grub-mknetdir")
682 (string-append "--net-directory=" net-dir)
683 (string-append "--subdir=" #$subdir))
684 ;; Prepare the bootloader symlink, which points to core.efi of GRUB.
685 (false-if-exception (delete-file boot-efi-link))
686 (symlink #$core-efi boot-efi-link))))))
691 ;;; Bootloader definitions.
693 ;;; For all these grub-bootloader variables the path to /boot/grub/grub.cfg
694 ;;; is fixed. Inheriting and overwriting the field 'configuration-file' will
695 ;;; break 'guix system delete-generations', 'guix system switch-generation',
696 ;;; and 'guix system roll-back'.
698 (define grub-bootloader
702 (installer install-grub)
703 (disk-image-installer install-grub-disk-image)
704 (configuration-file "/boot/grub/grub.cfg")
705 (configuration-file-generator grub-configuration-file)))
707 (define grub-minimal-bootloader
709 (inherit grub-bootloader)
710 (package grub-minimal)))
712 (define grub-efi-bootloader
714 (inherit grub-bootloader)
715 (installer install-grub-efi)
716 (disk-image-installer #f)
720 (define grub-efi-netboot-bootloader
722 (inherit grub-efi-bootloader)
723 (name 'grub-efi-netboot-bootloader)
724 (installer (install-grub-efi-netboot "efi/Guix"))))
726 (define grub-mkrescue-bootloader
728 (inherit grub-efi-bootloader)
729 (package grub-hybrid)))
733 ;;; Compatibility macros.
736 (define-syntax grub-configuration
738 ((_ (grub package) fields ...)
739 (if (eq? package grub)
740 (bootloader-configuration
741 (bootloader grub-bootloader)
743 (bootloader-configuration
744 (bootloader grub-efi-bootloader)
747 (bootloader-configuration
748 (bootloader grub-bootloader)
751 ;;; grub.scm ends here