03/05: gnu: alsa-lib: Use alsa-ucm-conf and alsa-topology-conf.

[guix-commits]

mothacehe pushed a commit to branch core-updates
in repository guix.

commit 1bde05c6e882e7efb82e8b9bd863ea839d902aae
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Thu Apr 22 11:40:25 2021 +0200

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

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 2d992e2..39cb227 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