01/01: gnu: Add qtimageformats.

[Efraim Flashner]

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

commit acfb6e9a734cb479b1664eccd9f71a33fcd594e4
Author: Efraim Flashner <address@hidden>
Date:   Fri Jun 3 18:39:18 2016 +0300

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

diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
index f6a6471..cb9be47 100644
--- a/gnu/packages/qt.scm
+++ b/gnu/packages/qt.scm
@@ -468,6 +468,45 @@ developers using C++ or QML, a CSS & JavaScript like 
language.")
                             (((string-append "INSTALL_ROOT)" qtbase))
                              (string-append "INSTALL_ROOT)" out)))))))))))
 
+(define-public qtimageformats
+  (package (inherit qtbase)
+    (name "qtimageformats")
+    (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
+               "1nmsh682idxl0642q7376r9qfxkx0736q9pl4jx179c9lrsl519c"))))
+    (propagated-inputs `())
+    (inputs
+     `(("qtbase" ,qtbase)
+       ,@(package-inputs qtbase)))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (replace 'configure
+           (lambda _
+             (zero? (system* "qmake"
+                             (string-append "PREFIX="
+                                            (assoc-ref %outputs "out"))))))
+         (add-before 'install 'fix-Makefiles
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out    (assoc-ref outputs "out"))
+                   (qtbase (assoc-ref inputs "qtbase")))
+               (substitute* '("src/plugins/imageformats/tiff/Makefile"
+                              "src/plugins/imageformats/wbmp/Makefile"
+                              "src/plugins/imageformats/dds/Makefile"
+                              "src/plugins/imageformats/tga/Makefile"
+                              "src/plugins/imageformats/webp/Makefile"
+                              "src/plugins/imageformats/icns/Makefile"
+                              "src/plugins/imageformats/mng/Makefile")
+                            (((string-append "INSTALL_ROOT)" qtbase))
+                             (string-append "INSTALL_ROOT)" out)))))))))))
+
 (define-public qjson
   (package
     (name "qjson")