modules/ryan-packages/linux.scm
8417362bf7617f1656de70498fc1e9957a5d551b
· 1.4 KB · 38 lines
raw
| 1 | (define-module (ryan-packages linux) |
| 2 | #:use-module (guix download) |
| 3 | #:use-module (guix packages) |
| 4 | #:use-module (guix gexp) |
| 5 | #:use-module (guix build utils) |
| 6 | #:use-module (gnu packages) |
| 7 | #:use-module (gnu packages linux) |
| 8 | #:use-module (gnu packages python-xyz) |
| 9 | #:use-module (guix git-download) |
| 10 | #:use-module (guix utils)) |
| 11 | |
| 12 | (define-public bluez-ryan |
| 13 | (package |
| 14 | (inherit bluez) |
| 15 | (version "5.79") |
| 16 | (source |
| 17 | (origin |
| 18 | (method url-fetch) |
| 19 | (uri (string-append |
| 20 | "mirror://kernel.org/linux/bluetooth/bluez-" |
| 21 | version ".tar.xz")) |
| 22 | (sha256 |
| 23 | (base32 |
| 24 | "12pal1m4xlr8k7kxb6isv5lbaca2wc5zcgy0907wfwcz78qaar21")))) |
| 25 | (arguments (substitute-keyword-arguments (package-arguments bluez) |
| 26 | ((#:configure-flags ''()) |
| 27 | #~(append (list "--disable-manpages") #$flags)) |
| 28 | ((#:phases phases) |
| 29 | #~(modify-phases #$phases |
| 30 | (add-after 'configure 'fix-make |
| 31 | (lambda _ |
| 32 | (substitute* "Makefile" |
| 33 | (("install-confDATA:") "install-IGNORED:") |
| 34 | (("install-confDATA") "") |
| 35 | (("bluetoothd-fix-permissions:") "install-IGNORED2:") |
| 36 | (("bluetoothd-fix-permissions") "")))))))))) |
| 37 | |
| 38 | bluez-ryan |