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

[宋文武]

David Craven <address@hidden> writes:

> * gnu/packages/kde-frameworks.scm (bluez-qt): New variable.
>
> Co-authored-by: Hartmut Goebel <address@hidden>
> ---
>  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