[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: WIP: Add qtsvg.
From: |
Efraim Flashner |
Subject: |
02/02: WIP: Add qtsvg. |
Date: |
Fri, 3 Jun 2016 12:46:43 +0000 (UTC) |
efraim pushed a commit to branch wip-qt
in repository guix.
commit a2859fde23c7a334e4ceba42c8abe9dfd9853971
Author: Efraim Flashner <address@hidden>
Date: Fri May 20 13:14:50 2016 +0300
WIP: Add qtsvg.
* gnu/packages/qt.scm (qtsvg): New variable.
---
gnu/packages/qt.scm | 35 +++++++++++++++++++++++++++++++++++
1 file changed, 35 insertions(+)
diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
index 5c29dce..f6a6471 100644
--- a/gnu/packages/qt.scm
+++ b/gnu/packages/qt.scm
@@ -433,6 +433,41 @@ developers using C++ or QML, a CSS & JavaScript like
language.")
developers using C++ or QML, a CSS & JavaScript like language.")
(license (list lgpl2.1 lgpl3))))
+(define-public qtsvg
+ (package (inherit qtbase)
+ (name "qtsvg")
+ (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
+ "07v4bzxd31dhkhp52y4g2ii0sslmk48cqkkz32v41frqj4qrk1vr"))))
+ (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/svg/Makefile"
+ "src/plugins/iconengines/svgiconengine/Makefile"
+ "src/plugins/imageformats/svg/Makefile")
+ (((string-append "INSTALL_ROOT)" qtbase))
+ (string-append "INSTALL_ROOT)" out)))))))))))
+
(define-public qjson
(package
(name "qjson")