From ad6b9c735a45738c798a0c677ebc9e4062e17aef Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jos=C3=A9=20Miguel=20S=C3=A1nchez=20Garc=C3=ADa?= Date: Thu, 5 Jan 2017 00:23:18 +0100 Subject: [PATCH] gnu: Add beep. * gnu/packages/terminals.scm (beep): New variable. --- gnu/packages/terminals.scm | 36 +++++++++++++++++++++++++++++++++++- 1 file changed, 35 insertions(+), 1 deletion(-) diff --git a/gnu/packages/terminals.scm b/gnu/packages/terminals.scm index 52767ba6c..dd4142ac8 100644 --- a/gnu/packages/terminals.scm +++ b/gnu/packages/terminals.scm @@ -4,7 +4,7 @@ ;;; Copyright © 2016 Alex Griffin ;;; Copyright © 2016 David Craven ;;; Copyright © 2016 Ludovic Courtès -;;; Copyright © 2016 José Miguel Sánchez García +;;; Copyright © 2016, 2017 José Miguel Sánchez García ;;; ;;; This file is part of GNU Guix. ;;; @@ -326,3 +326,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 _ + (substitute* "Makefile" (("/usr") (assoc-ref %outputs "out"))))) + (add-before 'install 'create-dest-dirs + (lambda _ + (mkdir-p (string-append (assoc-ref %outputs "out") "/bin")) + (mkdir-p (string-append (assoc-ref %outputs "out") "/man/man1"))))))) + (synopsis "Linux command-line utilitu 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 +shell/perl scripts, notifying the user when something interesting occurs. Of +course, it has no notion of what's interesing, but it's real good at that +notifying part.") + (home-page "http://www.johnath.com/beep") + (license license:gpl2+))) -- 2.11.0