guix_mirror_bot pushed a commit to branch misc-world-rebuild
in repository guix.

commit fb8b2e9d70f2bf595f52d0f6847d8a22e3f6a1a9
Author: Nicolas Graves <[email protected]>
AuthorDate: Tue Apr 14 02:25:40 2026 +0200

    gnu: libcanberra: Improve style.
    
    * gnu/packages/libcanberra.scm (libcanberra)[inputs]:
      Relocate fields.  Drop input labels.
      [native-inputs]: Relocate fields.
      [arguments]<#:phases>{patch-default-sounds-directory}:
      Use search-input-directories.
    
    Change-Id: Ifcaaad0fcf648a6461a787203a0f47f65b5dc973
    Signed-off-by: Nguyễn Gia Phong <[email protected]>
---
 gnu/packages/libcanberra.scm | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/gnu/packages/libcanberra.scm b/gnu/packages/libcanberra.scm
index 52616572fa..86d520f4ff 100644
--- a/gnu/packages/libcanberra.scm
+++ b/gnu/packages/libcanberra.scm
@@ -69,17 +69,6 @@
        (search-patches "libcanberra-sound-theme-freedesktop.patch"
                        "libcanberra-wayland-crash.patch"))))
     (build-system gnu-build-system)
-    (inputs
-     `(("alsa-lib" ,alsa-lib)
-       ("gstreamer" ,gstreamer)
-       ("gtk+" ,gtk+)
-       ("libltdl" ,libltdl)
-       ("libvorbis" ,libvorbis)
-       ("pulseaudio" ,pulseaudio)
-       ("udev" ,eudev)
-       ("sound-theme-freedesktop" ,sound-theme-freedesktop)))
-    (native-inputs
-     (list pkg-config))
     (arguments
      `(#:phases
        (modify-phases %standard-phases
@@ -87,10 +76,21 @@
            (lambda* (#:key inputs #:allow-other-keys)
              (substitute* "src/sound-theme-spec.c"
                (("@SOUND_THEME_DIRECTORY@")
-                (string-append
-                 (assoc-ref inputs "sound-theme-freedesktop")
-                 "/share")))
-             #t)))))
+                (dirname
+                 (dirname
+                  (search-input-directory inputs
+                                          "share/sounds/freedesktop"))))))))))
+    (inputs
+     (list alsa-lib
+           gstreamer
+           gtk+
+           libltdl
+           libvorbis
+           pulseaudio
+           eudev
+           sound-theme-freedesktop))
+    (native-inputs
+     (list pkg-config))
     (home-page "https://0pointer.de/lennart/projects/libcanberra/";)
     (synopsis
      "Implementation of the XDG Sound Theme and Name Specifications")

Reply via email to