home, demiurge: switching to jack

1 files changed, 35 insertions, 32 deletions

diff --git a/epistemia/packages/audio.scm b/epistemia/packages/audio.scm
index c43eeee..421a91a 100644
--- a/epistemia/packages/audio.scm
+++ b/epistemia/packages/audio.scm
@@ -1,37 +1,40 @@
 (define-module (epistemia packages audio)
   #:use-module (guix packages)
-  #:use-module (guix utils)
-  #:use-module (guix gexp)
-  #:use-module (gnu packages audio))
+  #:use-module (guix download)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix licenses)
+  #:use-module (gnu packages audio)
+  #:use-module (gnu packages linux)
+  #:use-module (gnu packages pkg-config))
 
-(define-public dsp-ladspa
+(define-public zita-ajbridge
   (package
-    (inherit dsp)
-    (name "dsp-ladspa")
+    (name "zita-ajbridge")
+    (version "0.8.4")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://kokkinizita.linuxaudio.org/linuxaudio/downloads/zita-ajbridge-"
+                                  version ".tar.bz2"))
+              (sha256
+               (base32
+                "0g5v0l0zmqh049mhv62n8s5bpm0yrlby7mkxxhs5qwadp8v4w9mw"))))
+    (build-system gnu-build-system)
     (arguments
-     (substitute-keyword-arguments (package-arguments dsp)
-       ((#:phases phases '%standard-phases)
-        #~(modify-phases #$phases
-            (add-before 'configure 'provide-ladspa-pc
-              (lambda* (#:key inputs #:allow-other-keys)
-                ;; The Guix ladspa package does not provide a .pc file, which
-                ;; dsp's configure script strictly requires to enable the plugin.
-                ;; We generate a minimal one here to satisfy the check.
-                (let* ((ladspa (assoc-ref inputs "ladspa"))
-                       (pkg-dir "fake-pkgconfig")
-                       (pc-file (string-append pkg-dir "/ladspa.pc")))
-                  (mkdir pkg-dir)
-                  (with-output-to-file pc-file
-                    (lambda _
-                      (format #t "prefix=~a
-includedir=${prefix}/include
-Name: ladspa
-Description: LADSPA SDK
-Version: 1.13
-Cflags: -I${includedir}
-Libs: 
-" ladspa)))
-                  ;; Add our fake pkgconfig dir to the search path
-                  (setenv "PKG_CONFIG_PATH"
-                          (string-append pkg-dir ":" 
-                                         (or (getenv "PKG_CONFIG_PATH") ""))))))))))))
+     `(#:tests? #f ; No tests included
+       #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
+                          (string-append "MANDIR=" (assoc-ref %outputs "out") "/share/man/man1"))
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure)
+         (add-after 'unpack 'enter-source-dir
+           (lambda _ (chdir "source") #t))))) ; No configure script, just Makefile
+    (native-inputs
+     (list pkg-config))
+    (inputs
+     (list alsa-lib jack-2 zita-alsa-pcmi zita-resampler))
+    (home-page "https://kokkinizita.linuxaudio.org/linuxaudio/zita-ajbridge.html")
+    (synopsis "Bridge ALSA devices into JACK")
+    (description "zita-ajbridge provides two applications, zita-a2j and zita-j2a. 
+They allow using an ALSA device as a JACK client, with high-quality resampling.")
+    (license gpl3+)))
+