From 582de0d4699de775ba217f46015f6758045935cf Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Sat, 11 Feb 2023 21:44:48 +0100
Subject: gnu: footswitch: Improve package style.

* gnu/packages/accessibility.scm (footswitch)[arguments]: Use G-expressions.
<#:phases>: Remove trailing #T.
[description]: Simplify it.
---
 gnu/packages/accessibility.scm | 33 ++++++++++++++++-----------------
 1 file changed, 16 insertions(+), 17 deletions(-)

diff --git a/gnu/packages/accessibility.scm b/gnu/packages/accessibility.scm
index fb9387e324..21387ff0d4 100644
--- a/gnu/packages/accessibility.scm
+++ b/gnu/packages/accessibility.scm
@@ -23,6 +23,7 @@
 
 (define-module (gnu packages accessibility)
   #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix gexp)
   #:use-module (guix utils)
   #:use-module (guix packages)
   #:use-module (guix download)
@@ -260,32 +261,30 @@ available to help to click.")
                  (base32
                   "0xkk60sg3szpgbl3z8djlpagglsldv9viqibsih6wcnbhikzlc6j"))))
       (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
        (list pkg-config))
       (inputs
        (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")
       (synopsis "Command line utilities for PCsensor and Scythe foot switches")
       (description
        "This package provides command line utilities for programming PCsensor
 and Scythe foot switches.  It works for both single pedal and three pedal
-devices.  The \"footswitch\" command programs devices with vendorId:productId
-combinations matching 0c45:7403, 0c45:7404, 413d:2107, and 1a86:e026.  The
-\"scythe\" command programs switches matching 0426:3011.")
-    (license license:expat))))
+devices.")
+      (license license:expat))))
 
 (define-public xmagnify
   (package
-- 
cgit v1.2.3