;;;; This file is part of LilyPond, the GNU music typesetter.
;;;;
-;;;; Copyright (C) 2004--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; Copyright (C) 2004--2015 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
; "emmentaler", "sans-serif", and "monospace", respectively. All fonts are
; still accesible through the usual scheme symbols: 'feta, 'roman, 'sans, and
; 'typewriter.
+;
+; Note that 'LilyPond Serif', 'LilyPond Sans Serif' and 'Lilypond Monospace'
+; are aliases that are defined in mf/00-lilypond-fonts.conf.in (source file)
+; or fonts/00-lilypond-fonts.conf (installed file).
+
(define*-public (set-global-fonts #:key
(music "emmentaler")
(brace "emmentaler")
- (roman "Century Schoolbook L")
- (sans "sans-serif")
- (typewriter "monospace")
+ (roman "LilyPond Serif")
+ (sans "LilyPond Sans Serif")
+ (typewriter "LilyPond Monospace")
(factor 1))
(let ((n (make-font-tree-node 'font-encoding 'fetaMusic)))
(add-music-fonts n 'feta music brace feta-design-size-mapping factor)
(define-public (make-century-schoolbook-tree factor)
(make-pango-font-tree
- "Century Schoolbook L"
- "sans-serif"
- "monospace"
+ "LilyPond Serif"
+ "LilyPond Sans Serif"
+ "LilyPond Monospace"
factor))
(define-public all-text-font-encodings