ng0 <n...@libertad.pw> 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 <efr...@flashner.co.il>
> ;;; Copyright © 2016 Hartmut Goebel <h.goe...@crazy-compilers.com>
> ;;; Copyright © 2016 David Craven <da...@craven.ch>
> +;;; Copyright © 2017 ng0 <n...@libertad.pw>
> ;;;
> ;;; 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/
