\version "2.16.0"
\header {
texidoc = "The layout of the major 7 can be tuned with
-@code{majorSevenSymbol}."
+@code{majorSevenSymbol}. It does not break if @code{majorSevenSymbol} is unset.
+One should see: triangle - j7 - triangle - #7."
}
\chords {
c:7+
\set majorSevenSymbol = \markup { "j7" }
c:7+
+ \unset majorSevenSymbol
+ c:7+
+ \unset Score.majorSevenSymbol
+ c:7+
}
(let* ((num-markup (make-simple-markup
(number->string (pitch-step pitch))))
(args (list num-markup))
- (total (if (= (ly:pitch-alteration pitch) 0)
- (if (= (pitch-step pitch) 7)
- (list (ly:context-property context 'majorSevenSymbol))
- args)
+ (major-seven-symbol (ly:context-property context 'majorSevenSymbol))
+ (total
+ (if (and (= (ly:pitch-alteration pitch) 0)
+ (= (pitch-step pitch) 7)
+ (markup? major-seven-symbol))
+ (list major-seven-symbol)
(cons (accidental->markup (step-alteration pitch)) args))))
(make-line-markup total)))