;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 2004--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
(define-module (scm framework-ps))
(scm clip-region)
(lily))
-(define (format dest . rest)
- (if (string? dest)
- (apply simple-format (cons #f (cons dest rest)))
- (apply simple-format (cons dest rest))))
+(define format ergonomic-simple-format)
(define framework-ps-module (current-module))
(define (write-preamble paper load-fonts? port)
-
- (define (load-font-via-GS font-name-filename)
+ (define (internal-font? file-name)
+ (or (string-startswith file-name "Emmentaler")
+ (string-startswith file-name "emmentaler")
+ (string-startswith file-name "aybabtu")
+ (string-startswith file-name "Aybabtu")))
+ (define (load-font-via-GS font-name-filename)
(define (ps-load-file file-name)
(if (string? file-name)
(if (string-contains file-name (ly:get-option 'datadir))
(begin
(set! file-name (ly:string-substitute (ly:get-option 'datadir) "" file-name))
(format "lilypond-datadir (~a) concatstrings (r) file .loadfont" file-name))
+
(format "(~a) (r) file .loadfont\n" file-name))
(format "% cannot find font file: ~a\n" file-name)))
(if (mac-font? bare-file-name)
(handle-mac-font name bare-file-name)
(cond
- ((or (string-startswith file-name "Emmentaler")
- (string-startswith file-name "emmentaler")
- (string-startswith file-name "aybabtu")
- (string-startswith file-name "Aybabtu"))
+ ((internal-font? file-name)
(ps-load-file (ly:find-file
(format "~a.otf" file-name))))
((string? bare-file-name)
(define (load-fonts paper)
(let* ((fonts (ly:paper-fonts paper))
+
+ ;; todo - doc format of list.
(all-font-names
(map
(lambda (font)
(sort (apply append all-font-names)
(lambda (x y) (string<? (cadr x) (cadr y))))))
- (font-loader (if (ly:get-option 'gs-load-fonts)
- load-font-via-GS
- load-font))
+ ;; slightly spaghetti-ish: deciding what to load where
+ ;; is smeared out.
+ (font-loader (lambda (name)
+ (cond
+ ((ly:get-option 'gs-load-fonts)
+ (load-font-via-GS name))
+ ((ly:get-option 'gs-load-lily-fonts)
+ (if (or
+ (string-contains (caddr name) (ly:get-option 'datadir))
+ (internal-font? (caddr name)))
+
+ (load-font-via-GS name)
+ (load-font name)))
+ (else (load-font name)))))
(pfas (map font-loader font-names)))
pfas))
(ly:error (_ "\nThe PostScript backend does not support the system-by-system
output. For that, use the EPS backend instead,
- lilypond -b eps FILE
+ lilypond -dbackend=eps FILE
If have cut & pasted a lilypond fragment from a webpage, be sure
to only remove anything before