aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/music.scm
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2015-06-29 18:26:43 +0200
committerRicardo Wurmus <rekado@elephly.net>2015-07-01 21:52:08 +0200
commitd231bb3575472561c9b715f2b797aae110e065c5 (patch)
tree922ade2e1df9a5087959177f3b191e82bda3126e /gnu/packages/music.scm
parent5135aed92bf750fe61c24d2bd537739cab749444 (diff)
downloadguix-d231bb3575472561c9b715f2b797aae110e065c5.tar
guix-d231bb3575472561c9b715f2b797aae110e065c5.tar.gz
gnu: Add Hydrogen.
* gnu/packages/music.scm (hydrogen): New variable.
Diffstat (limited to 'gnu/packages/music.scm')
-rw-r--r--gnu/packages/music.scm70
1 files changed, 70 insertions, 0 deletions
diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 9cf9772086..4b1f92fcdb 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -51,8 +51,10 @@
#:use-module (gnu packages netpbm)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
+ #:use-module (gnu packages pulseaudio) ;libsndfile
#:use-module (gnu packages python)
#:use-module (gnu packages qt)
+ #:use-module (gnu packages rdf)
#:use-module (gnu packages rsync)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages texlive)
@@ -61,6 +63,74 @@
#:use-module (gnu packages xiph)
#:use-module (gnu packages zip))
+(define-public hydrogen
+ (package
+ (name "hydrogen")
+ (version "0.9.5.1")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://sourceforge/hydrogen/Hydrogen/"
+ (version-prefix version 3) "%20Sources/"
+ "hydrogen-" version ".tar.gz"))
+ (sha256
+ (base32
+ "1fvyp6gfzcqcc90dmaqbm11p272zczz5pfz1z4lj33nfr7z0bqgb"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:tests? #f ;no "check" target
+ #:phases
+ ;; TODO: Add scons-build-system and use it here.
+ (modify-phases %standard-phases
+ (delete 'configure)
+ (add-after 'unpack 'scons-propagate-environment
+ (lambda _
+ ;; By design, SCons does not, by default, propagate
+ ;; environment variables to subprocesses. See:
+ ;; <http://comments.gmane.org/gmane.linux.distributions.nixos/4969>
+ ;; Here, we modify the Sconstruct file to arrange for
+ ;; environment variables to be propagated.
+ (substitute* "Sconstruct"
+ (("^env = Environment\\(")
+ "env = Environment(ENV=os.environ, "))))
+ (replace 'build
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out")))
+ (zero? (system* "scons"
+ (string-append "prefix=" out)
+ "lrdf=0" ; cannot be found
+ "lash=1")))))
+ (add-before
+ 'install
+ 'fix-img-install
+ (lambda _
+ ;; The whole ./data/img directory is copied to the target first.
+ ;; Scons complains about existing files when we try to install all
+ ;; images a second time.
+ (substitute* "Sconstruct"
+ (("os.path.walk\\(\"./data/img/\",install_images,env\\)") ""))
+ #t))
+ (replace 'install (lambda _ (zero? (system* "scons" "install")))))))
+ (native-inputs
+ `(("scons" ,scons)
+ ("python" ,python-2)
+ ("pkg-config" ,pkg-config)))
+ (inputs
+ `(("zlib" ,zlib)
+ ("libtar" ,libtar)
+ ("alsa-lib" ,alsa-lib)
+ ("jack" ,jack-1)
+ ("lash" ,lash)
+ ;;("lrdf" ,lrdf) ;FIXME: cannot be found by scons
+ ("qt" ,qt-4)
+ ("libsndfile" ,libsndfile)))
+ (home-page "http://www.hydrogen-music.org")
+ (synopsis "Drum machine")
+ (description
+ "Hydrogen is an advanced drum machine for GNU/Linux. Its main goal is to
+enable professional yet simple and intuitive pattern-based drum programming.")
+ (license license:gpl2+)))
+
(define-public lilypond
(package
(name "lilypond")