nongnu: corrupt-linux: Add nonguix_defconfig.

This is a follow-up to commit f9fedea132.

* nongnu/packages/linux.scm (corrupt-linux) Use "nonguix_defconfig".
[arguments]<#:phases>: In ‘nonguix-configure’, save modified defconfig as
"nonguix_defconfig".
This commit is contained in:
Hilton Chain 2025-05-23 13:37:29 +08:00
parent 595c2155a6
commit 7ac8fe6e2a
No known key found for this signature in database
GPG key ID: ACC66D09CA528292

View file

@ -104,7 +104,7 @@ some freedo package or an output of package-version procedure."
#:key #:key
(name "linux") (name "linux")
(configs "") (configs "")
(defconfig #f) (defconfig "nonguix_defconfig")
(get-extra-configs nonguix-extra-linux-options)) (get-extra-configs nonguix-extra-linux-options))
;; TODO: This very directly depends on guix internals. ;; TODO: This very directly depends on guix internals.
@ -152,16 +152,14 @@ some freedo package or an output of package-version procedure."
;; customize-linux. ;; customize-linux.
(add-before 'configure 'nonguix-configure (add-before 'configure 'nonguix-configure
(lambda _ (lambda _
(unless #$defconfig (let ((defconfig
(let ((guix_defconfig (format #f "arch/~a/configs/nonguix_defconfig"
(format #f "arch/~a/configs/guix_defconfig"
#$(linux-srcarch)))) #$(linux-srcarch))))
(invoke "make" "defconfig") (invoke "make" "defconfig")
(modify-defconfig (modify-defconfig
".config" ".config" '#$(get-extra-configs this-package))
'#$(get-extra-configs (package-version this-package)))
(invoke "make" "savedefconfig") (invoke "make" "savedefconfig")
(rename-file "defconfig" guix_defconfig))))))))) (rename-file "defconfig" defconfig))))))))
(home-page "https://www.kernel.org/") (home-page "https://www.kernel.org/")
(synopsis "Linux kernel with nonfree binary blobs included") (synopsis "Linux kernel with nonfree binary blobs included")
(description (description