Fix #290.

Display available clefs on encountering unknown argument.

diff --git a/input/regression/clef-warn.ly b/input/regression/clef-warn.ly
new file mode 100644 (file)
index 0000000..8134daa
--- /dev/null
+++ b/input/regression/clef-warn.ly
@@ -0,0 +1,10 @@
+\header {
+  texidoc = "Unknown clef name warning displays available clefs"
+  }
+
+
+\version "2.11.17"
+{
+  \clef "foo"
+  c4
+  }

diff --git a/scm/parser-clef.scm b/scm/parser-clef.scm
index 0095d29e81c08a652a0dbccadf225c6ae8976ccb..a18ab2cdac4fbd4952d84466f3703108e7b8886f 100644 (file)
--- a/scm/parser-clef.scm
+++ b/scm/parser-clef.scm
@@ -33,6 +33,7 @@
     ("vaticana-do2" . ("clefs.vaticana.do" 1 0))
     ("vaticana-do3" . ("clefs.vaticana.do" 3 0))
     ("vaticana-fa1" . ("clefs.vaticana.fa" -1 0))
+
     ("vaticana-fa2" . ("clefs.vaticana.fa" 1 0))
     ("medicaea-do1" . ("clefs.medicaea.do" -1 0))
     ("medicaea-do2" . ("clefs.medicaea.do" 1 0))
@@ -124,6 +125,8 @@
          (context-spec-music seq 'Staff))
        (begin
          (ly:warning (_ "unknown clef type `~a'") clef-name)
-         (ly:warning (_ "see scm/clef.scm for supported clefs"))
+         (ly:warning (_ "supported clefs: ~a")
+                     (string-join
+                      (sort (map car supported-clefs) string<?)))
          (make-music 'Music)))))