From 0ea8db95fe1714ec4b27aafc418513757ab93dd0 Mon Sep 17 00:00:00 2001
From: Rutger Helling <address@hidden>
Date: Thu, 27 Dec 2018 15:43:41 +0100
Subject: [PATCH 1/2] gnu: Add wlroots.

* gnu/packages/wm.scm (wlroots): New variable.
---
 gnu/packages/wm.scm | 49 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)

diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index a761bce23..b9500f8db 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -42,6 +42,7 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system haskell)
+  #:use-module (guix build-system meson)
   #:use-module (guix build-system perl)
   #:use-module (guix build-system python)
   #:use-module (gnu packages haskell)
@@ -77,6 +78,8 @@
   #:use-module (gnu packages linux)
   #:use-module (gnu packages suckless)
   #:use-module (gnu packages mpd)
+  #:use-module (gnu packages gl)
+  #:use-module (gnu packages video)
   #:use-module (guix download)
   #:use-module (guix git-download))
 
@@ -1094,3 +1097,49 @@ its size
 customizable status bars for their desktop environment.  It has built-in
 functionality to display information about the most commonly used services.")
     (license license:expat)))
+
+(define-public wlroots
+  (package
+   (name "wlroots")
+   (version "0.2")
+   (source
+    (origin
+     (method git-fetch)
+     (uri (git-reference
+           (url "https://github.com/swaywm/wlroots.git")
+           (commit version)))
+     (file-name (git-file-name name version))
+     (sha256
+      (base32 "0gfxawjlb736xl90zfv3n6zzf5n1cacgzflqi1zq1wn7wd3j6ppv"))))
+   (build-system meson-build-system)
+   (arguments
+    `(#:configure-flags '("-Dlogind-provider=elogind")
+      #:phases
+      (modify-phases %standard-phases
+        (add-before 'configure 'hardcode-paths
+          (lambda* (#:key inputs #:allow-other-keys)
+            (substitute* "xwayland/xwayland.c"
+                         (("Xwayland") (string-append (assoc-ref inputs
+                                       "xorg-server-xwayland")
+                                       "/bin/Xwayland")))
+            #t)))))
+   (native-inputs `(("elogind" ,elogind)
+                    ("eudev" ,eudev)
+                    ("ffmpeg" ,ffmpeg)
+                    ;("libcap" ,libcap) ; FIXME: Breaks DRM backend.
+                    ("libinput" ,libinput)
+                    ("libpng" ,libpng)
+                    ("libxkbcommon" ,libxkbcommon)
+                    ("mesa" ,mesa)
+                    ("pixman" ,pixman)
+                    ("pkg-config" ,pkg-config)
+                    ("wayland" ,wayland)
+                    ("wayland-protocols" ,wayland-protocols)
+                    ("xorg-server-xwayland" ,xorg-server-xwayland)))
+   (home-page "https://github.com/swaywm/wlroots")
+   (synopsis "Pluggable, composable, unopinionated modules for building a
+Wayland compositor")
+   (description "wlroots is a set of pluggable, composable, unopinionated
+modules for building a Wayland compositor.")
+   ; MIT license
+   (license license:expat)))
-- 
2.20.1