diff options
| author | John Kehayias <john.kehayias@protonmail.com> | 2023-12-16 23:14:56 -0500 |
|---|---|---|
| committer | John Kehayias <john.kehayias@protonmail.com> | 2023-12-16 23:14:56 -0500 |
| commit | 17c3a3bfff150a42c904233fa39818d73c9f68f3 (patch) | |
| tree | a7614b7cd9a7106ea59f5ac1caad0c2c496b3a45 /gnu/packages/terminals.scm | |
| parent | f5493629e2650c0d30caf0f01f76b2383f78b9de (diff) | |
| parent | fe86819d8bde674766659c22b215d3a689a8026e (diff) | |
Merge branch 'master' into mesa-updates
Change-Id: I0c6e2410c51335c68634738be030e374f5b492e9
Diffstat (limited to 'gnu/packages/terminals.scm')
| -rw-r--r-- | gnu/packages/terminals.scm | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/gnu/packages/terminals.scm b/gnu/packages/terminals.scm index 27b1e1a2ac..53f67a80e5 100644 --- a/gnu/packages/terminals.scm +++ b/gnu/packages/terminals.scm @@ -603,7 +603,18 @@ to all types of devices that provide serial consoles.") ;; 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 @@ -1599,14 +1610,14 @@ basic input/output.") (search-input-file inputs "lib/libxkbcommon.so"))))) (replace 'install ;; Upstream install script only takes care of executable. - (lambda* (#:key inputs outputs #:allow-other-keys) + (lambda* (#:key native-inputs inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (bin (string-append out "/bin")) (share (string-append out "/share")) (icons (string-append share "/icons/hicolor/scalable/apps")) - (tic (search-input-file inputs "/bin/tic")) + (tic (search-input-file (or native-inputs inputs) "/bin/tic")) (man (string-append share "/man/man1")) - (alacritty-bin "target/release/alacritty")) + (alacritty-bin (car (find-files "target" "^alacritty$")))) ;; Install the executable. (install-file alacritty-bin bin) ;; Install man pages. |