Subject: bug#66794: closed (Re: [bug#66794] [PATCH] gnu: beep: Add phase install-rules.)

From: [email-masked] (GNU bug Tracking System)
Date: Mon, 04 Dec 2023 20:59:02 +0000

Your bug report

#66794: [PATCH] gnu: beep: Add phase install-rules.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
66794: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=66794
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: [bug#66794] [PATCH] gnu: beep: Add phase install-rules.
From: Ludovic Courtès <[email-masked]>
To: Nicolas Graves <[email-masked]>
Cc: [email-masked]
Date: Mon, 04 Dec 2023 21:57:31 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

Nicolas Graves <[email-masked]> skribis:

> * gnu/packages/terminals.scm (beep): Add phase install-rules.

Applied, thanks!

Subject: [PATCH] gnu: beep: Add phase install-rules.
From: Nicolas Graves <[email-masked]>
To: [email-masked]
Cc: [email-masked]
Date: Sat, 28 Oct 2023 16:16:46 +0200
List-Id: <debbugs-submit.debbugs.gnu.org>

* gnu/packages/terminals.scm (beep): Add phase install-rules.
---
 gnu/packages/terminals.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/terminals.scm b/gnu/packages/terminals.scm
index c5cecfa6db..b3f17c7ed2 100644
--- a/gnu/packages/terminals.scm
+++ b/gnu/packages/terminals.scm
@@ -584,7 +584,18 @@ (define-public beep
                      ;; The build environment lacks /dev/{console,tty*}.
                      ;; In fact, even nckx's regular Guix System lacks ttyS1…
                      ((": Permission denied")
-                      ": No such file or directory")))))))
+                      ": 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
-- 
2.41.0