Subject: [bug#73839] [PATCH 4/5] lisp-xyz: + sbcl-input-event-codes

From: Grigory Shepelev <[email-masked]>
Date: Tue, 22 Oct 2024 11:51:05 +0300

Change-Id: I47e65729f907e46d9deeb7dc0219ac9b1ba1a291
---
 gnu/packages/lisp-xyz.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 39517c720c..aea0530802 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -31952,6 +31952,34 @@ (define-public sbcl-xkb
 @end itemize")
       (license license:bsd-3))))
 
+(define-public sbcl-input-event-codes
+  (let ((commit "9804fe1e8fcfaab51097ea30e1045b7cc5e0ef3e")
+        (revision "1"))
+    (package
+      (name "sbcl-input-event-codes")
+      (version (git-version "0.0.0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://git.sr.ht/~shunter/input-event-codes")
+               (commit commit)))
+         (file-name (git-file-name "sbcl-input-event-codes" version))
+         (sha256
+          (base32 "1m96m9ia4frcn2xqaw4mfspjjzwl8gyj4k4rv0lq28va4s6mkgii"))))
+      (build-system asdf-build-system/sbcl)
+      (native-inputs (list pkg-config sbcl-parachute))
+      (arguments
+       (list
+        #:asd-systems ''("input-event-codes" "input-event-codes/test")))
+      (inputs (list sbcl-trivial-features))
+      (home-page "https://git.sr.ht/~shunter/input-event-codes")
+      (synopsis
+       "This little library is a port of all constants found in input-event-codes.h, an event code header file found on both Linux and FreeBSD")
+      (description
+       "There is currently only support for Linux and FreeBSD. The library uses trivial-features to conditionally load the appropriate constant set.")
+      (license license:expat))))
+
 (define-public sbcl-xml-emitter
   (package
     (name "sbcl-xml-emitter")
-- 
2.46.0