ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-01 00:52:55 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: gdk-pixbuf+svg: Add a debug output.

Browse source 
* gnu/packages/gtk.scm (gdk-pixbuf+svg): Fix typo in comment.
[arguments]: Rewrite using 'substitute-keyword-arguments', so that all phases
from the gdk-pixbuf package are reused.
This commit is contained in:
Maxim Cournoyer 2021-03-11 06:57:40 -05:00
parent 47ee723731
commit ca07cca4d8
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 18 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
gnu/packages/gtk.scm
View file

@ -621,33 +621,31 @@ (define-public gdk-pixbuf
(home-page "https://developer.gnome.org/gdk-pixbuf/")))
;; To build gdk-pixbuf with SVG support, we need librsvg, and librsvg depends
;; on gdk-pixbuf, so this new varibale. Also, librsvg adds 90MiB to the
;; on gdk-pixbuf, so this new variable. Also, librsvg adds 90MiB to the
;; closure size.
(define-public gdk-pixbuf+svg
(package (inherit gdk-pixbuf)
(package
(inherit gdk-pixbuf)
(name "gdk-pixbuf+svg")
(inputs
`(("librsvg" ,librsvg)
,@(package-inputs gdk-pixbuf)))
(arguments
'(#:configure-flags '("-Dinstalled-tests=false")
#:tests? #f ; tested by the gdk-pixbuf package already
#:phases
(modify-phases %standard-phases
(add-after 'install 'register-svg-loader
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(librsvg (assoc-ref inputs "librsvg"))
(loaders
(append
(find-files out "^libpixbufloader-.*\\.so$")
(find-files librsvg "^libpixbufloader-.*\\.so$")))
(gdk-pixbuf-query-loaders
(string-append out "/bin/gdk-pixbuf-query-loaders")))
(apply invoke
gdk-pixbuf-query-loaders
"--update-cache"
loaders)))))))
(substitute-keyword-arguments (package-arguments gdk-pixbuf)
((#:phases phases)
`(modify-phases ,phases
(add-after 'install 'register-svg-loader
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(librsvg (assoc-ref inputs "librsvg"))
(loaders
(append
(find-files out "^libpixbufloader-.*\\.so$")
(find-files librsvg "^libpixbufloader-.*\\.so$")))
(gdk-pixbuf-query-loaders
(string-append out "/bin/gdk-pixbuf-query-loaders")))
(apply invoke gdk-pixbuf-query-loaders
"--update-cache" loaders))))))))
(synopsis
"GNOME image loading and manipulation library, with SVG support")))