(define (music-property-description symbol type? description)
(if (not (equal? #f (object-property symbol 'music-doc)))
(begin
- (ly:warn (string-append "Redefining " (symbol->string symbol) "\n"))
+ (ly:warn "Redefining ~S" symbol)
(exit 2)
))
(set-object-property! symbol 'music-type? type?)
(set-object-property! symbol 'music-doc description)
- symbol )
-
+ symbol)
(define-public all-music-properties
(map
"This pitch was octavated by how many octaves?
For chord inversions, this is negative.")
(origin ,ly:input-location? "where was this piece of music defined?")
- (penalty ,number? "Penalty for break hint.")
+ (page-penalty ,number? "Penalty for page break hint.")
+ (penalty ,number? "Penalty for line break hint.")
(pitch ,ly:pitch? "the pitch of this note")
(pitch-alist ,list? "list of pitches jointly forming the scale of a key signature")
(pop-first ,boolean? "Do a revert before we try to do a override on some grob property.")
"Change to what kind of state? Options are
solo1, solo2 and unisono")
- (figure ,string? "a `figure' (which may be
+ (figure ,markup? "a `figure' (which may be
a string) for figured bass")
(alteration ,number? "alteration for figured bass")
(bracket-start ,boolean? "start a bracket