wangliu-iscas/guix-mirror
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-05-13 15:03:44 +00:00
Code Issues Packages Projects Releases Wiki Activity

gnu: quodlibet: Switch to pyproject.

Browse Source 
* gnu/packages/music.scm (quodlibet):
[build-system]: Switch to pyproject-build-system.
[arguments]<#:imported-modules, #:modules, #:phases>: Switch to
pyproject-build-system.
<#:phases>: Improve phase 'wrap-extra-paths.
[native-inputs]: Add python-setuptools.

Change-Id: Icb9b41dfc3e16fbf0d98d5a4f01b8cb18b6eca83
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>
Signed-off-by: Rutherther <rutherther@ditigal.xyz>
This commit is contained in:
Nicolas Graves
2026-01-06 11:58:01 +01:00
committed by Rutherther
parent 78f8e9d760
commit e292f21d68
1 changed files with 32 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
gnu/packages/music.scm
View File

@@ -7838,41 +7838,43 @@ streaming audio server.")
(patches (search-patches "quodlibet-disable-bundled-packages.patch"))
(modules '((guix build utils)))
(snippet '(delete-file-recursively "quodlibet/packages"))))
(build-system python-build-system)
(build-system pyproject-build-system)
(arguments
(list
#:modules '((guix build python-build-system)
#:imported-modules `(,@%pyproject-build-system-modules
,@%glib-or-gtk-build-system-modules)
#:modules '((guix build pyproject-build-system)
((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
(guix build utils))
#:imported-modules `((guix build python-build-system)
,@%glib-or-gtk-build-system-modules)
#:phases
#~(modify-phases %standard-phases
(add-before 'check 'pre-check
(lambda _
(setenv "HOME" (getcwd))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(if tests?
(invoke "xvfb-run" "pytest"
;; needs network
"--ignore=tests/plugin/test_covers.py"
"--ignore=tests/test_browsers_iradio.py")
(format #t "test suite not run~%"))))
(add-after 'install 'glib-or-gtk-wrap ; ensure icons loaded
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))
(add-after 'install 'wrap-extra-paths
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(gi-typelib-path (getenv "GI_TYPELIB_PATH"))
(gst-plugins-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
(for-each
(lambda (prog)
(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 python-pytest))
(with-extensions (list (pyproject-guile-json))
#~(modify-phases %standard-phases
(add-before 'check 'pre-check
(lambda _
(setenv "HOME" (getcwd))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(if tests?
(invoke "xvfb-run" "pytest"
;; needs network
"--ignore=tests/plugin/test_covers.py"
"--ignore=tests/test_browsers_iradio.py")
(format #t "test suite not run~%"))))
(add-after 'install 'glib-or-gtk-wrap ; ensure icons loaded
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))
(add-after 'install 'wrap-extra-paths
(lambda _
(let ((gi-typelib-path (getenv "GI_TYPELIB_PATH"))
(gst-plugins-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
(for-each
(lambda (prog)
(wrap-program (string-append #$output "/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 python-pytest
python-setuptools))
(inputs
(list adwaita-icon-theme
bash-minimal