Re: Extra padding between ChordNames and custom headers

[Robin Bannister]

Aaron Hill wrote:
> \score { \header { piece = "Curabitur condimentum"
>                      extra = \markup \vspace #0.5 } \song }


And the put-mm [1] version of this would be

%%%%
\version "2.22.0"

#(define-markup-command (mm-feed layout props amount) (number?)
 (let ((o-s (ly:output-def-lookup layout 'output-scale)))
   (ly:make-stencil "" '(0 . 0) (cons 0 (abs (/ amount o-s))))))

#(define-markup-command (put-mm layout props dir amount arg)
 (ly:dir? number? markup?) (interpret-markup layout props
   (markup #:put-adjacent Y dir arg #:mm-feed amount)))


song =
<< \new ChordNames \chordmode { c2 d:7 | g1 }
    \new Voice \fixed c' { g2 a4 fis | g1 } >>

\paper { indent = 0 line-width = 2\in ragged-right = ##f }

\score { \header { piece = "Duis blandit lorem" } \song }
\score { \header { piece =  \markup \put-mm #DOWN #4
                     "Curabitur condimentum"  } \song }
\score { \header { piece = "Integer sit amet" } \song }
%%%%

[1]
https://lists.gnu.org/archive/html/lilypond-user/2010-04/msg00035.html


Cheers,
Robin