]> git.donarmstrong.com Git - lilypond.git/commitdiff
Fix gonville-brace loading issues
authorPatrick McCarty <pnorcks@gmail.com>
Sun, 1 Nov 2009 20:41:55 +0000 (12:41 -0800)
committerPatrick McCarty <pnorcks@gmail.com>
Sun, 1 Nov 2009 20:43:35 +0000 (12:43 -0800)
scm/font.scm

index 7c5b865a877d2e9a55dac601126d585cc1862260..30159bd7c1c1f89ca9e8e6c96965e6dbeb082983 100644 (file)
      (fetaBraces ,(ly:pt 20.0)
                 #(,(delay (ly:system-font-load
                            ;;; TODO: rename aybabtu to emmentaler-brace
-                           (string-replace "emmentaler-brace" "aybabtu" 0
-                                           (string-length
-                                             (string-append name "-brace")))
+                           (if (string=? name "emmentaler")
+                               "aybabtu"
+                               (string-append name "-brace"))
                            )))))))
 
 (define-public (add-pango-fonts node lily-family family factor)