gnu: python-pyqt: Use 'modify-phases'.

* gnu/packages/qt.scm (python-pyqt)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-06-05 23:14:29 +03:00
parent 2be0681367
commit eef988c82e
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 27 additions and 28 deletions

View File

@ -543,34 +543,33 @@ module provides support functions to the automatically generated code.")
`(#:modules ((srfi srfi-1) `(#:modules ((srfi srfi-1)
,@%gnu-build-system-modules) ,@%gnu-build-system-modules)
#:phases #:phases
(alist-replace (modify-phases %standard-phases
'configure (replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")) (bin (string-append out "/bin"))
(sip (string-append out "/share/sip")) (sip (string-append out "/share/sip"))
(plugins (string-append out "/plugins")) (plugins (string-append out "/plugins"))
(designer (string-append plugins "/designer")) (designer (string-append plugins "/designer"))
(qml (string-append plugins "/PyQt5")) (qml (string-append plugins "/PyQt5"))
(python (assoc-ref inputs "python")) (python (assoc-ref inputs "python"))
(python-version (python-version
(last (string-split python #\-))) (last (string-split python #\-)))
(python-major+minor (python-major+minor
(string-join (string-join
(take (string-split python-version #\.) 2) (take (string-split python-version #\.) 2)
".")) "."))
(lib (string-append out "/lib/python" (lib (string-append out "/lib/python"
python-major+minor python-major+minor
"/site-packages"))) "/site-packages")))
(zero? (system* "python" "configure.py" (zero? (system* "python" "configure.py"
"--confirm-license" "--confirm-license"
"--bindir" bin "--bindir" bin
"--destdir" lib "--destdir" lib
"--designer-plugindir" designer "--designer-plugindir" designer
"--qml-plugindir" qml "--qml-plugindir" qml
"--sipdir" sip)))) "--sipdir" sip))))))))
%standard-phases))) (home-page "https://www.riverbankcomputing.com/software/pyqt/intro")
(home-page "http://www.riverbankcomputing.com/software/pyqt/intro")
(synopsis "Python bindings for Qt") (synopsis "Python bindings for Qt")
(description (description
"PyQt is a set of Python v2 and v3 bindings for the Qt application "PyQt is a set of Python v2 and v3 bindings for the Qt application