gnu: gtk+: Add SVG support to 'gtk-encode-symbolic-svg'.
* gnu/packages/gtk.scm (gtk+)[inputs]: Add librsvg. [arguments]: Add 'wrap-gtk-encode-symbolic-svg' phase.
This commit is contained in:
parent
508891e62a
commit
52b8beb109
|
@ -505,7 +505,8 @@ application suites.")
|
||||||
("libxdamage" ,libxdamage)
|
("libxdamage" ,libxdamage)
|
||||||
("pango" ,pango)))
|
("pango" ,pango)))
|
||||||
(inputs
|
(inputs
|
||||||
`(("libxml2" ,libxml2)
|
`(("librsvg" ,librsvg) ;for gtk-encode-symbolic-svg
|
||||||
|
("libxml2" ,libxml2)
|
||||||
("cups" ,cups))) ;for printing support
|
("cups" ,cups))) ;for printing support
|
||||||
(native-inputs
|
(native-inputs
|
||||||
`(("perl" ,perl)
|
`(("perl" ,perl)
|
||||||
|
@ -537,7 +538,18 @@ application suites.")
|
||||||
"demos/gtk-demo/Makefile.in")
|
"demos/gtk-demo/Makefile.in")
|
||||||
(("gtk-update-icon-cache") "$(bindir)/gtk-update-icon-cache"))
|
(("gtk-update-icon-cache") "$(bindir)/gtk-update-icon-cache"))
|
||||||
#t)
|
#t)
|
||||||
%standard-phases)))))
|
(alist-cons-after
|
||||||
|
'install 'wrap-gtk-encode-symbolic-svg
|
||||||
|
;; By using GdkPixbuf, gtk-encode-symbolic-svg needs to know
|
||||||
|
;; librsvg's loaders.cache to handle SVG files.
|
||||||
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||||
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
|
(prog (string-append out "/bin/gtk-encode-symbolic-svg"))
|
||||||
|
(librsvg (assoc-ref inputs "librsvg"))
|
||||||
|
(loaders.cache (find-files librsvg "^loaders\\.cache$")))
|
||||||
|
(wrap-program prog
|
||||||
|
`("GDK_PIXBUF_MODULE_FILE" = ,loaders.cache))))
|
||||||
|
%standard-phases))))))
|
||||||
|
|
||||||
;;;
|
;;;
|
||||||
;;; Guile bindings.
|
;;; Guile bindings.
|
||||||
|
|
Loading…
Reference in New Issue