[PATCH 04/14] gnu: Add qtxmlpatterns.

[Efraim Flashner]

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

diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
index fcc0f2e..4ff5562 100644
--- a/gnu/packages/qt.scm
+++ b/gnu/packages/qt.scm
@@ -492,6 +492,30 @@ developers using C++ or QML, a CSS & JavaScript like 
language.")
               (base32
                "0l736qiz8adrnh267xz63hv4sph6nhy90h836qfnnmv3p78ipsz8"))))))
 
+(define-public qtxmlpatterns
+  (package (inherit qtsvg)
+    (name "qtxmlpatterns")
+    (version "5.6.1")
+    (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
+               "0q412jv3xbg7v05b8pbahifwx17gzlp96s90akh6zwhpm8i6xx34"))))
+    (arguments
+      (substitute-keyword-arguments (package-arguments qtsvg)
+        ((#:phases phases)
+         `(modify-phases ,phases
+            (add-after 'install 'install-bins
+              (lambda* (#:key outputs #:allow-other-keys)
+                (let* ((out (assoc-ref outputs "out"))
+                       (bin (string-append out "/bin")))
+                  (install-file "bin/xmlpatterns" bin)
+                  (install-file "bin/xmlpatternsvalidator" bin))))))))))
+
 (define-public qjson
   (package
     (name "qjson")
-- 
2.8.3