branch master updated: gnu: transmission: Fix loading icons in pure environments.

[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 2c9009f9fe gnu: transmission: Fix loading icons in pure environments.
2c9009f9fe is described below

commit 2c9009f9feec33531c261818b2091b814727cd94
Author: Clément Lassieur <clement@lassieur.org>
AuthorDate: Wed Sep 27 12:58:04 2023 +0200

    gnu: transmission: Fix loading icons in pure environments.
    
    * gnu/packages/bittorrent.scm (transmission)[arguments]: Add a 
'wrap-program'
    phase that sets GDK_PIXBUF_MODULE_FILE.
---
 gnu/packages/bittorrent.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/bittorrent.scm b/gnu/packages/bittorrent.scm
index 3b989c5af4..64777f5667 100644
--- a/gnu/packages/bittorrent.scm
+++ b/gnu/packages/bittorrent.scm
@@ -136,7 +136,14 @@
              (lambda* (#:key outputs #:allow-other-keys #:rest args)
                (apply (assoc-ref glib-or-gtk:%standard-phases 
'glib-or-gtk-wrap)
                       #:glib-or-gtk-wrap-excluded-outputs (list "out")
-                      args))))))
+                      args)))
+           (add-after 'glib-or-gtk-wrap 'wrap-program
+             (lambda* (#:key outputs #:allow-other-keys)
+               (wrap-program (string-append #$output:gui 
"/bin/transmission-gtk")
+                 ;; Wrapping GDK_PIXBUF_MODULE_FILE allows Transmission to load
+                 ;; its own icons in pure environments.
+                 `("GDK_PIXBUF_MODULE_FILE" =
+                   (,(getenv "GDK_PIXBUF_MODULE_FILE")))))))))
     (inputs (list curl
                   (list glib "bin")
                   gtkmm