diff --git a/sakura/packages/sound.scm b/sakura/packages/sound.scm new file mode 100644 index 0000000..a2b2e1d --- /dev/null +++ b/sakura/packages/sound.scm @@ -0,0 +1,108 @@ +(define-module (sakura packages sound) + #:use-module (guix gexp) + #:use-module (guix utils) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix git-download) + #:use-module (gnu packages) + #:use-module (gnu packages linux) + #:use-module (gnu packages python-xyz) + #:use-module (gnu packages pulseaudio)) + +(define-public pulseaudio-sakura + (package + (inherit pulseaudio) + (name "pulseaudio") + (version "17.0") + (source + (origin + (method url-fetch) + (uri (string-append + "https://freedesktop.org/software/pulseaudio/releases/" + name "-" version ".tar.xz")) + (sha256 + (base32 + "1dc7xdfbn5rknwsvv5m2ijfwnqrap208liwyhiykjghsczb98dq5")))) + (arguments + (substitute-keyword-arguments (package-arguments pulseaudio) + ((#:phases phases) + #~(modify-phases #$phases + (delete 'check))))) + (inputs + (modify-inputs (package-inputs pulseaudio) + (replace "alsa-lib" alsa-lib-sakura) + (replace "bluez" bluez-sakura))))) + +(define-public bluez-sakura + (package + (inherit bluez) + (version "5.78") + (source + (origin + (method url-fetch) + (uri (string-append + "mirror://kernel.org/linux/bluetooth/bluez-" + version ".tar.xz")) + (sha256 + (base32 + "1qy5fc6z1l3fvcqkvyszzz2xr86yzi2nyphgvsw7bly52lcys3w3")))) + (arguments + (substitute-keyword-arguments (package-arguments bluez) + ((#:configure-flags flags ''()) + #~(append (list "--disable-manpages") + #$flags)) + ((#:phases phases) + #~(modify-phases #$phases + (add-after 'configure 'fix-makefile + (lambda _ + (substitute* "Makefile" + (("install-confDATA:") "install-IGNORED:") + (("install-confDATA") "") + (("bluetoothd-fix-permissions:") "install-IGNORED2:") + (("bluetoothd-fix-permissions") "")))))) + )))) + +(define-public alsa-lib-sakura + (package + (inherit alsa-lib) + (name "alsa-lib") + (version "1.2.12") + (source + (origin + (method url-fetch) + (uri (string-append + "ftp://ftp.alsa-project.org/pub/lib/alsa-lib-" + version ".tar.bz2")) + (sha256 + (base32 + "1lnh38wii8mnwp3n4hnqa718rgi52rq6ix1llsjrs9r7hs8css28")))))) + +(define-public pipewire-sakura + (package + (inherit pipewire) + (name "pipewire") + (version "1.2.6") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.freedesktop.org/pipewire/pipewire") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1mh9r0z9gmwz14dzfjn0shdnpkkz6ssgcvig5h9y218haq1xnsh2")))) + (inputs + (modify-inputs (package-inputs pipewire) + (replace "alsa-lib" alsa-lib-sakura) + (replace "bluez" bluez-sakura) + (replace "pulseaudio" pulseaudio-sakura))))) + +(define-public wireplumber-sakura + (package + (inherit wireplumber) + (name "wireplumber") + (inputs + (modify-inputs (package-inputs wireplumber) + (replace "pipewire" pipewire-sakura))))) +