Re: packaging qt applications

[David Craven]

Also I didn't mention that this only happens when running guix build
greenisland and not when running guix environment greenisland && cmake
.

The snippet is there because I know that Qml and Quick are there, they
just aren't being found. This let's the build continue until the
previous error.

I'm still trying to compile qt 5.6.1-1 so that should fix the problem
(when I get it to build), finding a cause to this problem would be
very nice dough...

```
(define-module (gnu packages wayland)
  #:use-module (gnu packages admin)
  #:use-module (gnu packages fontutils)
  #:use-module (gnu packages freedesktop)
  #:use-module (gnu packages gl)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages kde-frameworks)
  #:use-module (gnu packages libunwind)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages qt)
  #:use-module (gnu packages xdisorg)
  #:use-module (gnu packages xml)
  #:use-module (gnu packages xorg)
  #:use-module (guix build-system cmake)
  #:use-module (guix build-system gnu)
  #:use-module (guix download)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages))

(define-public wayland-protocols
  (package
    (name "wayland-protocols")
    (version "1.4")
    (source (origin
              (method url-fetch)
              (uri (string-append
                "https://wayland.freedesktop.org/releases/";
                "wayland-protocols-" version ".tar.xz"))
              (sha256
               (base32
                "0wpm7mz7ww6nn3vrgz7a9iyk7mk6za73wnq0n54lzl8yq8irljh1"))))
    (build-system gnu-build-system)
    (inputs
      `(("wayland" ,wayland)))
    (native-inputs
      `(("pkg-config" ,pkg-config)))
    (synopsis "Wayland protocols")
    (description "Placeholder.")
    (home-page "https://wayland.freedesktop.org";)
    (license license:expat)))

(define-public greenisland
  (package
    (name "greenisland")
    (version "0.8.90")
    (source (origin
              (method url-fetch)
              (uri (string-append
                "https://github.com/greenisland/";
                "greenisland/archive/v" version ".tar.gz"))
              (sha256
               (base32
                "0454f1xh52f7ibl4w41x3qjfr5kq5yqjpxh5ylhahl8vrzk0ykbx"))
              (modules '((guix build utils)))
              (snippet
                '(substitute* "CMakeLists.txt"
                  (("find_package.*Qt5.*Qml Quick.*\n")
                  "find_package(Qt5 ${REQUIRED_QT_VERSION} CONFIG
REQUIRED Core DBus Gui)\n")))))
    (build-system cmake-build-system)
    (inputs
      `(("extra-cmake-modules" ,extra-cmake-modules)
        ("fontconfig" ,fontconfig)
        ("freetype" ,freetype)
        ("glib" ,glib)
        ("libdrm" ,libdrm-update)
        ("libinput" ,libinput)
        ("libxcursor" ,libxcursor)
        ("libxkbcommon" ,libxkbcommon)
        ("mesa" ,mesa-update)
        ("qtbase" ,qtbase)
        ("qtdeclarative" ,qtdeclarative)
        ("udev" ,eudev)
        ("wayland" ,wayland)
        ("wayland-protocols" ,wayland-protocols)
        ("xcb-util-cursor" ,xcb-util-cursor)))
    (native-inputs
      `(("glib:bin" ,glib "bin")
        ("pkg-config" ,pkg-config)))
    (synopsis "QtQuick Wayland compositor and shell for desktop and mobile")
    (description "Green Island provides a full blown Wayland compositor for
QtQuick as well as pluggable hardware abstraction, extensions, tools and a
Qt-style API for Wayland clients.")
    (home-page "http://hawaiios.org";)
    (license (list license:gpl2 license:gpl3 license:lgpl2.1 license:lgpl3))))
```