transformations: Add ‘nonguix-transformation-linux’.

* nonguix/transformations.scm (nonguix-transformation-linux): New procedure.
This commit is contained in:
Hilton Chain 2025-06-11 21:51:29 +08:00
parent fba2af60c9
commit af7b8544df
No known key found for this signature in database
GPG key ID: ACC66D09CA528292

View file

@ -15,7 +15,8 @@
#:use-module (gnu packages package-management) #:use-module (gnu packages package-management)
#:use-module (nongnu packages linux) #:use-module (nongnu packages linux)
#:use-module (nongnu packages nvidia) #:use-module (nongnu packages nvidia)
#:export (nonguix-transformation-guix)) #:export (nonguix-transformation-guix
nonguix-transformation-linux))
(define* (nonguix-transformation-guix #:key (substitutes? #t) (define* (nonguix-transformation-guix #:key (substitutes? #t)
(channel? #t) (channel? #t)
@ -75,3 +76,16 @@ FIXME: GUIX-SOURCE? is disabled by default due to performance issue."
,@(if substitutes? ,@(if substitutes?
'("https://substitutes.nonguix.org") '("https://substitutes.nonguix.org")
'())))))))))) '()))))))))))
(define* (nonguix-transformation-linux #:key (linux linux)
(firmware (list linux-firmware))
(initrd microcode-initrd))
"Return a procedure that transforms an operating system, setting up
LINUX (default: linux) kernel, with FIRMWARE (default: (list linux-firmware))
and INITRD (default: microcode-initrd)."
(lambda (os)
(operating-system
(inherit os)
(kernel linux)
(firmware firmware)
(initrd initrd))))