>From 0442929caf91c1efcc495d9220b2739a8e05fa57 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus <rek...@elephly.net> Date: Thu, 5 Mar 2015 09:36:02 +0100 Subject: [PATCH] gnu: Add lilypond.
* gnu/packages/audio.scm (lilypond): New variable. --- gnu/packages/audio.scm | 76 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 76 insertions(+) diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm index eb67c3f..ae5cff0 100644 --- a/gnu/packages/audio.scm +++ b/gnu/packages/audio.scm @@ -18,6 +18,7 @@ ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (gnu packages audio) + #:use-module (guix utils) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix git-download) @@ -31,14 +32,24 @@ #:use-module (gnu packages autotools) #:use-module (gnu packages boost) #:use-module (gnu packages base) + #:use-module (gnu packages bison) #:use-module (gnu packages compression) #:use-module (gnu packages curl) #:use-module (gnu packages databases) + #:use-module (gnu packages docbook) #:use-module (gnu packages file) + #:use-module (gnu packages flex) + #:use-module (gnu packages fonts) + #:use-module (gnu packages fontutils) + #:use-module (gnu packages gettext) + #:use-module (gnu packages ghostscript) #:use-module (gnu packages glib) #:use-module (gnu packages gtk) #:use-module (gnu packages gnome) + #:use-module (gnu packages guile) + #:use-module (gnu packages imagemagick) #:use-module (gnu packages ncurses) + #:use-module (gnu packages netpbm) #:use-module (gnu packages qt) #:use-module (gnu packages linux) #:use-module (gnu packages mp3) ;taglib @@ -48,8 +59,12 @@ #:use-module (gnu packages python) #:use-module (gnu packages rdf) #:use-module (gnu packages readline) + #:use-module (gnu packages rsync) + #:use-module (gnu packages texinfo) + #:use-module (gnu packages texlive) #:use-module (gnu packages xiph) #:use-module (gnu packages xml) + #:use-module ((gnu packages zip) #:prefix gnu:) #:use-module (srfi srfi-1)) (define-public alsa-modular-synth @@ -548,6 +563,67 @@ for applications. Lilv is the successor to SLV2, rewritten to be significantly faster and have minimal dependencies.") (license license:isc))) +(define-public lilypond + (package + (name "lilypond") + (version "2.18.2") + (source (origin + (method url-fetch) + (uri (string-append + "http://download.linuxaudio.org/lilypond/sources/v"; + (version-major+minor version) "/" + name "-" version ".tar.gz")) + (sha256 + (base32 + "01xs9x2wjj7w9appaaqdhk15r1xvvdbz9qwahzhppfmhclvp779j")))) + (build-system gnu-build-system) + (arguments + `(;; Tests fail with this error: + ;; Undefined subroutine &main::get_index called at + ;; ./lilypond-2.18.2/Documentation/lilypond-texi2html.init line 2127. + #:tests? #f + #:out-of-source? #t + #:phases + (alist-cons-before + 'configure 'prepare-configuration + (lambda _ + (substitute* "configure" + (("SHELL=/bin/sh") "SHELL=sh")) + (setenv "out" "") + #t) + %standard-phases))) + (inputs + `(("guile" ,guile-1.8) + ("font-dejavu" ,font-dejavu) + ("fontconfig" ,fontconfig) + ("freetype" ,freetype) + ("ghostscript" ,ghostscript) + ("pango" ,pango) + ("python" ,python-2))) + (native-inputs + `(("bison" ,bison) + ("perl" ,perl) + ("flex" ,flex) + ("fontforge" ,fontforge) + ("dblatex" ,dblatex) + ("gettext" ,gnu-gettext) + ("imagemagick" ,imagemagick) + ("netpbm" ,netpbm) ;for pngtopnm + ("texlive" ,texlive) ;metafont and metapost + ("texinfo" ,texinfo) + ("texi2html" ,texi2html) + ("rsync" ,rsync) + ("pkg-config" ,pkg-config) + ("zip" ,gnu:zip))) + (home-page "http://www.lilypond.org/";) + (synopsis "Music typesetting") + (description + "GNU LilyPond is a music typesetter, which produces high-quality sheet +music. Music is input in a text file containing control sequences which are +interpreted by LilyPond to produce the final document. It is extendable with +Guile.") + (license license:gpl3+))) + (define-public lv2 (package (name "lv2") -- 2.1.0
