Re: [PATCH] gnu: Add fluid.

[ng0]

ng0 <address@hidden> writes:

> * gnu/packages/kde-frameworks.scm (fluid): New variable.
> ---
>  gnu/packages/kde-frameworks.scm | 57 
> +++++++++++++++++++++++++++++++++++++++++
>  gnu/packages/qt.scm             |  1 +
>  2 files changed, 58 insertions(+)
>
> diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
> index 94145fb95..224b35666 100644
> --- a/gnu/packages/kde-frameworks.scm
> +++ b/gnu/packages/kde-frameworks.scm
> @@ -3,6 +3,7 @@
>  ;;; Copyright © 2016 Efraim Flashner <address@hidden>
>  ;;; Copyright © 2016 Hartmut Goebel <address@hidden>
>  ;;; Copyright © 2016 David Craven <address@hidden>
> +;;; Copyright © 2017 ng0 <address@hidden>
>  ;;;
>  ;;; This file is part of GNU Guix.
>  ;;;
> @@ -2896,3 +2897,59 @@ script engines.")
>  
>  (define kinit-bootstrap
>    ((package-input-rewriting `((,kdbusaddons . ,kdbusaddons-bootstrap))) 
> kinit))
> +
> +(define-public fluid
> +  (package
> +    (name "fluid")
> +    (version "0.9.0")
> +    (source
> +     (origin
> +       (method url-fetch)
> +       (uri (string-append 
> "https://github.com/lirios/fluid/releases/download/";
> +                           "v" version "/" name "-" version ".tar.xz"))
> +       (file-name (string-append name "-" version ".tar.xz"))
> +       (sha256
> +        (base32
> +         "0m6mijlnizgvmh0z2wcrmkfl5cdrylxz3d7bqii8dasmm0q8f68y"))))
> +    (build-system cmake-build-system)
> +    (arguments
> +     `(#:phases
> +       (modify-phases %standard-phases
> +         (add-before 'check 'set-path-for-check
> +           ;; The tests do not find the fluid module.
> +           (lambda* (#:key inputs outputs #:allow-other-keys)
> +             (let* ((out (assoc-ref outputs "out"))
> +                    (bin (string-append out "/bin"))
> +                    (qtb (assoc-ref inputs "qtbase"))
> +                    (qtd (assoc-ref inputs "qtdeclarative"))
> +                    (qts (assoc-ref inputs "qtsvg"))
> +                    (qtq (assoc-ref inputs "qtquickcontrol2")))
> +               (setenv "PATH" (string-append (getenv "PATH")

Should this be a string-join instead?

> +                                             ":" bin ":" qtb ":"
> +                                             qtd ":" qtd ":" qts
> +                                             ":" qtq))
> +               (setenv "QML2_IMPORT_PATH"
> +                       (string-append (getcwd)
> +                                      "/test_root/usr/lib/"
> +                                      "qt5/qml"))
> +               (setenv "LD_LIBRARY_PATH" (string-append (getcwd) "/lib"))
> +               (setenv "HOME" (getcwd))
> +               (setenv "CTEST_OUTPUT_ON_FAILURE" "1") ; Enable debug output
> +               (setenv "QT_QPA_PLATFORM" "offscreen"))
> +             #t))
> +         (add-after 'install 'check
> +           ;; Swap check and install phases and set paths to installed 
> binaries.
> +           (assoc-ref %standard-phases 'check)))))
> +    (native-inputs
> +     `(("extra-cmake-modules" ,extra-cmake-modules)))
> +    (inputs
> +     `(("qtbase" ,qtbase)
> +       ("qtdeclarative" ,qtdeclarative)
> +       ("qtsvg" ,qtsvg)
> +       ("qtquickcontrols2" ,qtquickcontrols2)))
> +    (home-page "https://github.com/lirios/fluid";)
> +    (synopsis "Library for QtQuick applications")
> +    (description
> +     "Fluid is a collection of cross-platform QtQuick components for
> +building fluid and dynamic applications.")
> +    (license license:mpl2.0)))
> diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
> index df6fe168a..0846e5f89 100644
> --- a/gnu/packages/qt.scm
> +++ b/gnu/packages/qt.scm
> @@ -46,6 +46,7 @@
>    #:use-module (gnu packages gtk)
>    #:use-module (gnu packages icu4c)
>    #:use-module (gnu packages image)
> +  #:use-module (gnu packages kde-frameworks)
>    #:use-module (gnu packages linux)
>    #:use-module (gnu packages databases)
>    #:use-module (gnu packages pciutils)
> -- 
> 2.11.0
>
>

-- 
♥Ⓐ  ng0 -- https://www.inventati.org/patternsinthechaos/