summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRutger Helling <rhelling@mykolab.com>2019-03-11 20:12:48 +0100
committerRutger Helling <rhelling@mykolab.com>2019-03-11 20:28:41 +0100
commiteea969cf8da5f85cd197032bb965cafbe18c0408 (patch)
tree1b55f83c92aed863d27d6b964db0f8df9469fc1d
parent684626763fa1fc66f4d7f7d909bf85a52d769b02 (diff)
gnu: Add wlroots.
* gnu/packages/wm.scm (wlroots): New variable.
-rw-r--r--gnu/packages/wm.scm49
1 files changed, 49 insertions, 0 deletions
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 96ef06bc15..68a737dbab 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -18,6 +18,7 @@
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr>
;;; Copyright © 2018 Meiyo Peng <meiyo.peng@gmail.com>
+;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -42,6 +43,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 +79,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))
@@ -1102,3 +1106,48 @@ 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.5.0")
+ (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 "1phiidyddzgaxy4gbqwmykxn0y8za6y5mp66l9dpd9i6fml153yq"))))
+ (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)))))
+ (inputs `(("elogind" ,elogind)
+ ("eudev" ,eudev)
+ ("libinput" ,libinput)
+ ("libxkbcommon" ,libxkbcommon)
+ ("mesa" ,mesa)
+ ("pixman" ,pixman)
+ ("wayland" ,wayland)
+ ("xorg-server-xwayland" ,xorg-server-xwayland)))
+ (native-inputs `(("ffmpeg" ,ffmpeg)
+ ("libcap" ,libcap)
+ ("libpng" ,libpng)
+ ("pkg-config" ,pkg-config)
+ ("wayland-protocols" ,wayland-protocols)))
+ (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.")
+ (license license:expat))) ; MIT license