diff options
Diffstat (limited to 'gnu/packages/terminals.scm')
| -rw-r--r-- | gnu/packages/terminals.scm | 42 |
1 files changed, 24 insertions, 18 deletions
diff --git a/gnu/packages/terminals.scm b/gnu/packages/terminals.scm index 58fd569ff2..c5877affc2 100644 --- a/gnu/packages/terminals.scm +++ b/gnu/packages/terminals.scm @@ -5,7 +5,7 @@ ;;; Copyright © 2016 David Craven <david@craven.ch> ;;; Copyright © 2016, 2017, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016, 2017 José Miguel Sánchez García <jmi2k@openmailbox.org> -;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017–2022 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Petter <petter@mykolab.ch> @@ -58,6 +58,7 @@ #:use-module (guix build-system python) #:use-module (guix download) #:use-module (guix git-download) + #:use-module (guix gexp) #:use-module (guix packages) #:use-module (guix utils) #:use-module (gnu packages) @@ -559,7 +560,7 @@ to all types of devices that provide serial consoles.") (define-public beep (package (name "beep") - (version "1.4.10") + (version "1.4.12") (source (origin (method git-fetch) @@ -572,24 +573,29 @@ to all types of devices that provide serial consoles.") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "05c2gxfqc12rgp88c65q7f5ha9gzh222vdh0qpdq1zmyhqj43pq1")))) + (base32 "0dgrb5yg4ys1fa4hs95iz3m2yhryfzzw0j6g6yf6vhbys4ihcf40")))) (build-system gnu-build-system) (arguments - `(#:make-flags - (list (string-append "prefix=" (assoc-ref %outputs "out")) - (string-append "pkgdocdir=$(docdir)/" ,name "-" ,version)) - #:phases - (modify-phases %standard-phases - (delete 'configure) ; no configure script - (add-before 'check 'patch-tests - (lambda _ - (substitute* "GNUmakefile" - (("/bin/bash") - (which "bash"))) - (substitute* (find-files "tests" "\\.expected") - ;; The build environment lacks /dev/{console,tty*}. - ((": Permission denied") - ": No such file or directory"))))))) + (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"))))))) (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 |