improve spacing of chordlyrics
This commit is contained in:
parent
bab581042a
commit
09d3bb7fa1
|
@ -98,15 +98,6 @@ generalLayout = \layout {
|
|||
}
|
||||
}
|
||||
|
||||
#(define-public (custom-lyric-text::print grob)
|
||||
"Allow interpretation of tildes as lyric tieing marks."
|
||||
;; See also similar code in Lyric_performer.
|
||||
(let ((text (ly:grob-property grob 'text)))
|
||||
|
||||
(grob-interpret-markup grob (if (string? text)
|
||||
(make-pad-right-markup -0.1 (make-tied-lyric-markup text))
|
||||
text))))
|
||||
|
||||
% Akkord mit Bunddiagramm anzeigen
|
||||
#(define-markup-command (fret-chord layout props fret chord) (string? string?)
|
||||
(interpret-markup layout props
|
||||
|
|
|
@ -227,9 +227,18 @@
|
|||
#:properties ((baseline-skip))
|
||||
(stack-stencils Y DOWN baseline-skip
|
||||
(map
|
||||
(lambda (line) (ly:make-stencil (ly:stencil-expr line) (ly:stencil-extent line X) `(0 . ,reference-height)))
|
||||
(lambda (line) (ly:make-stencil (ly:stencil-expr line) (ly:stencil-extent line X) `(,(/ reference-height -2.0) . ,(/ reference-height 2.0))))
|
||||
(interpret-markup-list layout props lines))))
|
||||
|
||||
#(define-public (custom-lyric-text::print grob)
|
||||
"Allow interpretation of tildes as lyric tieing marks."
|
||||
;; See also similar code in Lyric_performer.
|
||||
(let ((text (ly:grob-property grob 'text)))
|
||||
|
||||
(grob-interpret-markup grob (if (string? text)
|
||||
(make-pad-right-markup -0.1 (make-tied-lyric-markup text))
|
||||
text))))
|
||||
|
||||
#(define-markup-command (chordlyrics layout props lyrics) (ly:music?)
|
||||
#:properties ((verse-chords #{#})
|
||||
(verse-reference-voice #{#})
|
||||
|
@ -244,7 +253,7 @@
|
|||
#{
|
||||
\markup {
|
||||
\override #`(baseline-skip . ,intraverse-vspace)
|
||||
\pad-left #-5
|
||||
\pad-left #-7
|
||||
\score-equal-height #verse-line-height \score-lines {
|
||||
\transposable #transposition
|
||||
<<
|
||||
|
@ -257,7 +266,7 @@
|
|||
\verselayout
|
||||
\context {
|
||||
\Staff
|
||||
\override LeftEdge.space-alist.first-note = #'(fixed-space . 5.0)
|
||||
\override LeftEdge.space-alist.first-note = #'(fixed-space . 7.0)
|
||||
}
|
||||
\context {
|
||||
\Lyrics
|
||||
|
|
Loading…
Reference in New Issue
Block a user