* [bug#28681] [PATCH] gnu: Add snd.
@ 2017-10-03 3:14 宋文武
2017-10-03 4:15 ` 宋文武
0 siblings, 1 reply; 4+ messages in thread
From: 宋文武 @ 2017-10-03 3:14 UTC (permalink / raw)
To: 28681
* gnu/packages/audio.scm (snd): New variable.
---
gnu/packages/audio.scm | 36 ++++++++++++++++++++++++++++++++++++
1 file changed, 36 insertions(+)
diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 95a5fdd7c..6c863851e 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -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,7 @@
#:use-module (gnu packages xiph)
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg)
+ #:use-module (gnu packages maths)
#:use-module (srfi srfi-1))
(define-public alsa-modular-synth
@@ -2926,3 +2928,37 @@ 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
+ (native-inputs
+ `(("pkg-config" ,pkg-config)))
+ (inputs
+ `(("alsa-lib" ,alsa-lib)
+ ("fftw" ,fftw)
+ ("gsl" ,gsl)
+ ("gtk+" ,gtk+)
+ ("flac" ,flac)
+ ("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 s7 (included in the Snd sources), Ruby,
+or Forth.")
+ (license (license:non-copyleft "file://COPYING"))))
--
2.13.3
^ permalink raw reply related [flat|nested] 4+ messages in thread
* [bug#28681] [PATCH] gnu: Add snd.
2017-10-03 3:14 [bug#28681] [PATCH] gnu: Add snd 宋文武
@ 2017-10-03 4:15 ` 宋文武
2017-10-03 15:17 ` Ludovic Courtès
0 siblings, 1 reply; 4+ messages in thread
From: 宋文武 @ 2017-10-03 4:15 UTC (permalink / raw)
To: 28681
[-- Attachment #1: Type: text/plain, Size: 60 bytes --]
Add 'install-doc' phase to install its html documentation:
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-gnu-Add-snd.patch --]
[-- Type: text/x-patch, Size: 3197 bytes --]
From 3e7378269f85d90d0c4ffb046316d90029d4701e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@member.fsf.org>
Date: Tue, 3 Oct 2017 11:13:05 +0800
Subject: [PATCH] gnu: Add snd.
* gnu/packages/audio.scm (snd): New variable.
---
gnu/packages/audio.scm | 55 ++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 55 insertions(+)
diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 95a5fdd7c..89032a8e6 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -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,7 @@
#:use-module (gnu packages xiph)
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg)
+ #:use-module (gnu packages maths)
#:use-module (srfi srfi-1))
(define-public alsa-modular-synth
@@ -2926,3 +2928,56 @@ 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 (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)
+ ("gsl" ,gsl)
+ ("gtk+" ,gtk+)
+ ("flac" ,flac)
+ ("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 s7 (included in the Snd sources), Ruby,
+or Forth.")
+ (license (license:non-copyleft "file://COPYING"))))
--
2.13.3
^ permalink raw reply related [flat|nested] 4+ messages in thread
* [bug#28681] [PATCH] gnu: Add snd.
2017-10-03 4:15 ` 宋文武
@ 2017-10-03 15:17 ` Ludovic Courtès
2017-10-04 1:40 ` bug#28681: " 宋文武
0 siblings, 1 reply; 4+ messages in thread
From: Ludovic Courtès @ 2017-10-03 15:17 UTC (permalink / raw)
To: 宋文武; +Cc: 28681
iyzsong@member.fsf.org (宋文武) skribis:
> Add 'install-doc' phase to install its html documentation:
>
> From 3e7378269f85d90d0c4ffb046316d90029d4701e Mon Sep 17 00:00:00 2001
> From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@member.fsf.org>
> Date: Tue, 3 Oct 2017 11:13:05 +0800
> Subject: [PATCH] gnu: Add snd.
>
> * gnu/packages/audio.scm (snd): New variable.
…
> + (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 s7 (included in the Snd sources), Ruby,
“using the s7 Scheme implementation” maybe?
Otherwise LGTM, thanks! :-)
Ludo’.
^ permalink raw reply [flat|nested] 4+ messages in thread
* bug#28681: [PATCH] gnu: Add snd.
2017-10-03 15:17 ` Ludovic Courtès
@ 2017-10-04 1:40 ` 宋文武
0 siblings, 0 replies; 4+ messages in thread
From: 宋文武 @ 2017-10-04 1:40 UTC (permalink / raw)
To: Ludovic Courtès; +Cc: 28681-done
ludo@gnu.org (Ludovic Courtès) writes:
>> [...]
>> +customized and extended using either s7 (included in the Snd sources), Ruby,
>
> “using the s7 Scheme implementation” maybe?
>
> Otherwise LGTM, thanks! :-)
Done, thank you for the review!
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2017-10-04 1:42 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2017-10-03 3:14 [bug#28681] [PATCH] gnu: Add snd 宋文武
2017-10-03 4:15 ` 宋文武
2017-10-03 15:17 ` Ludovic Courtès
2017-10-04 1:40 ` bug#28681: " 宋文武
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.