gnu: Add showmethekey.

* gnu/packages/video.scm (showmethekey): New variable.

Change-Id: I731a01e999890d6c9ace15d1f03a424c20e2a83a

1 files changed, 44 insertions, 0 deletions

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index 963e3e6dcd..2385d54231 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -186,6 +186,7 @@
   #:use-module (gnu packages php)
   #:use-module (gnu packages photo)
   #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages polkit)
   #:use-module (gnu packages popt)
   #:use-module (gnu packages pretty-print)
   #:use-module (gnu packages protobuf)
@@ -6884,3 +6885,46 @@ media players connected to the same server and in the same \"room\" (viewing
 session).  A built-in text chat for discussing the synced media is also
 included for convenience.")
     (license license:asl2.0)))
+
+(define-public showmethekey
+  (package
+    (name "showmethekey")
+    (version "1.18.1")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                     (url "https://github.com/AlynxZhou/showmethekey.git")
+                     (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "1lmjqr5j8nr990dq5gvkwm33vpvzh8zhcmgxn03m4n4xgq1dg5zy"))))
+    (build-system meson-build-system)
+    (arguments
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'unpack 'setenv
+                 (lambda _
+                   (substitute* "meson.build"
+                    ;; We do that ourselves later--so replace by a dummy
+                    ;; command.
+                    (("gtk4-update-icon-cache")
+                     "true")))))))
+    (native-inputs
+     (list (list glib "bin") gnu-gettext pkg-config))
+    (inputs
+     (list libevdev eudev libinput glib gtk libadwaita json-glib cairo pango
+           libxkbcommon polkit))
+    (synopsis "Show keypresses on screen")
+    (description "This package shows the keys that the user presses on the
+screen.
+
+Presumably, that's because you are presenting the screen to someone else
+that should see the keys.
+
+This package works in Xorg and Wayland since it directly reads the keys from
+the evdev device via libinput.
+
+Users in group ``wheel'' can skip password authentication.")
+    (home-page "https://github.com/AlynxZhou/showmethekey")
+    (license license:asl2.0)))