diff options
| author | Hilton Chain <hako@ultrarare.space> | 2025-06-11 21:51:29 +0800 |
|---|---|---|
| committer | Hilton Chain <hako@ultrarare.space> | 2025-06-11 22:15:43 +0800 |
| commit | af7b8544dfa40c057e49d2e0878e269ed4c1d339 (patch) | |
| tree | cfaccb87cbd4406694e37d676645de9a0926a20e /nonguix | |
| parent | fba2af60c9050c3abdc274521fb1211d39fa9ecd (diff) | |
transformations: Add ‘nonguix-transformation-linux’.
* nonguix/transformations.scm (nonguix-transformation-linux): New procedure.
Diffstat (limited to 'nonguix')
| -rw-r--r-- | nonguix/transformations.scm | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/nonguix/transformations.scm b/nonguix/transformations.scm index ea38127..751c6cf 100644 --- a/nonguix/transformations.scm +++ b/nonguix/transformations.scm @@ -15,7 +15,8 @@ #:use-module (gnu packages package-management) #:use-module (nongnu packages linux) #:use-module (nongnu packages nvidia) - #:export (nonguix-transformation-guix)) + #:export (nonguix-transformation-guix + nonguix-transformation-linux)) (define* (nonguix-transformation-guix #:key (substitutes? #t) (channel? #t) @@ -75,3 +76,16 @@ FIXME: GUIX-SOURCE? is disabled by default due to performance issue." ,@(if substitutes? '("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)))) |