Notenbund/lilypond-common-includes
15
0
Fork 0
Code Issues 19 Pull Requests Packages Projects Releases Wiki Activity

padding for stop tags and refactoring

Browse Source
This commit is contained in:
Christoph Wagner
2026-02-22 20:33:18 +01:00
parent 7b166f6fc3
commit b3feb3aa6d
2 changed files with 4 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
private_includes/base/verses_with_chords.ily
View File

@@ -203,23 +203,9 @@
#(define-markup-command (pad-left layout props amount arg)
(number? markup?)
(let* ((m (interpret-markup layout props arg))
(x (ly:stencil-extent m X))
(y (ly:stencil-extent m Y)))
(ly:stencil-translate
(ly:make-stencil (ly:stencil-expr m)
(cons (- (car x) amount) (cdr x))
y)
`(,amount . 0))))
#(define-markup-command (pad-right layout props amount arg)
(number? markup?)
(let* ((m (interpret-markup layout props arg))
(x (ly:stencil-extent m X))
(y (ly:stencil-extent m Y)))
(ly:make-stencil (ly:stencil-expr m)
(cons (car x) (+ (cdr x) amount))
y)))
(interpret-markup layout props (make-pad-x-left-markup amount arg))
`(,amount . 0)))
#(define-markup-command (score-equal-height-with-indents layout props lines)
(markup-list?)
@@ -250,7 +236,7 @@
(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))
(make-pad-x-right-markup -0.1 (make-tied-lyric-markup text))
text))))
Chord_lyrics_spacing_engraver =