From 20e2416548208cea13dece23b9f68f37061257c2 Mon Sep 17 00:00:00 2001
From: Nicolas Graves <ngraves@ngraves.fr>
Date: Sat, 19 Jul 2025 01:42:25 +0200
Subject: [PATCH] gnu: beep: Improve style.

Simple guix style run before further work on the package.

* gnu/packages/terminals.scm (beep): Improve style.

Change-Id: I236cd1941a2788ab0ab1f84b578d4e66545aa865
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>
---
 gnu/packages/terminals.scm | 72 +++++++++++++++++++-------------------
 1 file changed, 36 insertions(+), 36 deletions(-)

diff --git a/gnu/packages/terminals.scm b/gnu/packages/terminals.scm
index be3a47989443758590dfc924e49bc439834763c8..684893255f181f604297bbe08e990ad37f9eb14b 100644
--- a/gnu/packages/terminals.scm
+++ b/gnu/packages/terminals.scm
@@ -572,43 +572,43 @@ to all types of devices that provide serial consoles.")
         (base32 "0dgrb5yg4ys1fa4hs95iz3m2yhryfzzw0j6g6yf6vhbys4ihcf40"))))
     (build-system gnu-build-system)
     (arguments
-     (list #:make-flags
-           #~(list (string-append "CC=" #$(cc-for-target))
-                   (string-append "prefix=" #$output))
-           #:phases
-           #~(modify-phases %standard-phases
-               (delete 'configure)      ; no configure script
-               (add-before 'check 'patch-tests
-                 (lambda _
-                   (substitute* "GNUmakefile"
-                     (("/bin/bash")
-                      (which "bash"))
-                     ;; XXX In the build environment, $(PWD) is the *parent* directory
-                     ;; /tmp/guix-build-beep-x.y.drv-0!  A pure guix shell works fine.
-                     (("\\$\\(PWD\\)" pwd)
-                      (string-append pwd "/source")))
-                   (substitute* (find-files "tests" "\\.expected")
-                     ;; The build environment lacks /dev/{console,tty*}.
-                     ;; In fact, even nckx's regular Guix System lacks ttyS1…
-                     ((": Permission denied")
-                      ": No such file or directory"))))
-               (add-before 'install 'install-rules
-                 (lambda _
-                   (mkdir-p (string-append #$output "/etc/udev/rules.d"))
-                   (with-output-to-file
-                       (string-append #$output
-                                      "/etc/udev/rules.d/70-pcspkr-beep.rules")
-                     (lambda _
-                       (display (string-append "\
-ACTION==\"add\", SUBSYSTEM==\"input\", ATTRS{name}==\"PC Speaker\", "
-                                               "ENV{DEVNAME}!=\"\", "
-                                               "TAG+=\"uaccess\"")))))))))
+     (list
+      #:make-flags
+      #~(list (string-append "CC=" #$(cc-for-target))
+              (string-append "prefix=" #$output))
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure) ;no configure script
+          (add-before 'check 'patch-tests
+            (lambda _
+              (substitute* "GNUmakefile"
+                (("/bin/bash")
+                 (which "bash"))
+                ;; XXX In the build environment, $(PWD) is the *parent* directory
+                ;; /tmp/guix-build-beep-x.y.drv-0!  A pure guix shell works fine.
+                (("\\$\\(PWD\\)" pwd)
+                 (string-append pwd "/source")))
+              (substitute* (find-files "tests" "\\.expected")
+                ;; The build environment lacks /dev/{console,tty*}.
+                ;; In fact, even nckx's regular Guix System lacks ttyS1…
+                ((": Permission denied")
+                 ": No such file or directory"))))
+          (add-before 'install 'install-rules
+            (lambda _
+              (mkdir-p (string-append #$output "/etc/udev/rules.d"))
+              (with-output-to-file (string-append #$output
+                                                  "/etc/udev/rules.d/70-pcspkr-beep.rules")
+                (lambda _
+                  (display (string-append
+                            "ACTION==\"add\", SUBSYSTEM==\"input\", ATTRS{name}==\"PC Speaker\", "
+                            "ENV{DEVNAME}!=\"\", " "TAG+=\"uaccess\"")))))))))
     (synopsis "Linux command-line utility to control the PC speaker")
-    (description "beep allows the user to control the PC speaker with precision,
-allowing different sounds to indicate different events.  While it can be run
-quite happily on the command line, its intended place of residence is within
-scripts, notifying the user when something interesting occurs.  Of course, it
-has no notion of what's interesting, but it's very good at that notifying part.")
+    (description
+     "beep allows the user to control the PC speaker with precision, allowing
+different sounds to indicate different events.  While it can be run quite
+happily on the command line, its intended place of residence is within scripts,
+notifying the user when something interesting occurs.  Of course, it has no
+notion of what's interesting, but it's very good at that notifying part.")
     (home-page "https://github.com/spkr-beep/beep")
     (license license:gpl2+)))