-;;;; lily.scm -- top-level Scheme stuff
+;;;; This file is part of LilyPond, the GNU music typesetter.
;;;;
-;;;; source file of the GNU LilyPond music typesetter
-;;;;
-;;;; (c) 1998--2009 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; Copyright (C) 1998--2010 Jan Nieuwenhuizen <janneke@gnu.org>
;;;; Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;;
+;;;; LilyPond 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.
+;;;;
+;;;; LilyPond 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 LilyPond. If not, see <http://www.gnu.org/licenses/>.
;; Internationalisation: (_i "to be translated") gets an entry in the
;; POT file; (gettext ...) must be invoked explicitly to do the actual
"midi")
"Set the default file extension for MIDI output
file to given string.")
+ (music-strings-to-paths #f
+"Convert text strings to paths when glyphs belong
+to a music font.")
(old-relative #f
"Make \\relative mode for simultaneous music work
similar to chord syntax.")
(pixmap-format "png16m"
"Set GhostScript's output format for pixel images.")
(preview #f
-"Create PNG and EPS preview images also.")
+"Create preview images also.")
(print-pages #t
"Print pages in the normal way.")
(protected-scheme-parsing #t
;(set-debug-cell-accesses! 1000)
(use-modules (ice-9 regex)
- (ice-9 safe)
- (ice-9 format)
- (ice-9 rdelim)
- (ice-9 optargs)
- (oop goops)
- (srfi srfi-1)
- (srfi srfi-13)
- (srfi srfi-14)
- (scm clip-region)
- (scm memory-trace)
- (scm coverage))
+ (ice-9 safe)
+ (ice-9 format)
+ (ice-9 rdelim)
+ (ice-9 optargs)
+ (oop goops)
+ (srfi srfi-1)
+ (srfi srfi-13)
+ (srfi srfi-14)
+ (scm clip-region)
+ (scm memory-trace)
+ (scm coverage))
(define-public fancy-format
format)
(define-public parser #f)
+(define music-string-to-path-backends
+ '(svg))
+
+(if (memq (ly:get-option 'backend) music-string-to-path-backends)
+ (ly:set-option 'music-strings-to-paths #t))
-;; gettext wrapper for guile < 1.7.2
-(if (defined? 'gettext)
- (define-public _ gettext)
- (define-public _ ly:gettext))
+(define-public _ gettext)
(define-public (ly:load x)
(let* ((file-name (%search-load-path x)))
(,input-port? . "input port")
(,integer? . "integer")
(,list? . "list")
+ (,list-or-symbol? . "list or symbol")
(,ly:context? . "context")
(,ly:dimension? . "dimension, in staff space")
(,ly:dir? . "direction")
(,output-port? . "output port")
(,pair? . "pair")
(,procedure? . "procedure")
+ (,real? . "real number")
(,rhythmic-location? . "rhythmic location")
(,scheme? . "any type")
(,string? . "string")
+ (,string-or-pair? . "string or pair")
(,symbol? . "symbol")
(,vector? . "vector")))