gnu: Add snd.
* gnu/packages/audio.scm (snd): New variable.
This commit is contained in:
parent
7e2c67ca6a
commit
d0c8e5249d
|
@ -36,6 +36,7 @@
|
|||
#:use-module (guix build-system trivial)
|
||||
#:use-module (guix build-system cmake)
|
||||
#:use-module (guix build-system python)
|
||||
#:use-module (guix build-system glib-or-gtk)
|
||||
#:use-module (gnu packages)
|
||||
#:use-module (gnu packages algebra)
|
||||
#:use-module (gnu packages autotools)
|
||||
|
@ -79,6 +80,8 @@
|
|||
#:use-module (gnu packages xiph)
|
||||
#:use-module (gnu packages xml)
|
||||
#:use-module (gnu packages xorg)
|
||||
#:use-module (gnu packages maths)
|
||||
#:use-module (gnu packages multiprecision)
|
||||
#:use-module (srfi srfi-1))
|
||||
|
||||
(define-public alsa-modular-synth
|
||||
|
@ -2926,3 +2929,62 @@ mixers.")
|
|||
|
||||
(define-public python2-pyalsaaudio
|
||||
(package-with-python2 python-pyalsaaudio))
|
||||
|
||||
(define-public snd
|
||||
(package
|
||||
(name "snd")
|
||||
(version "17.7")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "ftp://ccrma-ftp.stanford.edu/pub/Lisp/"
|
||||
"snd-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"1vm0dy5qlycqkima7y5ajzvazyjybifa803fabjcpncjz08c26vp"))))
|
||||
(build-system glib-or-gtk-build-system)
|
||||
(arguments
|
||||
'(#:tests? #f ; no tests
|
||||
#:out-of-source? #f ; for the 'install-doc' phase
|
||||
#:configure-flags
|
||||
(let* ((out (assoc-ref %outputs "out"))
|
||||
(docdir (string-append out "/share/doc/snd")))
|
||||
(list "--with-alsa" "--with-jack" "--with-gmp"
|
||||
(string-append "--with-doc-dir=" docdir)))
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'install 'install-doc
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(docdir (string-append out "/share/doc/snd")))
|
||||
(mkdir-p docdir)
|
||||
(for-each
|
||||
(lambda (f)
|
||||
(install-file f docdir))
|
||||
(find-files "." "\\.html$|COPYING"))
|
||||
(copy-recursively "pix" (string-append docdir "/pix"))
|
||||
#t))))))
|
||||
(native-inputs
|
||||
`(("pkg-config" ,pkg-config)))
|
||||
(inputs
|
||||
`(("alsa-lib" ,alsa-lib)
|
||||
("fftw" ,fftw)
|
||||
("flac" ,flac)
|
||||
("gmp" ,gmp)
|
||||
("gsl" ,gsl)
|
||||
("gtk+" ,gtk+)
|
||||
("jack" ,jack-1)
|
||||
("libsamplerate" ,libsamplerate)
|
||||
("mpc" ,mpc)
|
||||
("mpfr" ,mpfr)
|
||||
("mpg123" ,mpg123)
|
||||
("speex" ,speex)
|
||||
("timidity++" ,timidity++)
|
||||
("vorbis-tools" ,vorbis-tools)
|
||||
("wavpack" ,wavpack)))
|
||||
(synopsis "Sound editor")
|
||||
(home-page "https://ccrma.stanford.edu/software/snd/")
|
||||
(description
|
||||
"Snd is a sound editor modelled loosely after Emacs. It can be
|
||||
customized and extended using either the s7 Scheme implementation (included in
|
||||
the Snd sources), Ruby, or Forth.")
|
||||
(license (license:non-copyleft "file://COPYING"))))
|
||||
|
|
Loading…
Reference in New Issue