64/178: gnu: Add bluez-qt-6.

[guix-commits]

z572 pushed a commit to branch kde-team
in repository guix.

commit d7f4d060bfa65ff4f927adbda100eaade7e2e24e
Author: Zheng Junjie <zhengjunjie@iscas.ac.cn>
AuthorDate: Thu May 2 13:54:15 2024 +0800

    gnu: Add bluez-qt-6.
    
    * gnu/packages/kde-frameworks.scm (bluez-qt-6): New variable.
    (bluez-qt): Inherit above.
    
    Change-Id: Ie4eaa2d96c7da093de87b3c80645b04b87ecde08
---
 gnu/packages/kde-frameworks.scm | 45 ++++++++++++++++++++++++++++++-----------
 1 file changed, 33 insertions(+), 12 deletions(-)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index c463fd9a07..f4f8c2fe04 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -383,10 +383,10 @@ 
http://freedesktop.org/wiki/Specifications/open-collaboration-services/";)
                 "0gkdsm1vyyyxxyl4rni9s2bdz5w6zphzjl58fddjl899da06hqfq"))))
     (inputs (list qtbase-5))))
 
-(define-public bluez-qt
+(define-public bluez-qt-6
   (package
     (name "bluez-qt")
-    (version "5.114.0")
+    (version "6.1.0")
     (source (origin
               (method url-fetch)
               (uri (string-append
@@ -395,30 +395,51 @@ 
http://freedesktop.org/wiki/Specifications/open-collaboration-services/";)
                     name "-" version ".tar.xz"))
               (sha256
                (base32
-                "1ni50jwnb5ww8mkql0p3q8660c0srj8p0ik27lvxakwdq4wf6l9s"))))
+                "1fwfrmqsiakfz5agjxd9vnnqip86d9hz86li0r7igy07bvqlwhpr"))))
     (build-system cmake-build-system)
     (native-inputs
      (list dbus extra-cmake-modules))
     (inputs
-     (list qtdeclarative-5
-           qtbase-5))
+     (list qtdeclarative
+           qtbase))
     (arguments
      (list #:configure-flags
            #~(list (string-append
                     "-DUDEV_RULES_INSTALL_DIR=" #$output "/lib/udev/rules.d"))
-       #:phases
-        #~(modify-phases %standard-phases
-            (replace 'check
-              (lambda* (#:key tests? #:allow-other-keys)
-                (when tests?
-                  (setenv "DBUS_FATAL_WARNINGS" "0")
-                  (invoke "dbus-launch" "ctest" "-E" "bluezqt-qmltests")))))))
+           #:phases
+           #~(modify-phases %standard-phases
+               (replace 'check
+                 (lambda* (#:key tests? #:allow-other-keys)
+                   (when tests?
+                     (setenv "DBUS_FATAL_WARNINGS" "0")
+                     (invoke "dbus-launch" "ctest" "-E" 
"bluezqt-qmltests")))))))
     (home-page "https://community.kde.org/Frameworks";)
     (synopsis "QML wrapper for BlueZ")
     (description "bluez-qt is a Qt-style library for accessing the bluez
 Bluetooth stack.  It is used by the KDE Bluetooth stack, BlueDevil.")
     (license (list license:lgpl2.1+ license:lgpl3+))))
 
+(define-public bluez-qt
+  (package
+    (inherit bluez-qt-6)
+    (name "bluez-qt")
+    (version "5.114.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://kde/stable/frameworks/"
+                    (version-major+minor version) "/"
+                    name "-" version ".tar.xz"))
+              (sha256
+               (base32
+                "1ni50jwnb5ww8mkql0p3q8660c0srj8p0ik27lvxakwdq4wf6l9s"))))
+    (build-system cmake-build-system)
+    (native-inputs
+     (list dbus extra-cmake-modules))
+    (inputs
+     (list qtdeclarative-5
+           qtbase-5))))
+
 (define-public breeze-icons
   (package
     (name "breeze-icons")