bug#60205: [PATCH] gnu: dino: Fix icons when used in pure shells.

[jbranso--- via Bug reports for GNU Guix <bug-guix@gnu.org>]

December 20, 2022 4:34 PM, "Liliana Marie Prikler" <liliana.prikler@gmail.com> wrote:

I will add this to my to do list.  To test this patch and see if helps dino
display its icons.  

Thanks,

Joshua

> * gnu/packages/messaging.scm (dino)[#:phases]: Add
> ‘generate-gdk-pixbuf-loaders-cache-file’.
> <wrap>: Also wrap “GDK_PIXBUF_MODULE_FILE”.
> [inputs]: Add adwaita-icon-theme.
> ---
> gnu/packages/messaging.scm | 10 ++++++++--
> 1 file changed, 8 insertions(+), 2 deletions(-)
> 
> diff --git a/gnu/packages/messaging.scm b/gnu/packages/messaging.scm
> index 27a68439ef..7b693a07fa 100644
> --- a/gnu/packages/messaging.scm
> +++ b/gnu/packages/messaging.scm
> @@ -1398,13 +1398,18 @@ (define-public dino
> #:phases
> #~(modify-phases %standard-phases
> ;; For A/V support.
> + (add-after 'unpack 'generate-gdk-pixbuf-loaders-cache-file
> + (assoc-ref glib-or-gtk:%standard-phases
> + 'generate-gdk-pixbuf-loaders-cache-file))
> (add-after 'install 'wrap
> (lambda* (#:key outputs #:allow-other-keys)
> (let* ((out (assoc-ref outputs "out"))
> (dino (string-append out "/bin/dino"))
> (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
> (wrap-program dino
> - `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))))
> + `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
> + `("GDK_PIXBUF_MODULE_FILE" =
> + (,(getenv "GDK_PIXBUF_MODULE_FILE")))))))
> (add-after 'install 'glib-or-gtk-wrap
> (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))
> (replace 'check
> @@ -1421,7 +1426,8 @@ (define-public dino
> pkg-config
> vala))
> (inputs
> - (list atk
> + (list adwaita-icon-theme
> + atk
> cairo
> librsvg
> glib
> -- 
> 2.38.1