output-svg.scm: better defaults for font-family

scm/font.scm

 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
 ;;;; 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
 ;;;; 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,
@@ skipping 236 matching lines @@
 ;
 ; Leaving out "#:brace", "#:sans", and "#:typewriter" leave them at·
 ; "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 
+(define*-public (set-global-fonts #:key
   (music "emmentaler")
   (brace "emmentaler")
   (roman (if (eq? (ly:get-option 'backend) 'svg)
-             "serif" "LilyPond Serif"))
+             "serif" "LilyPond Serif"))
   (sans (if (eq? (ly:get-option 'backend) 'svg)
-            "sans-serif" "LilyPond Sans Serif"))
+            "sans-serif" "LilyPond Sans Serif"))
   (typewriter (if (eq? (ly:get-option 'backend) 'svg)
-                  "monospace" "LilyPond Monospace"))
+                  "monospace" "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)
     (add-pango-fonts n 'roman roman factor)
     (add-pango-fonts n 'sans sans factor)
     (add-pango-fonts n 'typewriter typewriter factor)
     n))
-    
+
 (define-public (make-pango-font-tree roman-str sans-str typewrite-str factor)
   (let ((n (make-font-tree-node 'font-encoding 'fetaMusic)))
     (add-music-fonts n 'feta "emmentaler" "emmentaler" feta-design-size-mapping factor)
     (add-pango-fonts n 'roman roman-str factor)
     (add-pango-fonts n 'sans sans-str factor)
     (add-pango-fonts n 'typewriter typewrite-str factor)
     n))
 
 (define-public (make-default-fonts-tree factor)
   (make-pango-font-tree
    (if (eq? (ly:get-option 'backend) 'svg) "serif" "LilyPond Serif")
    (if (eq? (ly:get-option 'backend) 'svg) "sans-serif" "LilyPond Sans Serif")
    (if (eq? (ly:get-option 'backend) 'svg) "monospace" "LilyPond Monospace")
    factor))
 
 (define-public all-text-font-encodings
   '(latin1))
 
 (define-public all-music-font-encodings
   '(fetaBraces
     fetaMusic
     fetaText))
 
 (define-public (magstep s)
   (exp (* (/ s 6) (log 2))))
 
 (define-public (magnification->font-size m)
   (* 6 (/ (log m) (log 2))))