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

bootloader: limine: Align configuration file format strings.

Browse Source
This commit is contained in:
Hilton Chain 2026-03-21 01:02:22 +08:00
parent ad8bb365c0
commit 1233c2154a
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -64,7 +64,8 @@
(current-args (first (list #$@ukify-args))) (current-args (first (list #$@ukify-args)))
(old-labels (cdr '#$labels)) (old-labels (cdr '#$labels))
(old-args (cdr (list #$@ukify-args)))) (old-args (cdr (list #$@ukify-args))))
(format port "timeout: 5~%") (format port "\
timeout: 5~%")
(with-directory-excursion guix-directory (with-directory-excursion guix-directory
(for-each delete-file (find-files "." "^OLD-[0-9]+\\.EFI$")) (for-each delete-file (find-files "." "^OLD-[0-9]+\\.EFI$"))
(apply invoke/quiet ukify "build" "--output" "CURRENT.EFI" (apply invoke/quiet ukify "build" "--output" "CURRENT.EFI"
@ -75,7 +76,8 @@
path: boot():/EFI/Guix/CURRENT.EFI~%" path: boot():/EFI/Guix/CURRENT.EFI~%"
current-label) current-label)
(unless (null? old-labels) (unless (null? old-labels)
(format port "~%/GNU system, old configurations...~%")) (format port "
/GNU system, old configurations...~%"))
(false-if-exception (false-if-exception
(let loop ((count 1) (let loop ((count 1)
(labels old-labels) (labels old-labels)