amaharaneko/nonguix-mirrors
1
0
Fork 0
mirror of https://gitlab.com/nonguix/nonguix.git synced 2025-10-02 02:14:59 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

nongnu: corrupt-linux: Apply Guix modifications.

Browse source 
This is a follow-up to commit 7ac8fe6e2a, which
only applies Nonguix modifications to kernel configuration.

* nongnu/packages/linux.scm (corrupt-linux): Modify freedo phases first and
use ‘customize-linux’ later.
This commit is contained in:
Hilton Chain 2025-05-23 15:06:55 +08:00
parent 7ac8fe6e2a
commit ada9bbca1c
No known key found for this signature in database
GPG key ID: ACC66D09CA528292
1 changed files with 30 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

48
nongnu/packages/linux.scm
View file

@ -131,35 +131,37 @@ some freedo package or an output of package-version procedure."
(pristine-source (package-source freedo)) (pristine-source (package-source freedo))
(inputs (map gexp-input-thing (extract-gexp-inputs pristine-source))) (inputs (map gexp-input-thing (extract-gexp-inputs pristine-source)))
(sources (filter origin? inputs)) (sources (filter origin? inputs))
(hash (find-source-hash sources url)) (hash (find-source-hash sources url)))
(base (customize-linux (package
(inherit
(customize-linux
#:name name #:name name
#:linux freedo #:linux
(package
(inherit freedo)
(version version)
(arguments
(substitute-keyword-arguments (package-arguments freedo)
((#:phases phases '%standard-phases)
#~(modify-phases #$phases
;; Make sure the resulted package is compatible with
;; ‘customize-linux’.
(add-before 'configure 'nonguix-configure
(lambda args
(let ((defconfig
(format #f "arch/~a/configs/nonguix_defconfig"
#$(linux-srcarch))))
(apply (assoc-ref #$phases 'configure) args)
(modify-defconfig
".config" '#$(get-extra-configs this-package))
(invoke "make" "savedefconfig")
(rename-file "defconfig" defconfig)))))))))
#:source (origin #:source (origin
(method url-fetch) (method url-fetch)
(uri url) (uri url)
(hash hash)) (hash hash))
#:configs configs #:configs configs
#:defconfig defconfig))) #:defconfig defconfig))
(package
(inherit base)
(version version)
(arguments
(substitute-keyword-arguments (package-arguments base)
((#:phases phases)
#~(modify-phases #$phases
;; Make sure the resulted package is compatible with
;; ‘customize-linux’.
(add-before 'configure 'nonguix-configure
(lambda _
(let ((defconfig
(format #f "arch/~a/configs/nonguix_defconfig"
#$(linux-srcarch))))
(invoke "make" "defconfig")
(modify-defconfig
".config" '#$(get-extra-configs this-package))
(invoke "make" "savedefconfig")
(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