From ca07cca4d85b213350e1a9c70d37558afb98be7b Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Thu, 11 Mar 2021 06:57:40 -0500
Subject: [PATCH] gnu: gdk-pixbuf+svg: Add a debug output.

* 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.
---
 gnu/packages/gtk.scm | 38 ++++++++++++++++++--------------------
 1 file changed, 18 insertions(+), 20 deletions(-)

diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm
index ddf8068cc2..8c23b41192 100644
--- a/gnu/packages/gtk.scm
+++ b/gnu/packages/gtk.scm
@@ -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")))