aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2021-03-29 22:38:18 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2021-03-29 22:38:36 +0200
commit7162e5b88208d00188dd9c7b22e0fcde2871fb55 (patch)
tree94a3fea70738566f92ebfbd52a9e7db9e5ff9d2a
parentce29fa76f4d96a530ccc4c3ce5f0085c491f964c (diff)
downloadguix-7162e5b88208d00188dd9c7b22e0fcde2871fb55.tar
guix-7162e5b88208d00188dd9c7b22e0fcde2871fb55.tar.gz
gnu: gegl: Refer to dot.
* gnu/packages/gimp.scm (gegl)[arguments]: Add a new 'refer-to-dot phase.
-rw-r--r--gnu/packages/gimp.scm12
1 files changed, 12 insertions, 0 deletions
diff --git a/gnu/packages/gimp.scm b/gnu/packages/gimp.scm
index 4bdc4ee42e..86b42e0fab 100644
--- a/gnu/packages/gimp.scm
+++ b/gnu/packages/gimp.scm
@@ -38,6 +38,7 @@
#:use-module (gnu packages base)
#:use-module (gnu packages build-tools)
#:use-module (gnu packages documentation)
+ #:use-module (gnu packages graphviz)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages glib)
#:use-module (gnu packages gtk)
@@ -229,6 +230,16 @@ provided, as well as a framework to add new color models and data types.")
(list "-Dintrospection=false")
#:phases
(modify-phases %standard-phases
+ (add-after 'unpack 'refer-to-dot
+ ;; Without ‘dot’ in $PATH, (at least) the GIMP would fail to start
+ ;; with an extremely obtuse ‘GEGL operation missing!’ error.
+ (lambda _
+ (substitute* "gegl/gegl-dot.c"
+ (("\"dot ")
+ (format #f "\"~a " (which "dot"))))
+ (substitute* "operations/common/introspect.c"
+ (("g_find_program_in_path \\(\"dot\"\\)")
+ (format #f "g_strdup (\"~a\")" (which "dot"))))))
(add-after 'unpack 'extend-test-time-outs
(lambda _
;; Multiply some poorly-chosen time-outs for busy build machines.
@@ -249,6 +260,7 @@ provided, as well as a framework to add new color models and data types.")
("json-glib" ,json-glib)))
(inputs
`(("cairo" ,cairo)
+ ("graphviz" ,graphviz)
("pango" ,pango)
("libpng" ,libpng)
("libjpeg" ,libjpeg-turbo)))