gnu: xpadneo: Use G-expressions.

* gnu/packages/linux.scm (xpadneo)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2021-12-26 08:05:42 +01:00
parent 00ca360e9f
commit 42f246eb84
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -1555,19 +1555,19 @@ (define-public xpadneo
"0xr0zx134s56h4ij6c3fh8ki0h58h61minbfxcl3sgpgxkh14ism")))) "0xr0zx134s56h4ij6c3fh8ki0h58h61minbfxcl3sgpgxkh14ism"))))
(build-system linux-module-build-system) (build-system linux-module-build-system)
(arguments (arguments
`(#:tests? #f ; no `check' target (list #:tests? #f ; no `check' target
#:source-directory "hid-xpadneo/src" #:source-directory "hid-xpadneo/src"
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'post-install (add-after 'install 'post-install
(lambda* (#:key outputs #:allow-other-keys #:rest args) (lambda _
(let ((out (assoc-ref outputs "out")))
(copy-recursively "hid-xpadneo/etc-modprobe.d" (copy-recursively "hid-xpadneo/etc-modprobe.d"
(string-append out "/etc/modprobe.d")) (string-append #$output "/etc/modprobe.d"))
;; udev-service-type takes its rules from /lib rather than ;; udev-service-type takes its rules from /lib rather than
;; /etc, so copy it there instead ;; /etc, so copy it there instead
(copy-recursively "hid-xpadneo/etc-udev-rules.d" (copy-recursively "hid-xpadneo/etc-udev-rules.d"
(string-append out "/lib/udev/rules.d")))))))) (string-append #$output
"/lib/udev/rules.d")))))))
(home-page "https://atar-axis.github.io/xpadneo/") (home-page "https://atar-axis.github.io/xpadneo/")
(synopsis "Xbox One Wireless Controller driver for the kernel Linux") (synopsis "Xbox One Wireless Controller driver for the kernel Linux")
(description (description