2018-09-25 18:51:33 +02:00
|
|
|
(define-module (ambrevar linux-custom)
|
2018-09-19 11:33:52 +02:00
|
|
|
#:use-module (guix gexp)
|
|
|
|
#:use-module (guix packages)
|
|
|
|
#:use-module (guix download)
|
2018-09-19 19:57:15 +02:00
|
|
|
#:use-module (guix git-download)
|
|
|
|
#:use-module (guix build-system trivial)
|
|
|
|
#:use-module ((guix licenses) #:prefix license:)
|
2018-09-19 11:33:52 +02:00
|
|
|
#:use-module (gnu packages linux)
|
|
|
|
#:use-module (srfi srfi-1))
|
|
|
|
|
|
|
|
(define-public linux-nonfree
|
|
|
|
(package
|
|
|
|
(inherit linux-libre)
|
|
|
|
(name "linux-nonfree")
|
|
|
|
(version (package-version linux-libre-4.14))
|
|
|
|
(source
|
|
|
|
(origin
|
|
|
|
(method url-fetch)
|
|
|
|
(uri
|
|
|
|
(string-append
|
|
|
|
"https://www.kernel.org/pub/linux/kernel/v4.x/"
|
|
|
|
"linux-" version ".tar.xz"))
|
|
|
|
(sha256
|
|
|
|
(base32
|
2018-09-25 18:45:29 +02:00
|
|
|
;; 4.14.71
|
|
|
|
"12blj3zzvzs2nz8rp1g5ykibfvm355442c31l4ijr4mxphylg93n"))))
|
2018-09-19 11:33:52 +02:00
|
|
|
(native-inputs
|
2018-09-25 18:58:49 +02:00
|
|
|
`(("kconfig" ,(local-file "./linux-laptop.conf"))
|
2018-09-19 11:33:52 +02:00
|
|
|
,@(alist-delete "kconfig" (package-native-inputs linux-libre))))))
|
2018-09-19 19:57:15 +02:00
|
|
|
|
|
|
|
;; 250+ MB.
|
|
|
|
(define-public linux-firmware-all
|
|
|
|
(let ((version "0.0.0")
|
|
|
|
(commit "6d5131107f2ba67a13f469ac770a55f101ba654d"))
|
|
|
|
(package
|
|
|
|
(name "linux-firmware-all")
|
|
|
|
(version version)
|
|
|
|
(source (origin
|
|
|
|
(method git-fetch)
|
|
|
|
(uri (git-reference
|
|
|
|
(url "git://git.kernel.org/pub/scm/linux/kernel/git/firmware/linux-firmware.git")
|
|
|
|
(commit commit)))
|
|
|
|
(sha256
|
|
|
|
(base32
|
|
|
|
"0nql7rqkx064lsw5bh6n29yfdxmp3hl4nqgp1fxdb4ys76awchg3"))))
|
|
|
|
(build-system trivial-build-system)
|
|
|
|
(arguments
|
|
|
|
`(#:modules ((guix build utils))
|
|
|
|
#:builder (begin
|
|
|
|
(use-modules (guix build utils))
|
|
|
|
(let ((source (assoc-ref %build-inputs "source"))
|
|
|
|
(destination (string-append %output "/lib/firmware")))
|
|
|
|
(mkdir-p destination)
|
|
|
|
(copy-recursively source destination #:follow-symlinks? #t)
|
|
|
|
#t))))
|
|
|
|
(home-page "")
|
|
|
|
(synopsis "Non-free firmware for the Linux kernel")
|
|
|
|
(description "Non-free firmware for the Linux kernel")
|
|
|
|
(license #f))))
|
|
|
|
|
|
|
|
(define (linux-firmware-version) "9d40a17beaf271e6ad47a5e714a296100eef4692")
|
|
|
|
(define (linux-firmware-source version)
|
|
|
|
(origin
|
|
|
|
(method git-fetch)
|
|
|
|
(uri (git-reference
|
|
|
|
(url (string-append "https://git.kernel.org/pub/scm/linux/kernel"
|
|
|
|
"/git/firmware/linux-firmware.git"))
|
|
|
|
(commit version)))
|
|
|
|
(file-name (string-append "linux-firmware-" version "-checkout"))
|
|
|
|
(sha256
|
|
|
|
(base32
|
|
|
|
"099kll2n1zvps5qawnbm6c75khgn81j8ns0widiw0lnwm8s9q6ch"))))
|
|
|
|
|
|
|
|
;; ~60 MB.
|
|
|
|
(define-public linux-firmware-iwlwifi
|
|
|
|
(package
|
|
|
|
(name "linux-firmware-iwlwifi")
|
|
|
|
(version (linux-firmware-version))
|
|
|
|
(source (linux-firmware-source version))
|
|
|
|
(build-system trivial-build-system)
|
|
|
|
(arguments
|
|
|
|
`(#:modules ((guix build utils))
|
|
|
|
#:builder (begin
|
|
|
|
(use-modules (guix build utils))
|
|
|
|
(let ((source (assoc-ref %build-inputs "source"))
|
|
|
|
(fw-dir (string-append %output "/lib/firmware/")))
|
|
|
|
(mkdir-p fw-dir)
|
|
|
|
(for-each (lambda (file)
|
|
|
|
(copy-file file
|
|
|
|
(string-append fw-dir (basename file))))
|
|
|
|
(find-files source
|
|
|
|
"iwlwifi-.*\\.ucode$|LICENSE\\.iwlwifi_firmware$"))
|
|
|
|
#t))))
|
|
|
|
(home-page "https://wireless.wiki.kernel.org/en/users/drivers/iwlwifi")
|
|
|
|
(synopsis "Non-free firmware for Intel wifi chips")
|
|
|
|
(description "Non-free iwlwifi firmware")
|
|
|
|
(license (license:non-copyleft
|
|
|
|
"https://git.kernel.org/cgit/linux/kernel/git/firmware/linux-firmware.git/tree/LICENCE.iwlwifi_firmware?id=HEAD"))))
|