seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-03-04 17:04:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

bootloader: limine: Delay bootloader installation.

Browse Source 
* modules/rosenthal/bootloader/limine.scm (limine-configuration-file): Install
bootloader after installing UKIs and generating the configuration file.
This commit is contained in:
Hilton Chain 2026-03-03 16:03:38 +08:00
parent 11d821da23
commit 088bc2bf51
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 28 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
modules/rosenthal/bootloader/limine.scm
View File

@ -56,7 +56,7 @@
(limine-directory (in-vicinity directory "EFI/BOOT")) (limine-directory (in-vicinity directory "EFI/BOOT"))
(guix-directory (in-vicinity directory "EFI/Guix"))) (guix-directory (in-vicinity directory "EFI/Guix")))
(for-each mkdir-p (list limine-directory guix-directory)) (for-each mkdir-p (list limine-directory guix-directory))
(install-file #$limine limine-directory) ;; Install unified kernel images and generate Limine configuration.
(call-with-output-file (in-vicinity limine-directory "limine.conf.tmp") (call-with-output-file (in-vicinity limine-directory "limine.conf.tmp")
(lambda (port) (lambda (port)
(let* ((ukify #$(file-append ukify "/bin/ukify")) (let* ((ukify #$(file-append ukify "/bin/ukify"))
@ -78,32 +78,36 @@
current-label) current-label)
(unless (null? old-labels) (unless (null? old-labels)
(format port "~%/GNU system, old configurations...~%")) (format port "~%/GNU system, old configurations...~%"))
(let loop ((count 1) (false-if-exception
(labels old-labels) (let loop ((count 1)
(args old-args)) (labels old-labels)
(let* ((image-name (format #f "OLD-~a.EFI" count))) (args old-args))
(unless (null? labels) (let* ((image-name (format #f "OLD-~a.EFI" count)))
(with-exception-handler (unless (null? labels)
(lambda _ (with-exception-handler
(false-if-exception (delete-file image-name)) (lambda _
(exit)) (false-if-exception (delete-file image-name))
(lambda () ;; Exit loop.
(when (< (free-disk-space ".") minbytes) (loop 0 '() '()))
(raise-exception 'insuffcient-disk-space)) (lambda ()
(apply invoke/quiet (when (< (free-disk-space ".") minbytes)
ukify "build" "--output" image-name (raise-exception 'insuffcient-disk-space))
(first args)) (apply invoke/quiet
(format port "~ ukify "build" "--output" image-name
(first args))
(format port "~
//~a //~a
protocol: efi protocol: efi
path: boot():/EFI/Guix/OLD-~a.EFI~%" path: boot():/EFI/Guix/OLD-~a.EFI~%"
(first labels) (first labels)
count))) count)))
(loop (1+ count) (loop (1+ count)
(cdr labels) (cdr labels)
(cdr args))))))))) (cdr args))))))))
(rename-file (in-vicinity limine-directory "limine.conf.tmp") (rename-file (in-vicinity limine-directory "limine.conf.tmp")
(in-vicinity limine-directory "limine.conf"))))))) (in-vicinity limine-directory "limine.conf"))
;; Finally, install Limine.
(install-file #$limine limine-directory))))))))
(define install-limine-efi (define install-limine-efi
#~(lambda (bootloader target mount-point) #~(lambda (bootloader target mount-point)