$Id$
%}
-\version "2.10.0"
+\version "2.16.0"
%
% Declare memorable shortcuts for special unicode characters
% Given some music that represents lyrics, add a prefix to the first
% lyric event.
%
-% TODO: Robustify this function. For example, this function works
-% correctly for "\versus { some lyrics }", but it barfs with a wrong type
-% argument error for e.g. "\versus some lyrics".
-%
#(define (add-prefix-to-lyrics prefix music)
- (make-music
- 'SequentialMusic
- 'elements (append
- (cons
- (let* ((elems (car (ly:music-property music 'elements)))
- (props (ly:music-mutable-properties elems))
- (events (filter (lambda (x)
- (equal? (car x) 'elements))
- props))
- (first-evt (cadar events))
- (first-syllable (ly:prob-property first-evt 'text))
- (first-duration (ly:prob-property first-evt 'duration)))
- (make-music
- 'LyricEvent
- 'duration first-duration
- 'text (string-append prefix first-syllable)))
- (cdr (ly:music-property music 'elements))))))
+ (let ((found? #f))
+ (map-some-music
+ (lambda (m)
+ (if found? m
+ (and (music-is-of-type? m 'lyric-event)
+ (begin
+ (set! (ly:music-property m 'text)
+ (string-append prefix (ly:music-property m 'text)))
+ (set! found? #t)
+ m))))
+ music)))
% Add unicode 2123 (versicle) as prefix to lyrics.
versus =
\once \override BreathingSign #'font-size = #-2
% Workaround: add padding. Correct fix would be spacing engine handle this.
- \once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
+ \once \override BreathingSign #'minimum-X-extent = #'(-1.0 . 0.0)
+ \once \override BreathingSign #'minimum-Y-extent = #'(-2.5 . 2.5)
\breathe
}
\once \override BreathingSign #'font-size = #-2
% Workaround: add padding. Correct fix would be spacing engine handle this.
- \once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
+ \once \override BreathingSign #'minimum-X-extent = #'(-1.0 . 0.0)
+ \once \override BreathingSign #'minimum-Y-extent = #'(-2.5 . 2.5)
\breathe
}
\once \override BreathingSign #'stencil = #ly:breathing-sign::divisio-minima
% Workaround: add padding. Correct fix would be spacing engine handle this.
- \once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
+ \once \override BreathingSign #'minimum-X-extent = #'(-1.0 . 0.0)
+ \once \override BreathingSign #'minimum-Y-extent = #'(-2.5 . 2.5)
\breathe
}
\once \override BreathingSign #'Y-offset = #0
% Workaround: add padding. Correct fix would be spacing engine handle this.
- \once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
+ \once \override BreathingSign #'minimum-X-extent = #'(-1.0 . 0.0)
+ \once \override BreathingSign #'minimum-Y-extent = #'(-2.5 . 2.5)
\breathe
}
\once \override BreathingSign #'Y-offset = #0
% Workaround: add padding. Correct fix would be spacing engine handle this.
- \once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
+ \once \override BreathingSign #'minimum-X-extent = #'(-1.0 . 0.0)
+ \once \override BreathingSign #'minimum-Y-extent = #'(-2.5 . 2.5)
\breathe
}
\once \override BreathingSign #'Y-offset = #0
% Workaround: add padding. Correct fix would be spacing engine handle this.
- \once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
+ \once \override BreathingSign #'minimum-X-extent = #'(-1.0 . 0.0)
+ \once \override BreathingSign #'minimum-Y-extent = #'(-2.5 . 2.5)
\breathe
}
ictus = #(make-articulation "ictus")
semicirculus = #(make-articulation "semicirculus")
circulus = #(make-articulation "circulus")
-episemInitium = \startTextSpan
-episemFinis = \stopTextSpan
%
% \augmentum increases the dot-count value of all note heads to which
%
\layout {
indent = 0.0
- packed = ##t
- %%% TODO: should raggedright be the default?
+ %%% TODO: should ragged-right be the default?
%ragged-right = ##t
ragged-last = ##t
- %%% FIXME: line-thickness should be set here to a slightly
- %%% thicker value as the default; but we can not set it here,
- %%% since neither \staff-space nor #staff-space is yet defined
- %%% when lily comes across the following line.
- %line-thickness = \staff-space / 7.0
+ line-thickness = #(/ (ly:output-def-lookup $defaultpaper 'staff-space) 7.0)
\context {
\VaticanaStaff
\override StaffSymbol #'transparent = ##t
\remove "Time_signature_engraver"
\remove "Bar_engraver"
- \override VerticalAxisGroup #'minimum-Y-extent = ##f
+ \override VerticalAxisGroup #'staff-staff-spacing = #'()
}
\context {
\Voice
- \remove Ligature_bracket_engraver
- \consists Vaticana_ligature_engraver
+ \remove "Ligature_bracket_engraver"
+ \consists "Vaticana_ligature_engraver"
\override NoteHead #'style = #'vaticana.punctum
\override Stem #'transparent = ##t
+ \override Flag #'transparent = ##t
}
}