branch master updated: gnu: icecat-minimal: Fix dependency to libcanberra.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

snape pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new ed27cf313a gnu: icecat-minimal: Fix dependency to libcanberra.
ed27cf313a is described below

commit ed27cf313acce22dcaef945d170be84d1dbf3040
Author: Clément Lassieur <clement@lassieur.org>
AuthorDate: Wed Dec 20 19:22:49 2023 +0100

    gnu: icecat-minimal: Fix dependency to libcanberra.
    
    * gnu/packages/gnuzilla.scm (icecat-minimal)[arguments]: Add
    'libcanberra/lib/gtk-3.0/modules' to LD_LIBRARY_PATH in the 'wrap-program'
    phase.
    
    This fixes these messages on Icecat startup:
    
    Gtk-Message: 13:05:56.635: Failed to load module "canberra-gtk-module"
    Gtk-Message: 13:05:56.636: Failed to load module "canberra-gtk-module"
    
    Change-Id: I508dbf0a8133634c329c4c1ff20088752311ff91
---
 gnu/packages/gnuzilla.scm | 28 ++++++++++++++++------------
 1 file changed, 16 insertions(+), 12 deletions(-)

diff --git a/gnu/packages/gnuzilla.scm b/gnu/packages/gnuzilla.scm
index 54643c314e..bf9bf34e3a 100644
--- a/gnu/packages/gnuzilla.scm
+++ b/gnu/packages/gnuzilla.scm
@@ -1091,18 +1091,22 @@ variable defined below.  It requires guile-json to be 
installed."
               (let* ((lib (string-append #$output "/lib"))
                      (gtk #$(this-package-input "gtk+"))
                      (gtk-share (string-append gtk "/share"))
-                     (ld-libs '#$(map (lambda (label)
-                                        (file-append (this-package-input 
label) "/lib"))
-                                      '("libpng-apng"
-                                        "libxscrnsaver"
-                                        "mesa"
-                                        "pciutils"
-                                        "mit-krb5"
-                                        "eudev"
-                                        "pulseaudio"
-                                        ;; For the integration of native 
notifications
-                                        ;; (same reason as icedove)
-                                        "libnotify"))))
+                     (ld-libs '#$(cons
+                                  (file-append
+                                   (this-package-input "libcanberra")
+                                   "/lib/gtk-3.0/modules")
+                                  (map (lambda (label)
+                                         (file-append (this-package-input 
label) "/lib"))
+                                       '("libpng-apng"
+                                         "libxscrnsaver"
+                                         "mesa"
+                                         "pciutils"
+                                         "mit-krb5"
+                                         "eudev"
+                                         "pulseaudio"
+                                         ;; For the integration of native 
notifications
+                                         ;; (same reason as icedove)
+                                         "libnotify")))))
                 (wrap-program (car (find-files lib "^icecat$"))
                   `("XDG_DATA_DIRS" prefix (,gtk-share))
                   ;; The following line is commented out because the icecat