mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 13:28:12 -05:00
image: Add bootloader installation support.
* gnu/build/image.scm (initialize-root-partition): Add bootloader-package and bootloader-installer arguments. Run the bootloader-installer if defined. * gnu/system/image.scm (system-disk-image): Adapt the partition initializer call accordingly.
This commit is contained in:
parent
7202895e5a
commit
9c1adb2400
2 changed files with 8 additions and 1 deletions
|
@ -155,6 +155,8 @@ (define* (initialize-root-partition root
|
|||
#:key
|
||||
bootcfg
|
||||
bootcfg-location
|
||||
bootloader-package
|
||||
bootloader-installer
|
||||
(deduplicate? #t)
|
||||
references-graphs
|
||||
(register-closures? #t)
|
||||
|
@ -178,6 +180,9 @@ (define* (initialize-root-partition root
|
|||
#:deduplicate? deduplicate?))
|
||||
references-graphs))
|
||||
|
||||
(when bootloader-installer
|
||||
(display "installing bootloader...\n")
|
||||
(bootloader-installer bootloader-package #f root))
|
||||
(when bootcfg
|
||||
(install-boot-config bootcfg bootcfg-location root)))
|
||||
|
||||
|
|
|
@ -235,7 +235,9 @@ (define (partition-image partition)
|
|||
#:deduplicate? #f
|
||||
#:system-directory #$os
|
||||
#:bootloader-package
|
||||
#$(bootloader-package bootloader)
|
||||
#+(bootloader-package bootloader)
|
||||
#:bootloader-installer
|
||||
#+(bootloader-installer bootloader)
|
||||
#:bootcfg #$bootcfg
|
||||
#:bootcfg-location
|
||||
#$(bootloader-configuration-file bootloader)))))
|
||||
|
|
Loading…
Reference in a new issue