gnu: Add beep.

* gnu/packages/terminals.scm (beep): New variable.

Co-authored-by: Tobias Geerinckx-Rice <me@tobias.gr>
This commit is contained in:
José Miguel Sánchez García 2017-01-05 00:23:18 +01:00 committed by Tobias Geerinckx-Rice
parent 88a46c9812
commit abe2ec735f
No known key found for this signature in database
GPG Key ID: 91CCDB9B48541B99

View File

@ -4,7 +4,8 @@
;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 José Miguel Sánchez García <jmi2k@openmailbox.org>
;;; Copyright © 2016, 2017 José Miguel Sánchez García <jmi2k@openmailbox.org>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -326,3 +327,37 @@ configuration, testing, and debugging tool. It has also serves well
as a low-tech serial communications program to allow access to all
types of devices that provide serial consoles.")
(license license:gpl2+)))
(define-public beep
(package
(name "beep")
(version "1.3")
(source (origin
(method url-fetch)
(uri (string-append "http://www.johnath.com/" name "/"
name "-" version ".tar.gz"))
(sha256
(base32
"0bgch6jq5cahakk3kbr9549iysf2dik09afixxy5brbxk1xfzb2r"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no tests.
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-after 'unpack 'patch-makefile
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "Makefile" (("/usr") (assoc-ref outputs "out")))))
(add-before 'install 'create-output-directories
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref %outputs "out")))
(mkdir-p (string-append out "/bin"))
(mkdir-p (string-append out "/man/man1"))))))))
(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 interesing, but it's very good at that notifying part.")
(home-page "http://www.johnath.com/beep")
(license license:gpl2+)))