unofficial mirror of guix-devel@gnu.org 
 help / color / mirror / code / Atom feed
* [PATCH 1/2] gnu: Add gdk-pixbuf+svg.
@ 2016-03-14 12:38 宋文武
  2016-03-14 12:38 ` [PATCH 2/2] gnu: gtk+: Enable SVG support 宋文武
                   ` (3 more replies)
  0 siblings, 4 replies; 17+ messages in thread
From: 宋文武 @ 2016-03-14 12:38 UTC (permalink / raw)
  To: guix-devel; +Cc: 宋文武

* gnu/packages/gtk.scm (gdk-pixbuf+svg): New variable.
---
 gnu/packages/gtk.scm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm
index 1a10e9b..79983d2 100644
--- a/gnu/packages/gtk.scm
+++ b/gnu/packages/gtk.scm
@@ -433,6 +433,33 @@ in the GNOME project.")
    (license license:lgpl2.0+)
    (home-page "https://developer.gnome.org/gdk-pixbuf/")))
 
+(define-public gdk-pixbuf+svg
+  (package (inherit gdk-pixbuf)
+    (name "gdk-pixbuf+svg")
+    (inputs
+     `(("librsvg" ,librsvg)
+       ,@(package-inputs gdk-pixbuf)))
+    (arguments
+     '(#:configure-flags '("--with-x11")
+       #: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")))
+               (zero? (apply system* `(,gdk-pixbuf-query-loaders
+                                       "--update-cache" ,@loaders)))))))))
+    (description (string-append
+                  (package-description gdk-pixbuf)
+                  "  This version provides SVG support by default."))))
+
 (define-public at-spi2-core
   (package
    (name "at-spi2-core")
-- 
2.6.3

^ permalink raw reply related	[flat|nested] 17+ messages in thread

end of thread, other threads:[~2016-03-17 21:48 UTC | newest]

Thread overview: 17+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2016-03-14 12:38 [PATCH 1/2] gnu: Add gdk-pixbuf+svg 宋文武
2016-03-14 12:38 ` [PATCH 2/2] gnu: gtk+: Enable SVG support 宋文武
2016-03-14 12:56   ` 宋文武
2016-03-14 20:01     ` Jookia
2016-03-15 16:09     ` Ludovic Courtès
2016-03-16  1:04       ` Jookia
2016-03-16  4:02       ` 宋文武
2016-03-14 15:51   ` Jan Nieuwenhuizen
2016-03-14 20:38 ` [PATCH 1/2] gnu: Add gdk-pixbuf+svg Andreas Enge
2016-03-15  9:31   ` 宋文武
2016-03-15 19:13     ` Andreas Enge
2016-03-15  2:00 ` libtool archives introduce unwanted inputs to build 宋文武
2016-03-15 16:14   ` Ludovic Courtès
2016-03-16  1:09     ` Jookia
2016-03-17 21:48       ` Ludovic Courtès
2016-03-15 16:11 ` [PATCH 1/2] gnu: Add gdk-pixbuf+svg Ludovic Courtès
2016-03-16  1:10   ` 宋文武

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).