improve spacing of chordlyrics

This commit is contained in:
tux 2024-06-30 19:02:12 +02:00
parent bab581042a
commit 09d3bb7fa1
2 changed files with 12 additions and 12 deletions

View File

@ -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 % Akkord mit Bunddiagramm anzeigen
#(define-markup-command (fret-chord layout props fret chord) (string? string?) #(define-markup-command (fret-chord layout props fret chord) (string? string?)
(interpret-markup layout props (interpret-markup layout props

View File

@ -227,9 +227,18 @@
#:properties ((baseline-skip)) #:properties ((baseline-skip))
(stack-stencils Y DOWN baseline-skip (stack-stencils Y DOWN baseline-skip
(map (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)))) (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?) #(define-markup-command (chordlyrics layout props lyrics) (ly:music?)
#:properties ((verse-chords #{#}) #:properties ((verse-chords #{#})
(verse-reference-voice #{#}) (verse-reference-voice #{#})
@ -244,7 +253,7 @@
#{ #{
\markup { \markup {
\override #`(baseline-skip . ,intraverse-vspace) \override #`(baseline-skip . ,intraverse-vspace)
\pad-left #-5 \pad-left #-7
\score-equal-height #verse-line-height \score-lines { \score-equal-height #verse-line-height \score-lines {
\transposable #transposition \transposable #transposition
<< <<
@ -257,7 +266,7 @@
\verselayout \verselayout
\context { \context {
\Staff \Staff
\override LeftEdge.space-alist.first-note = #'(fixed-space . 5.0) \override LeftEdge.space-alist.first-note = #'(fixed-space . 7.0)
} }
\context { \context {
\Lyrics \Lyrics