Doc-fr: adding essay

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

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 5464d93767bc2935f703251a84397b7b78b4a9fe..262d912b9c4f7fadd0f6f958850245d8250851ef 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -698,19 +698,11 @@ applied to function @var{getter}.")
 
 ;;; FONT may be font smob, or pango font string...
 (define-public (font-name-style font)
-  ;; FIXME: ughr, barf: feta-alphabet is actually emmentaler
-  (if (and (string? font)
-          (string-prefix? "feta-alphabet" font))
-      (string-append "emmentaler"
-                    "-"
-                    (substring font
-                               (string-length "feta-alphabet")
-                               (string-length font)))
+  (if (string? font)
+      (string-downcase font)
       (let* ((font-name (ly:font-name font))
             (full-name (if font-name font-name (ly:font-file-name font))))
-       (if (string-prefix? "Emmentaler-Brace" full-name)
-           "emmentaler-brace"
-           (string-downcase full-name)))))
+         (string-downcase full-name))))
 
 (define-public (modified-font-metric-font-scaling font)
   (let* ((designsize (ly:font-design-size font))