From 1bde05c6e882e7efb82e8b9bd863ea839d902aae Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Thu, 22 Apr 2021 11:40:25 +0200 Subject: gnu: alsa-lib: Use alsa-ucm-conf and alsa-topology-conf. * gnu/packages/linux.scm (alsa)[arguments]: Add a pre-install phase that creates symlinks to alsa-ucm-conf and alsa-topology-conf files. --- gnu/packages/linux.scm | 26 +++++++++++++++++++++++++- 1 file changed, 25 insertions(+), 1 deletion(-) (limited to 'gnu/packages/linux.scm') diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 2d992e2a9d..39cb2279db 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -2246,7 +2246,31 @@ configuration files that can be used for specific audio hardware.") (arguments '(#:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath=" (assoc-ref %outputs "out") - "/lib")))) + "/lib")) + #:phases + (modify-phases %standard-phases + (add-before 'install 'pre-install + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((ucm + (string-append (assoc-ref inputs "alsa-ucm-conf"))) + (topology + (string-append (assoc-ref inputs "alsa-topology-conf"))) + (alsa + (string-append (assoc-ref outputs "out") "/share/alsa")) + (ucm-share + (string-append ucm "/share/alsa/ucm")) + (ucm2-share + (string-append ucm "/share/alsa/ucm2")) + (topology-share + (string-append topology "/share/alsa/topology"))) + (mkdir-p alsa) + (symlink ucm-share (string-append alsa "/ucm")) + (symlink ucm2-share (string-append alsa "/ucm2")) + (symlink topology-share (string-append alsa "/topology"))) + #t))))) + (inputs + `(("alsa-ucm-conf" ,alsa-ucm-conf) + ("alsa-topology-conf" ,alsa-topology-conf))) (home-page "https://www.alsa-project.org/") (synopsis "The Advanced Linux Sound Architecture libraries") (description -- cgit v1.2.3