03/05: gnu: Add python-qscintilla.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 06d04dbcfc22950e5610f9b78d3bfe58a62a2f62
Author: Ricardo Wurmus <address@hidden>
Date:   Tue Jul 18 16:39:10 2017 +0200

    gnu: Add python-qscintilla.
    
    * gnu/packages/qt.scm (python-qscintilla): New variable.
    
    Co-authored-by: Quiliro <address@hidden>
---
 gnu/packages/qt.scm | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
index 5e5e5cd..b0fc743 100644
--- a/gnu/packages/qt.scm
+++ b/gnu/packages/qt.scm
@@ -1415,6 +1415,46 @@ and debugging source code.  These include support for 
syntax styling, error
 indicators, code completion and call tips.")
     (license license:gpl3+)))
 
+(define-public python-qscintilla
+  (package (inherit qscintilla)
+    (name "python-qscintilla")
+    (arguments
+     `(#:configure-flags
+       (list "--pyqt=PyQt5"
+             (string-append "--pyqt-sipdir="
+                            (assoc-ref %build-inputs "python-pyqt")
+                            "/share/sip")
+             (string-append "--qsci-incdir="
+                            (assoc-ref %build-inputs "qscintilla")
+                            "/include")
+             (string-append "--qsci-libdir="
+                            (assoc-ref %build-inputs "qscintilla")
+                            "/lib"))
+       #:phases
+       (modify-phases %standard-phases
+         (replace 'configure
+           (lambda* (#:key outputs configure-flags #:allow-other-keys)
+             (chdir "Python")
+             (and (zero? (apply system* "python3" "configure.py"
+                                configure-flags))
+                  ;; Install to the right directory
+                  (begin
+                    (substitute* '("Makefile"
+                                   "Qsci/Makefile")
+                      (("\\$\\(INSTALL_ROOT\\)/gnu/store/[^/]+")
+                       (assoc-ref outputs "out")))
+                    #t)))))))
+    (inputs
+     `(("qscintilla" ,qscintilla)
+       ("python" ,python)
+       ("python-pyqt" ,python-pyqt)))
+    (description "QScintilla is a port to Qt of Neil Hodgson's Scintilla C++
+editor control.  QScintilla includes features especially useful when editing
+and debugging source code.  These include support for syntax styling, error
+indicators, code completion and call tips.
+
+This package provides the Python bindings.")))
+
 (define-public qtkeychain
   (package
     (name "qtkeychain")