"theme for Pirates of the Caribbean" leadsheet Lilypond

\version "2.16.0"
\include "english.ly"
#(set-global-staff-size 22)
\pointAndClickOff

\header {
  title = "HE'S A PIRATE"
  subtitle = "(Musical theme for Pirates of the Caribbean)"
  subsubtitle = " "
  composer = "Klaus Badelt, Hans Zimmer"
  meter = \markup {\note #"4." #1  ~
                   "100" }
  copyright =
  \markup { \override #'(font-size . -4)
            "ceci n'est pas un Realbook"}
  tagline = ##f
}

\paper {
  #(set-paper-size "a4")
  top-margin = 10
  markup-system-spacing #'basic-distance = #24
  system-system-spacing #'basic-distance = #17
}



#(define (lower-extension pitch chbass)
   "Return markup lowered markup for pitch note name."
   (markup #:lower 1.7 #:fontsize 0 #:halign 0.2
     (note-name->markup pitch chbass )))

global = {
  \key d \minor
  \time 12/8
  %\partial 4
  \override Staff.Clef #'break-visibility = #all-invisible
  \override Staff.KeySignature #'break-visibility = #all-invisible
}

chordNames = \chordmode {
  \global
  \set slashChordSeparator = \markup\fontsize#1 \lower#0.7 \rotate#-15 {"/" }
  d1.:m s s s
  d2.:m bf a:m d:m
  bf f c d:m
  d:m bf g:m d:m
  bf d: m a s
  a d:m

}

melody = \relative c'' {
  \global
  \tiny
  \once \override Score.TextScript #'extra-offset = #'(0 . 2)
  d,4 ^\markup   {  \tiny \rounded-box "Intro" }
  d8 d4 d8 d4 d8 d d d
  d4 d8 d4 d8 d4 d8 d d d
  d4 d8 d4 d8 d4 d8 d d d
  d4 d8 d4 d8 d4.   \normalsize \bar"" \break
  r8 a c \bar"|:"
  \once \override Score.RehearsalMark #'extra-offset = #'(2 . 2)
  \mark \markup  {  \tiny \rounded-box "Theme" }

  d4 d d8 e f4 f f8 g
  e4 e d8 c c d4. a8 c
  d4 d d8 e f4 f f8 g \break
  e4 e d8 c d2 a8 c  \bar"||"
  d4 d d8 f g4 g g8 a
  bf4 bf a8 g a4 d,4 d8 e
  f4 f f8 g a4 d, d8 f
  \set Score.repeatCommands = #'((volta "1"))
  e4 e f8 d e4. r8 a,8 c \bar":|"
  \set Score.repeatCommands = #'((volta #f))
  \set Score.repeatCommands = #'((volta "2"))
  e4 e d8 c d2. \bar".|"
  \set Score.repeatCommands = #'((volta #f))
  \break
  \bar":|"
}

emptyStaff = \relative c' {
  \global
  \once \override TextScript #'extra-offset = #'(-1 . -3.5 )
  s1.^\markup \larger\bold {"(        )"}
  s1*16 s1 s1
}

\score {
  \new StaffGroup  \with {
    %{ distance entre les portées %}
    \override StaffGrouper #'staff-staff-spacing =
    #'((basic-distance . 0 )
       (minimum-distance . 14)
       (padding . 0)
       (stretchability . 0))
  }

  <<
    \set StaffGroup.systemStartDelimiter = #'SystemStartBar

    \new Staff = "upper" \with {
      \override NoteHead #'font-size = #0.5
    }  \melody

    \new Staff \with {
      \override StaffSymbol #'thickness = #(magstep -20 )
      \remove "Time_signature_engraver"
      \remove "Clef_engraver"
      \remove "Key_engraver"
    } \emptyStaff

    \new ChordNames \with {
      \override VerticalAxisGroup #'staff-affinity = #UP
      \override ChordName #'extra-offset = #'(0 . 3.7)
      chordNoteNamer = #lower-extension
      \override ChordName #'font-name = #'"Purisa Bold"
      \override ChordName #'font-size = #2
    } \chordNames
  >>

  \layout { indent = 0
            %ragged-last = ##t
            \context {
              \Score
              \override SystemStartBar #'collapse-height = #1
              \remove "Bar_number_engraver"
            }
  }
  \midi {
    \tempo 4 = 100
  }
}