[jackhill/guix/guix.git] / gnu / packages / music.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages music)
  #:use-module (guix utils)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages)
  #:use-module (gnu packages audio)
  #:use-module (gnu packages bison)
  #:use-module (gnu packages docbook)
  #:use-module (gnu packages flex)
  #:use-module (gnu packages fonts)
  #:use-module (gnu packages fontutils)
  #:use-module (gnu packages gcc)
  #:use-module (gnu packages gettext)
  #:use-module (gnu packages ghostscript)
  #:use-module (gnu packages gnome)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages guile)
  #:use-module (gnu packages image)
  #:use-module (gnu packages imagemagick)
  #:use-module (gnu packages java)
  #:use-module (gnu packages linux) ; for alsa-utils
  #:use-module (gnu packages man)
  #:use-module (gnu packages mp3)
  #:use-module (gnu packages netpbm)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages python)
  #:use-module (gnu packages rsync)
  #:use-module (gnu packages texinfo)
  #:use-module (gnu packages texlive)
  #:use-module (gnu packages xml)
  #:use-module (gnu packages xiph)
  #:use-module (gnu packages zip))

(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" ,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 solfege
  (package
    (name "solfege")
    (version "3.22.2")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "mirror://gnu/solfege/solfege-"
                    version ".tar.xz"))
              (sha256
               (base32
                "1w25rxdbj907nsx285k9nm480pvy12w3yknfh4n1dfv17cwy072i"))))
    (build-system gnu-build-system)
    (arguments
     `(#:tests? #f ; xmllint attempts to download DTD
       #:test-target "test"
       #:phases
       (alist-cons-after
        'unpack 'fix-configuration
        (lambda* (#:key inputs #:allow-other-keys)
          (substitute* "default.config"
            (("csound=csound")
             (string-append "csound="
                            (assoc-ref inputs "csound")
                            "/bin/csound"))
            (("/usr/bin/aplay")
             (string-append (assoc-ref inputs "aplay")
                            "/bin/aplay"))
            (("/usr/bin/timidity")
             (string-append (assoc-ref inputs "timidity")
                            "/bin/timidity"))
            (("/usr/bin/mpg123")
             (string-append (assoc-ref inputs "mpg123")
                            "/bin/mpg123"))
            (("/usr/bin/ogg123")
             (string-append (assoc-ref inputs "ogg123")
                            "/bin/ogg123"))))
        (alist-cons-before
         'build 'patch-python-shebangs
         (lambda _
           ;; Two python scripts begin with a Unicode BOM, so patch-shebang
           ;; has no effect.
           (substitute* '("solfege/parsetree.py"
                          "solfege/presetup.py")
             (("#!/usr/bin/python") (string-append "#!" (which "python")))))
         (alist-cons-before
          'build 'add-sitedirs
          ;; .pth files are not automatically interpreted unless the
          ;; directories containing them are added as "sites".  The directories
          ;; are then added to those in the PYTHONPATH.  This is required for
          ;; the operation of pygtk and pygobject.
          (lambda _
            (substitute* "run-solfege.py"
              (("import os")
               "import os, site
for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)")))
          (alist-cons-before
           'build 'adjust-config-file-prefix
           (lambda* (#:key outputs #:allow-other-keys)
             (substitute* "run-solfege.py"
               (("prefix = os.path.*$")
                (string-append "prefix = " (assoc-ref outputs "out")))))
           (alist-cons-after
            'install 'wrap-program
            (lambda* (#:key inputs outputs #:allow-other-keys)
              ;; Make sure 'solfege' runs with the correct PYTHONPATH.  We
              ;; also need to modify GDK_PIXBUF_MODULE_FILE for SVG support.
              (let* ((out (assoc-ref outputs "out"))
                     (path (getenv "PYTHONPATH"))
                     (rsvg (assoc-ref inputs "librsvg"))
                     (pixbuf (find-files rsvg "^loaders\\.cache$")))
                (wrap-program (string-append out "/bin/solfege")
                  `("PYTHONPATH" ":" prefix (,path))
                  `("GDK_PIXBUF_MODULE_FILE" ":" prefix ,pixbuf))))
            %standard-phases)))))))
    (inputs
     `(("python" ,python-2)
       ("pygtk" ,python2-pygtk)
       ("gettext" ,gnu-gettext)
       ("gtk" ,gtk+)
       ;; TODO: Lilypond is optional.  Produces errors at build time:
       ;;   Drawing systems...Error: /undefinedresult in --glyphshow--
       ;; Fontconfig is needed to fix one of the errors, but other similar
       ;; errors remain.
       ;;("lilypond" ,lilypond)
       ("librsvg" ,librsvg) ; needed at runtime for icons
       ("libpng" ,libpng) ; needed at runtime for icons
       ;; players needed at runtime
       ("aplay" ,alsa-utils)
       ("csound" ,csound) ; optional, needed for some exercises
       ("mpg123" ,mpg123)
       ("ogg123" ,vorbis-tools)
       ("timidity" ,timidity++)))
    (native-inputs
     `(("pkg-config" ,pkg-config)
       ("txt2man" ,txt2man)
       ("libxml2" ,libxml2) ; for tests
       ("ghostscript" ,ghostscript)
       ;;("fontconfig" ,fontconfig) ; only needed with lilypond
       ;;("freetype" ,freetype) ; only needed with lilypond
       ("texinfo" ,texinfo)))
    (home-page "https://www.gnu.org/software/solfege/")
    (synopsis "Ear training")
    (description
     "GNU Solfege is a program for practicing musical ear-training.  With it,
you can practice your recognition of various musical intervals and chords.  It
features a statistics overview so you can monitor your progress across several
sessions.  Solfege is also designed to be extensible so you can easily write
your own lessons.")
    (license license:gpl3+)))

(define-public tuxguitar
  (package
    (name "tuxguitar")
    (version "1.2")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "mirror://sourceforge/tuxguitar/TuxGuitar/TuxGuitar-"
                    version "/tuxguitar-src-" version ".tar.gz"))
              (sha256
               (base32
                "1g1yf2gd06fzdhqb8kb8dmdcmr602s9y24f01kyl4940wimgr944"))))
    (build-system gnu-build-system)
    (arguments
     `(#:make-flags (list (string-append "LDFLAGS=-Wl,-rpath="
                                         (assoc-ref %outputs "out") "/lib")
                          (string-append "PREFIX="
                                         (assoc-ref %outputs "out"))
                          (string-append "SWT_PATH="
                                         (assoc-ref %build-inputs "swt")
                                         "/share/java/swt.jar"))
       #:tests? #f ;no "check" target
       #:parallel-build? #f ;not supported
       #:phases
       (alist-cons-before
        'build 'enter-dir-set-path-and-pass-ldflags
        (lambda* (#:key inputs #:allow-other-keys)
          (chdir "TuxGuitar")
          (substitute* "GNUmakefile"
            (("PROPERTIES\\?=")
             (string-append "PROPERTIES?= -Dswt.library.path="
                            (assoc-ref inputs "swt") "/lib"))
            (("\\$\\(GCJ\\) -o") "$(GCJ) $(LDFLAGS) -o"))
          #t)
        (alist-delete 'configure %standard-phases))))
    (inputs
     `(("swt" ,swt)))
    (native-inputs
     `(("gcj" ,gcj-4.8)
       ("pkg-config" ,pkg-config)))
    (home-page "http://tuxguitar.com.ar")
    (synopsis "Multitrack tablature editor and player")
    (description
     "TuxGuitar is a guitar tablature editor with player support through midi.
It can display scores and multitrack tabs.  TuxGuitar provides various
additional features, including autoscrolling while playing, note duration
management, bend/slide/vibrato/hammer-on/pull-off effects, support for
tuplets, time signature management, tempo management, gp3/gp4/gp5 import and
export.")
    (license license:lgpl2.1+)))
Commit	Line	Data
1b6826d3 RW	1	;;; GNU Guix --- Functional package management for GNU
	2	;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
	3	;;;
	4	;;; This file is part of GNU Guix.
	5	;;;
	6	;;; GNU Guix is free software; you can redistribute it and/or modify it
	7	;;; under the terms of the GNU General Public License as published by
	8	;;; the Free Software Foundation; either version 3 of the License, or (at
	9	;;; your option) any later version.
	10	;;;
	11	;;; GNU Guix is distributed in the hope that it will be useful, but
	12	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	13	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	;;; GNU General Public License for more details.
	15	;;;
	16	;;; You should have received a copy of the GNU General Public License
	17	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	18
	19	(define-module (gnu packages music)
	20	#:use-module (guix utils)
	21	#:use-module (guix packages)
	22	#:use-module (guix download)
	23	#:use-module ((guix licenses) #:prefix license:)
	24	#:use-module (guix build-system gnu)
	25	#:use-module (gnu packages)
c267cc15	26	#:use-module (gnu packages audio)
1b6826d3 RW	27	#:use-module (gnu packages bison)
	28	#:use-module (gnu packages docbook)
	29	#:use-module (gnu packages flex)
	30	#:use-module (gnu packages fonts)
	31	#:use-module (gnu packages fontutils)
6260d1a8	32	#:use-module (gnu packages gcc)
1b6826d3 RW	33	#:use-module (gnu packages gettext)
1b6826d3 RW	34	#:use-module (gnu packages ghostscript)
c267cc15	35	#:use-module (gnu packages gnome)
1b6826d3 RW	36	#:use-module (gnu packages gtk)
1b6826d3 RW	37	#:use-module (gnu packages guile)
c267cc15	38	#:use-module (gnu packages image)
1b6826d3	39	#:use-module (gnu packages imagemagick)
6260d1a8	40	#:use-module (gnu packages java)
c267cc15 RW	41	#:use-module (gnu packages linux) ; for alsa-utils
	42	#:use-module (gnu packages man)
	43	#:use-module (gnu packages mp3)
1b6826d3 RW	44	#:use-module (gnu packages netpbm)
	45	#:use-module (gnu packages perl)
	46	#:use-module (gnu packages pkg-config)
	47	#:use-module (gnu packages python)
	48	#:use-module (gnu packages rsync)
	49	#:use-module (gnu packages texinfo)
	50	#:use-module (gnu packages texlive)
c267cc15 RW	51	#:use-module (gnu packages xml)
c267cc15 RW	52	#:use-module (gnu packages xiph)
1b6826d3 RW	53	#:use-module (gnu packages zip))
	54
	55	(define-public lilypond
	56	(package
	57	(name "lilypond")
	58	(version "2.18.2")
	59	(source (origin
	60	(method url-fetch)
	61	(uri (string-append
	62	"http://download.linuxaudio.org/lilypond/sources/v"
	63	(version-major+minor version) "/"
	64	name "-" version ".tar.gz"))
	65	(sha256
	66	(base32
	67	"01xs9x2wjj7w9appaaqdhk15r1xvvdbz9qwahzhppfmhclvp779j"))))
	68	(build-system gnu-build-system)
	69	(arguments
	70	`(;; Tests fail with this error:
	71	;; Undefined subroutine &main::get_index called at
	72	;; ./lilypond-2.18.2/Documentation/lilypond-texi2html.init line 2127.
	73	#:tests? #f
	74	#:out-of-source? #t
	75	#:phases
	76	(alist-cons-before
	77	'configure 'prepare-configuration
	78	(lambda _
	79	(substitute* "configure"
	80	(("SHELL=/bin/sh") "SHELL=sh"))
	81	(setenv "out" "")
	82	#t)
	83	%standard-phases)))
	84	(inputs
	85	`(("guile" ,guile-1.8)
	86	("font-dejavu" ,font-dejavu)
	87	("fontconfig" ,fontconfig)
	88	("freetype" ,freetype)
	89	("ghostscript" ,ghostscript)
	90	("pango" ,pango)
	91	("python" ,python-2)))
	92	(native-inputs
	93	`(("bison" ,bison)
	94	("perl" ,perl)
	95	("flex" ,flex)
	96	("fontforge" ,fontforge)
	97	("dblatex" ,dblatex)
	98	("gettext" ,gnu-gettext)
	99	("imagemagick" ,imagemagick)
	100	("netpbm" ,netpbm) ;for pngtopnm
	101	("texlive" ,texlive) ;metafont and metapost
	102	("texinfo" ,texinfo)
	103	("texi2html" ,texi2html)
	104	("rsync" ,rsync)
	105	("pkg-config" ,pkg-config)
	106	("zip" ,zip)))
	107	(home-page "http://www.lilypond.org/")
	108	(synopsis "Music typesetting")
	109	(description
	110	"GNU LilyPond is a music typesetter, which produces high-quality sheet
	111	music. Music is input in a text file containing control sequences which are
	112	interpreted by LilyPond to produce the final document. It is extendable with
	113	Guile.")
	114	(license license:gpl3+)))
c267cc15 RW	115
	116	(define-public solfege
	117	(package
	118	(name "solfege")
	119	(version "3.22.2")
	120	(source (origin
	121	(method url-fetch)
	122	(uri (string-append
	123	"mirror://gnu/solfege/solfege-"
	124	version ".tar.xz"))
	125	(sha256
	126	(base32
	127	"1w25rxdbj907nsx285k9nm480pvy12w3yknfh4n1dfv17cwy072i"))))
	128	(build-system gnu-build-system)
	129	(arguments
	130	`(#:tests? #f ; xmllint attempts to download DTD
	131	#:test-target "test"
	132	#:phases
	133	(alist-cons-after
	134	'unpack 'fix-configuration
	135	(lambda* (#:key inputs #:allow-other-keys)
	136	(substitute* "default.config"
	137	(("csound=csound")
	138	(string-append "csound="
	139	(assoc-ref inputs "csound")
	140	"/bin/csound"))
	141	(("/usr/bin/aplay")
	142	(string-append (assoc-ref inputs "aplay")
	143	"/bin/aplay"))
	144	(("/usr/bin/timidity")
	145	(string-append (assoc-ref inputs "timidity")
	146	"/bin/timidity"))
	147	(("/usr/bin/mpg123")
	148	(string-append (assoc-ref inputs "mpg123")
	149	"/bin/mpg123"))
	150	(("/usr/bin/ogg123")
	151	(string-append (assoc-ref inputs "ogg123")
	152	"/bin/ogg123"))))
	153	(alist-cons-before
	154	'build 'patch-python-shebangs
	155	(lambda _
	156	;; Two python scripts begin with a Unicode BOM, so patch-shebang
	157	;; has no effect.
	158	(substitute* '("solfege/parsetree.py"
	159	"solfege/presetup.py")
	160	(("#!/usr/bin/python") (string-append "#!" (which "python")))))
	161	(alist-cons-before
	162	'build 'add-sitedirs
	163	;; .pth files are not automatically interpreted unless the
	164	;; directories containing them are added as "sites". The directories
	165	;; are then added to those in the PYTHONPATH. This is required for
	166	;; the operation of pygtk and pygobject.
	167	(lambda _
	168	(substitute* "run-solfege.py"
	169	(("import os")
	170	"import os, site
	171	for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)")))
	172	(alist-cons-before
	173	'build 'adjust-config-file-prefix
	174	(lambda* (#:key outputs #:allow-other-keys)
	175	(substitute* "run-solfege.py"
	176	(("prefix = os.path.*$")
	177	(string-append "prefix = " (assoc-ref outputs "out")))))
	178	(alist-cons-after
179	'install 'wrap-program
180	(lambda* (#:key inputs outputs #:allow-other-keys)
181	;; Make sure 'solfege' runs with the correct PYTHONPATH. We
182	;; also need to modify GDK_PIXBUF_MODULE_FILE for SVG support.
183	(let* ((out (assoc-ref outputs "out"))
184	(path (getenv "PYTHONPATH"))
185	(rsvg (assoc-ref inputs "librsvg"))
186	(pixbuf (find-files rsvg "^loaders\\.cache$")))
187	(wrap-program (string-append out "/bin/solfege")
188	`("PYTHONPATH" ":" prefix (,path))
189	`("GDK_PIXBUF_MODULE_FILE" ":" prefix ,pixbuf))))
190	%standard-phases)))))))
191	(inputs
192	`(("python" ,python-2)
193	("pygtk" ,python2-pygtk)
194	("gettext" ,gnu-gettext)
195	("gtk" ,gtk+)
196	;; TODO: Lilypond is optional. Produces errors at build time:
197	;; Drawing systems...Error: /undefinedresult in --glyphshow--
198	;; Fontconfig is needed to fix one of the errors, but other similar
199	;; errors remain.
200	;;("lilypond" ,lilypond)
201	("librsvg" ,librsvg) ; needed at runtime for icons
202	("libpng" ,libpng) ; needed at runtime for icons
203	;; players needed at runtime
204	("aplay" ,alsa-utils)
205	("csound" ,csound) ; optional, needed for some exercises
206	("mpg123" ,mpg123)
207	("ogg123" ,vorbis-tools)
208	("timidity" ,timidity++)))
209	(native-inputs
210	`(("pkg-config" ,pkg-config)
211	("txt2man" ,txt2man)
212	("libxml2" ,libxml2) ; for tests
213	("ghostscript" ,ghostscript)
214	;;("fontconfig" ,fontconfig) ; only needed with lilypond
215	;;("freetype" ,freetype) ; only needed with lilypond
216	("texinfo" ,texinfo)))
217	(home-page "https://www.gnu.org/software/solfege/")
218	(synopsis "Ear training")
219	(description
220	"GNU Solfege is a program for practicing musical ear-training. With it,
221	you can practice your recognition of various musical intervals and chords. It
222	features a statistics overview so you can monitor your progress across several
223	sessions. Solfege is also designed to be extensible so you can easily write
224	your own lessons.")
225	(license license:gpl3+)))
6260d1a8 RW	226
	227	(define-public tuxguitar
	228	(package
	229	(name "tuxguitar")
	230	(version "1.2")
	231	(source (origin
	232	(method url-fetch)
	233	(uri (string-append
	234	"mirror://sourceforge/tuxguitar/TuxGuitar/TuxGuitar-"
	235	version "/tuxguitar-src-" version ".tar.gz"))
	236	(sha256
	237	(base32
	238	"1g1yf2gd06fzdhqb8kb8dmdcmr602s9y24f01kyl4940wimgr944"))))
	239	(build-system gnu-build-system)
	240	(arguments
	241	`(#:make-flags (list (string-append "LDFLAGS=-Wl,-rpath="
	242	(assoc-ref %outputs "out") "/lib")
	243	(string-append "PREFIX="
	244	(assoc-ref %outputs "out"))
	245	(string-append "SWT_PATH="
	246	(assoc-ref %build-inputs "swt")
	247	"/share/java/swt.jar"))
	248	#:tests? #f ;no "check" target
	249	#:parallel-build? #f ;not supported
	250	#:phases
	251	(alist-cons-before
	252	'build 'enter-dir-set-path-and-pass-ldflags
	253	(lambda* (#:key inputs #:allow-other-keys)
	254	(chdir "TuxGuitar")
	255	(substitute* "GNUmakefile"
	256	(("PROPERTIES\\?=")
	257	(string-append "PROPERTIES?= -Dswt.library.path="
	258	(assoc-ref inputs "swt") "/lib"))
	259	(("\\$\\(GCJ\\) -o") "$(GCJ) $(LDFLAGS) -o"))
	260	#t)
	261	(alist-delete 'configure %standard-phases))))
	262	(inputs
	263	`(("swt" ,swt)))
	264	(native-inputs
	265	`(("gcj" ,gcj-4.8)
	266	("pkg-config" ,pkg-config)))
	267	(home-page "http://tuxguitar.com.ar")
	268	(synopsis "Multitrack tablature editor and player")
	269	(description
	270	"TuxGuitar is a guitar tablature editor with player support through midi.
	271	It can display scores and multitrack tabs. TuxGuitar provides various
	272	additional features, including autoscrolling while playing, note duration
	273	management, bend/slide/vibrato/hammer-on/pull-off effects, support for
	274	tuplets, time signature management, tempo management, gp3/gp4/gp5 import and
	275	export.")
	276	(license license:lgpl2.1+)))