This is a fishy stopgap measure to let \accidentalStyle able to
distinguish #'Voice "default" from "default" alone while we generate
symbols from from #'Voice as well as "default". If the first letter
is uppercase, the symbol is considered to be a context specification.
---
ly/property-init.ly | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/ly/property-init.ly b/ly/property-init.ly
index e36c3c0..caf6ad0 100644
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -13,10 +13,16 @@ defaultNoteHeads =
(_i "Revert to the default note head style.")
(revert-head-style '(NoteHead TabNoteHead)))
+#(define (context-name? c)
+ "A stopgap measure until dotted lists become available as arguments.
+Distinguish context names from accidental styles by virtue of their
+first letter being uppercase."
+ (and (symbol? c)
+ (char-upper-case? (string-ref (symbol->string c) 0))))
accidentalStyle =
#(define-music-function
- (parser location context style) ((symbol?) string?)
+ (parser location context style) ((context-name?) string?)
(_i "Set accidental style to @var{style}, a string. If an optional
@var{context} symbol is given, e.g. @code{#'Staff} or @code{#'Voice},
the settings are applied to that context. Otherwise, the context
--
1.7.9.5
_______________________________________________
lilypond-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-devel
