gnu: gnome-music: Update style.

* gnu/packages/gnome.scm (gnome-music) [arguments]: Convert to list of G-Expressions.

Change-Id: I5cb724bc66dcfee14958753c0a129add55820db6
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Vivien Kraus 2023-11-21 18:56:29 +01:00 committed by Liliana Marie Prikler
parent 2f224cf1c6
commit 5abfce62d0
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87

View file

@ -900,32 +900,33 @@ cloud integration is offered through GNOME Online Accounts.")
"0l8xiw1nv8agskrpgiyr7kinna3gms1hv5d64hh4fqifaz4smlcv")))) "0l8xiw1nv8agskrpgiyr7kinna3gms1hv5d64hh4fqifaz4smlcv"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
`(#:glib-or-gtk? #t (list
#:phases #:glib-or-gtk? #t
(modify-phases %standard-phases #:phases
(add-after 'unpack 'skip-gtk-update-icon-cache #~(modify-phases %standard-phases
;; Don't create 'icon-theme.cache'. (add-after 'unpack 'skip-gtk-update-icon-cache
(lambda _ ;; Don't create 'icon-theme.cache'.
(substitute* "meson.build" (lambda _
(("gtk_update_icon_cache: true") (substitute* "meson.build"
"gtk_update_icon_cache: false")))) (("gtk_update_icon_cache: true")
(add-after 'install 'wrap-gnome-music "gtk_update_icon_cache: false"))))
(lambda* (#:key inputs outputs #:allow-other-keys) (add-after 'install 'wrap-gnome-music
(let* (lambda* (#:key inputs outputs #:allow-other-keys)
((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(pylib (string-append out "/lib/python" (pylib (string-append out "/lib/python"
,(version-major+minor #$(version-major+minor
(package-version python)) (package-version
"/site-packages"))) (this-package-input "python")))
(wrap-program (string-append out "/bin/gnome-music") "/site-packages")))
`("GI_TYPELIB_PATH" = (wrap-program (string-append out "/bin/gnome-music")
(,(getenv "GI_TYPELIB_PATH"))) `("GI_TYPELIB_PATH" =
`("GST_PLUGIN_SYSTEM_PATH" suffix (,(getenv "GI_TYPELIB_PATH")))
(,(getenv "GST_PLUGIN_SYSTEM_PATH"))) `("GST_PLUGIN_SYSTEM_PATH" suffix
`("GRL_PLUGIN_PATH" = (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
(,(getenv "GRL_PLUGIN_PATH"))) `("GRL_PLUGIN_PATH" =
`("GUIX_PYTHONPATH" = (,(getenv "GRL_PLUGIN_PATH")))
(,(getenv "GUIX_PYTHONPATH") ,pylib))))))))) `("GUIX_PYTHONPATH" =
(,(getenv "GUIX_PYTHONPATH") ,pylib)))))))))
(native-inputs (native-inputs
(list desktop-file-utils (list desktop-file-utils
gettext-minimal gettext-minimal