01/06: WIP gnu: Add qtvirtualkeyboard.

[Hartmut Goebel]

htgoebel pushed a commit to branch wip-kde-frameworks-update
in repository guix.

commit b470b3d10edf8c69e7c445cff03016a5fb2ee4d4
Author: Hartmut Goebel <address@hidden>
Date:   Thu May 31 00:25:26 2018 +0200

    WIP gnu: Add qtvirtualkeyboard.
    
    /tests/auto/styles/data/tst_styles.qml:31:1:
     module "QtQuick" is not installed
         import QtQuick 2.0
         ^
    
    Analog QtTest 1.0
    
    * gnu/packages/qt.scm (qtvirtualkeyboard): New variable.
---
 gnu/packages/qt.scm | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
index a15d645..d320ca9 100644
--- a/gnu/packages/qt.scm
+++ b/gnu/packages/qt.scm
@@ -1046,6 +1046,47 @@ interacting with serial ports from within Qt.")))
 access the various industrial serial buses and protocols, such as CAN, ModBus,
 and others.")))
 
+(define-public qtvirtualkeyboard
+  (package (inherit qtsvg)
+    (name "qtvirtualkeyboard")
+    (version "5.11.0")
+    (source (origin
+             (method url-fetch)
+             (uri (string-append "https://download.qt.io/official_releases/qt/";
+                                 (version-major+minor version) "/" version
+                                 "/submodules/" name "-everywhere-src-"
+                                 version ".tar.xz"))
+             (sha256
+              (base32
+               "1g9wj4j29lysqp6wxnck6s7h36qj87g3lbapvkfsqchvm00yckci"))))
+    (arguments
+     (substitute-keyword-arguments (package-arguments qtsvg)
+       ((#:phases phases)
+        `(modify-phases ,phases
+           (add-before 'check 'check-setup
+             (lambda _
+               ;; Make QtQuick.VirtualKeyboard available without installing
+               (setenv "QML2_IMPORT_PATH"
+                       (string-append
+                        (getcwd) "/qml:" (getenv "QML2_IMPORT_PATH")))
+               #t))
+           (add-after 'install 'check-post-install
+             (assoc-ref %standard-phases 'check))
+           (delete 'check)
+           ))))
+    (native-inputs
+     `(("python" ,python)
+       ("qtdeclarative" ,qtdeclarative)
+       ("qtsvg" ,qtsvg)
+       ))
+    (inputs `(("qtbase" ,qtbase)))
+    (synopsis "Qt virtual keyboard")
+    (description "The Qt Virtual Keyboard project provides an input framework
+and reference keyboard frontend for Qt 5 on Linux Desktop/X11, Windows
+Desktop, and Boot2Qt targets.  The input framework makes it easy to write
+custom input methods or to integrate 3rd party input engines.  The input
+methods can be implemented in C++ or QML.")))
+
 (define-public qtwebchannel
   (package (inherit qtsvg)
     (name "qtwebchannel")