sakura sound package scm

1 files changed, 108 insertions, 0 deletions

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)))))
+