diff options
| author | Hilton Chain <hako@ultrarare.space> | 2025-05-23 13:37:29 +0800 |
|---|---|---|
| committer | Hilton Chain <hako@ultrarare.space> | 2025-05-23 13:40:09 +0800 |
| commit | 7ac8fe6e2aaa1e93db6d916fbadcfb40d6ecac73 (patch) | |
| tree | 188d3ea0ba8aa19fd4002e76ac4de491bbd9c65d | |
| parent | 595c2155a61ef7e552269cb1c569a33e3ec32bb2 (diff) | |
nongnu: corrupt-linux: Add nonguix_defconfig.
This is a follow-up to commit f9fedea132fc146c0ad692deb1f3d840acc4a967.
* nongnu/packages/linux.scm (corrupt-linux) Use "nonguix_defconfig".
[arguments]<#:phases>: In ‘nonguix-configure’, save modified defconfig as
"nonguix_defconfig".
| -rw-r--r-- | nongnu/packages/linux.scm | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/nongnu/packages/linux.scm b/nongnu/packages/linux.scm index a6c3944..e23f824 100644 --- a/nongnu/packages/linux.scm +++ b/nongnu/packages/linux.scm | |||
| @@ -104,7 +104,7 @@ some freedo package or an output of package-version procedure." | |||
| 104 | #:key | 104 | #:key |
| 105 | (name "linux") | 105 | (name "linux") |
| 106 | (configs "") | 106 | (configs "") |
| 107 | (defconfig #f) | 107 | (defconfig "nonguix_defconfig") |
| 108 | (get-extra-configs nonguix-extra-linux-options)) | 108 | (get-extra-configs nonguix-extra-linux-options)) |
| 109 | 109 | ||
| 110 | ;; TODO: This very directly depends on guix internals. | 110 | ;; TODO: This very directly depends on guix internals. |
| @@ -152,16 +152,14 @@ some freedo package or an output of package-version procedure." | |||
| 152 | ;; ‘customize-linux’. | 152 | ;; ‘customize-linux’. |
| 153 | (add-before 'configure 'nonguix-configure | 153 | (add-before 'configure 'nonguix-configure |
| 154 | (lambda _ | 154 | (lambda _ |
| 155 | (unless #$defconfig | 155 | (let ((defconfig |
| 156 | (let ((guix_defconfig | 156 | (format #f "arch/~a/configs/nonguix_defconfig" |
| 157 | (format #f "arch/~a/configs/guix_defconfig" | 157 | #$(linux-srcarch)))) |
| 158 | #$(linux-srcarch)))) | 158 | (invoke "make" "defconfig") |
| 159 | (invoke "make" "defconfig") | 159 | (modify-defconfig |
| 160 | (modify-defconfig | 160 | ".config" '#$(get-extra-configs this-package)) |
| 161 | ".config" | 161 | (invoke "make" "savedefconfig") |
| 162 | '#$(get-extra-configs (package-version this-package))) | 162 | (rename-file "defconfig" defconfig)))))))) |
| 163 | (invoke "make" "savedefconfig") | ||
| 164 | (rename-file "defconfig" guix_defconfig))))))))) | ||
| 165 | (home-page "https://www.kernel.org/") | 163 | (home-page "https://www.kernel.org/") |
| 166 | (synopsis "Linux kernel with nonfree binary blobs included") | 164 | (synopsis "Linux kernel with nonfree binary blobs included") |
| 167 | (description | 165 | (description |
