32/77: gnu: Add qtconnectivity.

[guix-commits]

z572 pushed a commit to branch master
in repository guix.

commit 74d9a10e9ff13e7e8f7128b784ec438997139ae4
Author: Zheng Junjie <zhengjunjie@iscas.ac.cn>
AuthorDate: Tue Aug 27 11:52:29 2024 +0800

    gnu: Add qtconnectivity.
    
    * gnu/packages/qt.scm (qtconnectivity): New variable.
    
    Change-Id: Ia2c1d9d260b47cd3a18c9ab5ac7e8f5ea83b7e11
---
 gnu/packages/qt.scm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
index c655f81a58..b46c4abb6c 100644
--- a/gnu/packages/qt.scm
+++ b/gnu/packages/qt.scm
@@ -1694,6 +1694,36 @@ integrate QML code with JavaScript and C++.")
     (description "The Qt Connectivity modules provides modules for interacting
 with Bluetooth and NFC.")))
 
+(define-public qtconnectivity
+  (package
+    (name "qtconnectivity")
+    (version "6.7.2")
+    (source (origin
+              (method url-fetch)
+              (uri (qt-url name version))
+              (sha256
+               (base32
+                "1s08djgzhh5p9ij0hxbrrcx9n7r7f0ba6pr9793mdsgh8ar23lwf"))))
+    (build-system cmake-build-system)
+    (native-inputs
+     (list perl pkg-config qtdeclarative))
+    (inputs
+     (list bluez qtbase))
+    (arguments
+     (list
+      #:configure-flags #~(list "-DQT_BUILD_TESTS=ON")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'check 'set-display
+            (lambda _
+              ;; Make Qt render "offscreen", required for tests.
+              (setenv "QT_QPA_PLATFORM" "offscreen"))))))
+    (synopsis "Qt Connectivity module")
+    (description "The Qt Connectivity modules provides modules for interacting
+with Bluetooth and NFC.")
+    (home-page (package-home-page qtbase))
+    (license (package-license qtbase))))
+
 (define-public qtwebsockets-5
   (package (inherit qtsvg-5)
     (name "qtwebsockets")