me
/
guix
Archived
1
0
Fork 0
Code

gnu: quodlibet: Correct wrappers. 

* gnu/packages/music.scm (quodlibet)[#:phases]: Rename ‘wrap-gi-typelib’ to
‘wrap-extra-paths’.  Use ‘=’ for GI_TYPELIB_PATH.  Add
‘GST_PLUGIN_SYSTEM_PATH’ with suffix binding.
Liliana Marie Prikler 2022-05-30 20:57:37 +02:00
parent fed51b2614
commit df43e8d45c
No known key found for this signature in database
GPG Key ID: 442A84B8C70E2F87
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnu/packages/music.scm
View File

@ -6919,14 +6919,17 @@ streaming audio server.")
(format #t "test suite not run~%")))) (format #t "test suite not run~%"))))
(add-after 'install 'glib-or-gtk-wrap ; ensure icons loaded (add-after 'install 'glib-or-gtk-wrap ; ensure icons loaded
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)) (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))
(add-after 'install 'wrap-gi-typelib ; GObject Introspection (add-after 'install 'wrap-extra-paths
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")) (let ((out (assoc-ref outputs "out"))
(gi-typelib-path (getenv "GI_TYPELIB_PATH"))) (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
(for-each (lambda (prog) (gst-plugins-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
(wrap-program (string-append out "/bin/" prog) (for-each
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))) (lambda (prog)
'("exfalso" "quodlibet")))))))) (wrap-program (string-append out "/bin/" prog)
`("GI_TYPELIB_PATH" ":" = (,gi-typelib-path))
`("GST_PLUGIN_SYSTEM_PATH" ":" suffix (,gst-plugins-path))))
'("exfalso" "quodlibet"))))))))
(native-inputs (list xvfb-run gettext-minimal)) (native-inputs (list xvfb-run gettext-minimal))
(inputs (inputs
(list adwaita-icon-theme (list adwaita-icon-theme