ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-21 02:03:29 -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

18
gnu/packages/gtk.scm
View file

@ -621,19 +621,19 @@ (define-public gdk-pixbuf
(home-page "https://developer.gnome.org/gdk-pixbuf/"))) (home-page "https://developer.gnome.org/gdk-pixbuf/")))
;; To build gdk-pixbuf with SVG support, we need librsvg, and librsvg depends ;; 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. ;; closure size.
(define-public gdk-pixbuf+svg (define-public gdk-pixbuf+svg
(package (inherit gdk-pixbuf) (package
(inherit gdk-pixbuf)
(name "gdk-pixbuf+svg") (name "gdk-pixbuf+svg")
(inputs (inputs
`(("librsvg" ,librsvg) `(("librsvg" ,librsvg)
,@(package-inputs gdk-pixbuf))) ,@(package-inputs gdk-pixbuf)))
(arguments (arguments
'(#:configure-flags '("-Dinstalled-tests=false") (substitute-keyword-arguments (package-arguments gdk-pixbuf)
#:tests? #f ; tested by the gdk-pixbuf package already ((#:phases phases)
#:phases `(modify-phases ,phases
(modify-phases %standard-phases
(add-after 'install 'register-svg-loader (add-after 'install 'register-svg-loader
(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"))
@ -644,10 +644,8 @@ (define-public gdk-pixbuf+svg
(find-files librsvg "^libpixbufloader-.*\\.so$"))) (find-files librsvg "^libpixbufloader-.*\\.so$")))
(gdk-pixbuf-query-loaders (gdk-pixbuf-query-loaders
(string-append out "/bin/gdk-pixbuf-query-loaders"))) (string-append out "/bin/gdk-pixbuf-query-loaders")))
(apply invoke (apply invoke gdk-pixbuf-query-loaders
gdk-pixbuf-query-loaders "--update-cache" loaders))))))))
"--update-cache"
loaders)))))))
(synopsis (synopsis
"GNOME image loading and manipulation library, with SVG support"))) "GNOME image loading and manipulation library, with SVG support")))