[PATCH 05/26] gnu: kde-frameworks: Add bluez-qt.

[PATCH 05/26] gnu: kde-frameworks: Add bluez-qt.

[David Craven]

* gnu/packages/kde-frameworks.scm (bluez-qt): New variable.

Co-authored-by: Hartmut Goebel <h.goebel@crazy-compilers.com>
---
 gnu/packages/kde-frameworks.scm | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index 85d000b..3116526 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -25,6 +25,7 @@
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
   #:use-module (guix utils)
+  #:use-module (gnu packages glib)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages qt)
   #:use-module (gnu packages xorg))
@@ -105,6 +106,40 @@ The REST API is defined here:
 http://freedesktop.org/wiki/Specifications/open-collaboration-services/")
     (license (list license:lgpl2.1+ license:lgpl3+))))
 
+(define-public bluez-qt
+  (package
+    (name "bluez-qt")
+    (version "5.24.0")
+    (source
+      (origin
+        (method url-fetch)
+        (uri (string-append "mirror://kde/stable/frameworks/"
+                            (version-major+minor version) "/"
+                            name "-" version ".tar.xz"))
+        (sha256
+         (base32
+          "0gy0m7lcwwklf021l5i3v7j0cl7qz7cgvzrwpj87ix3kyw5xs80z"))))
+    (build-system cmake-build-system)
+    (native-inputs
+     `(("dbus" ,dbus)
+       ("extra-cmake-modules" ,extra-cmake-modules)))
+    (inputs
+     `(("qtbase" ,qtbase)))
+    (arguments
+     `(#:configure-flags
+        '("-DINSTALL_UDEV_RULE:BOOL=OFF")
+       #:phases
+        (modify-phases %standard-phases
+          (replace 'check
+            (lambda* _
+              (setenv "DBUS_FATAL_WARNINGS" "0")
+              (zero? (system* "dbus-launch" "ctest" ".")))))))
+    (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 kwindowsystem
   (package
     (name "kwindowsystem")
-- 
2.9.0

Re: [PATCH 05/26] gnu: kde-frameworks: Add bluez-qt.

[宋文武]

David Craven <david@craven.ch> writes:

> * gnu/packages/kde-frameworks.scm (bluez-qt): New variable.
>
> Co-authored-by: Hartmut Goebel <h.goebel@crazy-compilers.com>
> ---
>  gnu/packages/kde-frameworks.scm | 35 +++++++++++++++++++++++++++++++++++
>  1 file changed, 35 insertions(+)
>
> diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
> index 85d000b..3116526 100644
> --- a/gnu/packages/kde-frameworks.scm
> +++ b/gnu/packages/kde-frameworks.scm
> @@ -25,6 +25,7 @@
>    #:use-module ((guix licenses) #:prefix license:)
>    #:use-module (guix packages)
>    #:use-module (guix utils)
> +  #:use-module (gnu packages glib)
>    #:use-module (gnu packages pkg-config)
>    #:use-module (gnu packages qt)
>    #:use-module (gnu packages xorg))
> @@ -105,6 +106,40 @@ The REST API is defined here:
>  http://freedesktop.org/wiki/Specifications/open-collaboration-services/")
>      (license (list license:lgpl2.1+ license:lgpl3+))))
>  
> +(define-public bluez-qt
> +  (package
> +    (name "bluez-qt")
> +    (version "5.24.0")
> +    (source
> +      (origin
> +        (method url-fetch)
> +        (uri (string-append "mirror://kde/stable/frameworks/"
> +                            (version-major+minor version) "/"
> +                            name "-" version ".tar.xz"))
> +        (sha256
> +         (base32
> +          "0gy0m7lcwwklf021l5i3v7j0cl7qz7cgvzrwpj87ix3kyw5xs80z"))))
> +    (build-system cmake-build-system)
> +    (native-inputs
> +     `(("dbus" ,dbus)
> +       ("extra-cmake-modules" ,extra-cmake-modules)))
> +    (inputs
> +     `(("qtbase" ,qtbase)))
> +    (arguments
> +     `(#:configure-flags
> +        '("-DINSTALL_UDEV_RULE:BOOL=OFF")
> +       #:phases
> +        (modify-phases %standard-phases
> +          (replace 'check
> +            (lambda* _
> +              (setenv "DBUS_FATAL_WARNINGS" "0")
> +              (zero? (system* "dbus-launch" "ctest" ".")))))))
> +    (home-page "https://community.kde.org/Frameworks")
> +    (synopsis "QML wrapper for bluez")
I'll use 'BlueZ', the description of bluez uses it.

> +    (description " bluez-qt is a Qt-style library for accessing the bluez
                     ^ space

Re: [PATCH 05/26] gnu: kde-frameworks: Add bluez-qt.

[David Craven]

> I'll use 'BlueZ', the description of bluez uses it.

Does this mean you are applying the patch or that you want me to resubmit?

Re: [PATCH 05/26] gnu: kde-frameworks: Add bluez-qt.

[宋文武]

David Craven <david@craven.ch> writes:

>> I'll use 'BlueZ', the description of bluez uses it.
>
> Does this mean you are applying the patch or that you want me to resubmit?

Oh, sorry for the confusing, I think you will push them yourself.

And those KDE patches all look good to me, I haven't build them but
think they're ready to be commited (not by me).

Thanks for your hard work!