ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-15 11:25:22 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: beep: Use G-expressions.

Browse source 
* gnu/packages/terminals.scm (beep)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-05-08 02:00:01 +02:00
parent de15ca7af8
commit e6c3e7d741
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 22 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
gnu/packages/terminals.scm
View file

@ -58,6 +58,7 @@ (define-module (gnu packages terminals)
#: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)
@ -575,27 +576,27 @@ (define-public beep
(base32 "0dgrb5yg4ys1fa4hs95iz3m2yhryfzzw0j6g6yf6vhbys4ihcf40"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags
(list (string-append "CC=" ,(cc-for-target))
(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"))
;; 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")))))))
(list #:make-flags
#~(list (string-append "CC=" #$(cc-for-target))
(string-append "prefix=" #$output)
(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"))
;; 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