Subject: bug#40070: closed (Re: [bug#40070] [PATCH] gnu: Add wev.)

From: [email-masked] (GNU bug Tracking System)
Date: Fri, 20 Mar 2020 18:08:02 +0000

Your bug report

#40070: [PATCH] gnu: Add wev.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
40070: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=40070
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: [bug#40070] [PATCH] gnu: Add wev.
From: Marius Bakke <[email-masked]>
To: Brendan Tildesley <[email-masked]>, [email-masked]
Date: Fri, 20 Mar 2020 19:07:50 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

Brendan Tildesley <[email-masked]> writes:

> * gnu/packages/freedesktop.scm (wev): New variable.

Applied, thanks!

Subject: [PATCH] gnu: Add wev.
From: Brendan Tildesley <[email-masked]>
To: [email-masked]
Date: Sun, 15 Mar 2020 20:36:16 +1100
List-Id: <debbugs-submit.debbugs.gnu.org>

* gnu/packages/freedesktop.scm (wev): New variable.
---
 gnu/packages/freedesktop.scm | 40 +++++++++++++++++++++++++++++++++++-
 1 file changed, 39 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm
index 1244da4fa0..b9811fb60e 100644
--- a/gnu/packages/freedesktop.scm
+++ b/gnu/packages/freedesktop.scm
@@ -10,7 +10,7 @@
 ;;; Copyright © 2017, 2018 Mark H Weaver <[email-masked]>
 ;;; Copyright © 2017, 2018, 2019, 2020 Marius Bakke <[email-masked]>
 ;;; Copyright © 2017, 2018, 2019 Rutger Helling <[email-masked]>
-;;; Copyright © 2017 Brendan Tildesley <[email-masked]>
+;;; Copyright © 2017, 2020 Brendan Tildesley <[email-masked]>
 ;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <[email-masked]>
 ;;; Copyright © 2018 Pierre Neidhardt <[email-masked]>
 ;;; Copyright © 2018 Stefan Stefanović <[email-masked]>
@@ -72,6 +72,7 @@
   #:use-module (gnu packages libunwind)
   #:use-module (gnu packages libusb)
   #:use-module (gnu packages linux)
+  #:use-module (gnu packages man)
   #:use-module (gnu packages m4)
   #:use-module (gnu packages nss)
   #:use-module (gnu packages perl)
@@ -804,6 +805,43 @@ composes the final output.  A Wayland compositor is essentially a
 multiplexer to the KMS/DRM Linux kernel devices.")
     (license license:expat)))
 
+(define-public wev
+  ;; There simple tool has no version or release yet.
+  (let ((commit "cee3dfb2a8b40ee303611018c68ae182d84a7f46"))
+    (package
+      (name "wev")
+      (version (string-append "2020-02-06-" (string-take commit 8)))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://git.sr.ht/~sircmpwn/wev")
+                      (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "0l71v3fzgiiv6xkk365q1l08qvaymxd4kpaya6r2g8yzkr7i2hms"))))
+      (build-system gnu-build-system)
+      (arguments
+       `(#:tests? #f ; no tests
+         #:make-flags
+         (list "CC=gcc" (string-append "PREFIX=" (assoc-ref %outputs "out")))
+         #:phases
+         (modify-phases %standard-phases
+           (delete 'configure))))
+      (native-inputs
+       `(("pkg-config" ,pkg-config)
+         ("scdoc" ,scdoc)))
+      (inputs
+       `(("libxkbcommon" ,libxkbcommon)
+         ("wayland" ,wayland)
+         ("wayland-protocols" ,wayland-protocols)))
+      (home-page "https://git.sr.ht/~sircmpwn/wev")
+      (synopsis "Wayland event viewer")
+      (description "Wev is a tool that opens a window, printing all events
+sent to a Wayland window, such as key presses.  It is analogous to the X11 tool
+XEv.")
+      (license license:expat))))
+
 (define-public exempi
   (package
     (name "exempi")
-- 
2.25.1