01/03: gnu: Add wlr-protocols.

[guix-commits]

hako pushed a commit to branch master
in repository guix.

commit 6c4f3043933db2c9132efc4ea8c5f0e63cddaaa1
Author: Julian Flake <flake@uni-koblenz.de>
AuthorDate: Thu Mar 14 12:26:46 2024 +0100

    gnu: Add wlr-protocols.
    
    * gnu/packages/freedesktop.scm (wlr-protocols): New variable.
    
    Change-Id: Ia8daffd7219b7bd573ae54e7cfc5ec6b6a5f4052
    Modified-by: Hilton Chain <hako@ultrarare.space>
    Signed-off-by: Hilton Chain <hako@ultrarare.space>
---
 gnu/packages/freedesktop.scm | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm
index 78443d6f5c..339297c087 100644
--- a/gnu/packages/freedesktop.scm
+++ b/gnu/packages/freedesktop.scm
@@ -1557,6 +1557,37 @@ sent to a Wayland window, such as key presses.  It is 
analogous to the X11 tool
 XEv.")
     (license license:expat)))
 
+(define-public wlr-protocols
+  (let ((commit "2b8d43325b7012cc3f9b55c08d26e50e42beac7d")
+        (revision "0"))
+    (package
+      (name "wlr-protocols")
+      (version (git-version "1.0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://gitlab.freedesktop.org/wlroots/wlr-protocols.git";)
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "17blwww6rcrahwc6h6j68gh6wjbj14if3mihpxymfdw5pwl72rav"))))
+      (build-system gnu-build-system)
+      (arguments
+       (list #:make-flags
+             #~(list (string-append "PREFIX=" #$output))
+             #:phases
+             #~(modify-phases %standard-phases
+                 (delete 'configure))))
+      (native-inputs (list wayland))    ;For wayland-scanner.
+      (home-page "https://gitlab.freedesktop.org/wlroots/wlr-protocols";)
+      (synopsis
+       "Wayland protocols designed for use in wlroots (and other compositors)")
+      (description
+       "This package provides Wayland protocols designed for use in wlroots 
(and
+other compositors).")
+      (license license:expat))))
+
 (define-public wtype
   (package
     (name "wtype")