[bug#50157] [PATCH] gnu: Add xpadneo.

[Leo Prikler]

* gnu/packages/linux.scm (xpadneo): New variable.
---
 gnu/packages/linux.scm | 52 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 7b92be4b9c..385cdd558b 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -1505,6 +1505,58 @@ allows some more serious things like adding streaming 
capabilities to an
 application by hooking GStreamer into the loopback device.")
     (license license:gpl2+)))
 
+(define-public xpadneo
+  (package
+    (name "xpadneo")
+    (version "0.9.1")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/atar-axis/xpadneo";)
+                    (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "0xr0zx134s56h4ij6c3fh8ki0h58h61minbfxcl3sgpgxkh14ism"))))
+    (build-system linux-module-build-system)
+    (arguments
+     `(#:tests? #f ; no `check' target
+       #:modules (((guix build copy-build-system) #:prefix copy:)
+                  (guix build linux-module-build-system)
+                  (guix build utils))
+       #:imported-modules
+       ((guix build copy-build-system)
+        ,@%linux-module-build-system-modules)
+       #:phases
+       (modify-phases %standard-phases
+         (replace 'configure
+           (lambda args
+             (with-directory-excursion "hid-xpadneo/src"
+               (apply (assoc-ref %standard-phases 'configure) args))))
+         (replace 'build
+           (lambda args
+             (with-directory-excursion "hid-xpadneo/src"
+               (apply (assoc-ref %standard-phases 'build) args))))
+         (replace 'install
+           (lambda args
+             (with-directory-excursion "hid-xpadneo/src"
+               (apply (assoc-ref %standard-phases 'install) args))))
+         (add-after 'install 'post-install
+           (lambda* (#:key outputs #:allow-other-keys #:rest args)
+             (apply (assoc-ref copy:%standard-phases 'install)
+                    #:install-plan
+                    '(("hid-xpadneo/etc-modprobe.d" "etc/modprobe.d")
+                      ("hid-xpadneo/etc-udev-rules.d" "etc/udev/rules.d"))
+                    args))))))
+    (home-page "https://atar-axis.github.io/xpadneo/";)
+    (synopsis "Xbox One Wireless Controller driver")
+    (description
+     "This package provides a driver for the XBox One S Wireless controller
+and some newer models when connected via bluetooth.  In addition to the kernel
+module provided itself, it also contains a modprobe configuration and udev
+rules, which need to be installed separately.")
+    (license license:gpl3+)))
+
 
 ;;;
 ;;; Pluggable authentication modules (PAM).
-- 
2.33.0