gnu: aacircuit: Wrap program properly.

* gnu/packages/engineering.scm (aacircuit): Wrap program properly.
[arguments]: Import modules from glib-or-gtk-build-system, add new phases:
generate-gdk-pixbuf-loaders-cache-file, glib-or-gtk-wrap, wrap-aacircuit.
[propagated-inputs]: Move every input from here...
[inputs]: to here, add bash-minimal.

Change-Id: Ia9e5b0908b7464a0dfe0fd8ffa4675cad95c0dd9
Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
This commit is contained in:
Evgeny Pisemsky 2025-03-25 20:30:26 +03:00 committed by Maxim Cournoyer
parent c11b7aacc2
commit 292570f729
No known key found for this signature in database
GPG key ID: 1260E46482E63562

View file

@ -195,8 +195,17 @@
(build-system pyproject-build-system) (build-system pyproject-build-system)
(arguments (arguments
(list (list
#:imported-modules `((guix build glib-or-gtk-build-system)
,@%pyproject-build-system-modules)
#:modules '(((guix build glib-or-gtk-build-system)
#:prefix glib-or-gtk:)
(guix build pyproject-build-system)
(guix build utils))
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'generate-gdk-pixbuf-loaders-cache-file
(assoc-ref glib-or-gtk:%standard-phases
'generate-gdk-pixbuf-loaders-cache-file))
(replace 'check (replace 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
(when tests? (when tests?
@ -208,7 +217,18 @@
"test_import_aacircuit_export_pdf") "test_import_aacircuit_export_pdf")
",")) ","))
(setenv "HOME" "/tmp") (setenv "HOME" "/tmp")
(invoke "xvfb-run" "./testrunner.sh"))))))) (invoke "xvfb-run" "./testrunner.sh"))))
(add-after 'wrap 'glib-or-gtk-wrap
(assoc-ref glib-or-gtk:%standard-phases
'glib-or-gtk-wrap))
(add-after 'glib-or-gtk-wrap 'wrap-aacircuit
(lambda* (#:key outputs #:allow-other-keys)
(wrap-program (string-append (assoc-ref outputs "out")
"/bin/aacircuit")
`("GDK_PIXBUF_MODULE_FILE" =
(,(getenv "GDK_PIXBUF_MODULE_FILE")))
`("GI_TYPELIB_PATH" ":" prefix
(,(getenv "GI_TYPELIB_PATH")))))))))
(native-inputs (native-inputs
;; XXX: Test runner may be migrated to Pytest ;; XXX: Test runner may be migrated to Pytest
;; <https://docs.pytest.org/en/7.1.x/how-to/nose.html> after report to ;; <https://docs.pytest.org/en/7.1.x/how-to/nose.html> after report to
@ -218,8 +238,9 @@
python-setuptools python-setuptools
python-wheel python-wheel
xvfb-run)) xvfb-run))
(propagated-inputs (inputs
(list gtk+ (list bash-minimal
gtk+
python-bresenham python-bresenham
python-platformdirs python-platformdirs
python-pycairo python-pycairo