"Taylan Ulrich Bayırlı/Kammer" <[email protected]> writes:
> From 78cad66d5bb8dd5b4e46595574a4e58ce68d7849 Mon Sep 17 00:00:00 2001 > From: =?UTF-8?q?Taylan=20Ulrich=20Bay=C4=B1rl=C4=B1/Kammer?= > <[email protected]> > Date: Fri, 20 Feb 2015 21:44:57 +0100 > Subject: [PATCH 5/9] gnu: Add soundtouch. > > * gnu/packages/audio.scm (soundtouch): New variable. > --- > gnu/packages/audio.scm | 40 ++++++++++++++++++++++++++++++++++++++++ > 1 file changed, 40 insertions(+) > > diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm > index 51157d0..7fb39bd 100644 > --- a/gnu/packages/audio.scm > +++ b/gnu/packages/audio.scm > @@ -44,6 +44,7 @@ > #:use-module (gnu packages xiph) > #:use-module (gnu packages xml) > #:use-module (gnu packages autotools) > + #:use-module (gnu packages file) > #:use-module (srfi srfi-1)) > > (define-public aubio > @@ -681,3 +682,42 @@ stretching and pitch scaling of audio. This package > contains the library.") > ;; There is no explicit declaration of a license, but a COPYING file > ;; containing gpl2. > (license license:gpl2))) > + > +(define-public soundtouch > + (package > + (name "soundtouch") > + (version "1.8.0") > + (source > + (origin > + (method url-fetch) > + (uri > + (string-append > + "http://www.surina.net/soundtouch/soundtouch-"; version ".tar.gz")) > + (sha256 > + (base32 "0sqn3wk4qz20vf0vz853l6dl1gnj1yhqxfwxqsc5lp529kbn2h9x")))) > + (build-system gnu-build-system) > + (native-inputs > + `(("autoconf" ,autoconf) > + ("automake" ,automake) > + ("libtool" ,libtool) > + ("file" ,file))) > + (arguments > + '(#:phases > + (alist-cons-before > + 'configure 'bootstrap > + (lambda _ > + (and > + (zero? (system* "sh" "bootstrap")) > + (begin (substitute* '("configure") > + (("/usr/bin/file") "file")) > + #t))) Is the 'begin' form necessary here? Also, when substituting a single file, you can just pass a string instead of a list of strings. (and (zero? (system* "sh" "bootstrap")) (substitute* "configure" (("/usr/bin/file") "file"))) > + %standard-phases))) > + (home-page "http://www.surina.net/soundtouch/";) > + (synopsis > + "Audio processing library for changing tempo, pitch and playback rate") > + (description > + "SoundTouch is an audio processing library for changing the Tempo, Pitch > +and Playback Rates of audio streams or audio files. It is intended for > +application developers writing sound processing tools that require > tempo/pitch > +control functionality, or just for playing around with the sound effects.") > + (license license:lgpl2.1+))) > -- > 2.2.1 > > -- David Thompson Web Developer - Free Software Foundation - http://fsf.org GPG Key: 0FF1D807 Support the FSF: https://fsf.org/donate
