TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: gegl: Refer to dot.

Browse source 
* gnu/packages/gimp.scm (gegl)[arguments]: Add a new 'refer-to-dot phase.
This commit is contained in:
Tobias Geerinckx-Rice 2021-03-29 22:38:18 +02:00
parent ce29fa76f4
commit 7162e5b882
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/gimp.scm
View file

@ -38,6 +38,7 @@ (define-module (gnu packages gimp)
#: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 @@ (define-public gegl
(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 @@ (define-public gegl
("json-glib" ,json-glib)))
(inputs
`(("cairo" ,cairo)
("graphviz" ,graphviz)
("pango" ,pango)
("libpng" ,libpng)
("libjpeg" ,libjpeg-turbo)))