Skip to content
Snippets Groups Projects
Unverified Commit 3a428dd6 authored by Tobias Geerinckx-Rice's avatar Tobias Geerinckx-Rice
Browse files

gnu: meld: Wrap with Glib or Gtk path variables.

Fixes the example given at <https://issues.guix.gnu.org/issue/37942>.

* gnu/packages/gnome.scm (meld)[inputs]: Add gsettings-desktop-schemas.
[arguments]: Add (guix build glib-or-gtk-build-system) to #:modules
and #:imported-modules.  Use its ‘glib-or-gtk-wrap’ phase.
parent 40645ebb
No related branches found
No related tags found
No related merge requests found
...@@ -265,11 +265,17 @@ (define-public meld ...@@ -265,11 +265,17 @@ (define-public meld
(inputs (inputs
`(("python-cairo" ,python-pycairo) `(("python-cairo" ,python-pycairo)
("python-gobject" ,python-pygobject) ("python-gobject" ,python-pygobject)
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
("gtksourceview" ,gtksourceview-3))) ("gtksourceview" ,gtksourceview-3)))
(propagated-inputs (propagated-inputs
`(("dconf" ,dconf))) `(("dconf" ,dconf)))
(arguments (arguments
`(#:phases `(#:imported-modules ((guix build glib-or-gtk-build-system)
,@%python-build-system-modules)
#:modules ((guix build python-build-system)
((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
(guix build utils))
#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
;; This setup.py script does not support one of the Python build ;; This setup.py script does not support one of the Python build
;; system's default flags, "--single-version-externally-managed". ;; system's default flags, "--single-version-externally-managed".
...@@ -293,6 +299,8 @@ (define-public meld ...@@ -293,6 +299,8 @@ (define-public meld
(invoke "py.test" "-v" "-k" (invoke "py.test" "-v" "-k"
;; TODO: Those tests fail, why? ;; TODO: Those tests fail, why?
"not test_classify_change_actions"))) "not test_classify_change_actions")))
(add-after 'wrap 'glib-or-gtk-wrap
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))
(add-after 'wrap 'wrap-typelib (add-after 'wrap 'wrap-typelib
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment