03/03: gnu: Add qtx11extras.

[Efraim Flashner]

efraim pushed a commit to branch wip-qt
in repository guix.

commit c94317db4cc425c4062388cc31751fbc98d9ffa6
Author: Efraim Flashner <address@hidden>
Date:   Sun Jun 5 01:06:22 2016 +0300

    gnu: Add qtx11extras.
    
    * gnu/packages/qt.scm (qtx11extras): New variable.
---
 gnu/packages/qt.scm |   25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
index 9cfda8d..199e019 100644
--- a/gnu/packages/qt.scm
+++ b/gnu/packages/qt.scm
@@ -497,6 +497,31 @@ developers using C++ or QML, a CSS & JavaScript like 
language.")
                                     (string-append "INSTALL_ROOT)" out))))
                     '("tiff" "wbmp" "dds" "tga" "webp" "icns" "mng")))))))))))
 
+(define-public qtx11extras
+  (package (inherit qtsvg)
+    (name "qtx11extras")
+    (version "5.6.0")
+    (source (origin
+             (method url-fetch)
+             (uri (string-append "https://download.qt.io/official_releases/qt/";
+                                 (version-major+minor version) "/" version
+                                 "/submodules/" name "-opensource-src-"
+                                 version ".tar.xz"))
+             (sha256
+              (base32
+               "099lc7kxcxgp5s01ddnd6n955fc8866caark43xfs2dw0a6pdva7"))))
+    (arguments
+      (substitute-keyword-arguments (package-arguments qtsvg)
+        ((#:phases phases)
+         `(modify-phases ,phases
+            (replace 'fix-Makefiles
+              (lambda* (#:key inputs outputs #:allow-other-keys)
+                (let ((out    (assoc-ref outputs "out"))
+                      (qtbase (assoc-ref inputs "qtbase")))
+                  (substitute* "src/x11extras/Makefile"
+                               (((string-append "INSTALL_ROOT)" qtbase))
+                                (string-append "INSTALL_ROOT)" out))))))))))))
+
 (define-public qjson
   (package
     (name "qjson")