* scm/output-gnome.scm (text): Hello world, again.

[lilypond.git] / scm / lily-library.scm

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 5dafe99744e7eeebd0d3ebb1c2e717a7391f2083..fa5e93d5c422581a3a7044118005f62d34b8945c 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -344,3 +344,11 @@ possibly turned off."
 
 (define-public (char->unicode-index font char)
   (ly:font-index-to-charcode font (char->integer char)))
+
+(define-public (otf-name-mangling font family)
+  ;; Hmm, family is bigcheese20/26?
+  (if (string=? (substring family 0 (min (string-length family) 9))
+               "bigcheese")
+      "LilyPond"
+      family))
+