demiurge: work on audio, not done yet

1 files changed, 37 insertions, 0 deletions

diff --git a/epistemia/packages/audio.scm b/epistemia/packages/audio.scm
new file mode 100644
index 0000000..c43eeee
--- /dev/null
+++ b/epistemia/packages/audio.scm
@@ -0,0 +1,37 @@
+(define-module (epistemia packages audio)
+  #:use-module (guix packages)
+  #:use-module (guix utils)
+  #:use-module (guix gexp)
+  #:use-module (gnu packages audio))
+
+(define-public dsp-ladspa
+  (package
+    (inherit dsp)
+    (name "dsp-ladspa")
+    (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") ""))))))))))))