diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2015-06-29 18:26:43 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2015-07-01 21:52:08 +0200 |
commit | d231bb3575472561c9b715f2b797aae110e065c5 (patch) | |
tree | 922ade2e1df9a5087959177f3b191e82bda3126e | |
parent | 5135aed92bf750fe61c24d2bd537739cab749444 (diff) | |
download | guix-d231bb3575472561c9b715f2b797aae110e065c5.tar.gz |
gnu: Add Hydrogen.
* gnu/packages/music.scm (hydrogen): New variable.
-rw-r--r-- | gnu/packages/music.scm | 70 |
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") |