me
/
guix
Archived
1
0
Fork 0
Code

gnu: footswitch: Improve package style. 

* gnu/packages/accessibility.scm (footswitch)[arguments]: Use G-expressions.
<#:phases>: Remove trailing #T.
[description]: Simplify it.
master
Nicolas Goaziou 2023-02-11 21:44:48 +01:00
parent 5345cf2fbf
commit 582de0d469
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
gnu/packages/accessibility.scm
View File

@ -23,6 +23,7 @@
(define-module (gnu packages accessibility) (define-module (gnu packages accessibility)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix gexp)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
@ -260,31 +261,29 @@ available to help to click.")
(base32 (base32
"0xkk60sg3szpgbl3z8djlpagglsldv9viqibsih6wcnbhikzlc6j")))) "0xkk60sg3szpgbl3z8djlpagglsldv9viqibsih6wcnbhikzlc6j"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments
(list
#:tests? #f ; no tests
#:make-flags #~(list (string-append "CC=" #$(cc-for-target)))
#:phases
#~(modify-phases %standard-phases
(delete 'configure)
;; Install target in the Makefile does not work for Guix.
(replace 'install
(lambda _
(let ((bin (string-append #$output "/bin")))
(install-file "footswitch" bin)
(install-file "scythe" bin)))))))
(native-inputs (native-inputs
(list pkg-config)) (list pkg-config))
(inputs (inputs
(list hidapi)) (list hidapi))
(arguments
`(#:tests? #f ; no tests
#:make-flags (list (string-append "CC=" ,(cc-for-target)))
#:phases (modify-phases %standard-phases
(delete 'configure)
;; Install target in the Makefile does not work for Guix
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out")
"/bin")))
(install-file "footswitch" bin)
(install-file "scythe" bin)
#t))))))
(home-page "https://github.com/rgerganov/footswitch") (home-page "https://github.com/rgerganov/footswitch")
(synopsis "Command line utilities for PCsensor and Scythe foot switches") (synopsis "Command line utilities for PCsensor and Scythe foot switches")
(description (description
"This package provides command line utilities for programming PCsensor "This package provides command line utilities for programming PCsensor
and Scythe foot switches. It works for both single pedal and three pedal and Scythe foot switches. It works for both single pedal and three pedal
devices. The \"footswitch\" command programs devices with vendorId:productId devices.")
combinations matching 0c45:7403, 0c45:7404, 413d:2107, and 1a86:e026. The
\"scythe\" command programs switches matching 0426:3011.")
(license license:expat)))) (license license:expat))))
(define-public xmagnify (define-public xmagnify