%% Generated by ../../scripts/lilypond-book.py
%% Options: [linewidth=160\mm,printfilename,indent=0\mm,texidoc]

#(set! toplevel-score-handler ly:parser-print-score)
#(set! toplevel-music-handler (lambda (p m)
			       (ly:parser-print-score
				p (ly:music-scorify m p))))



\paper {
  #(define dump-extents #t)
  linewidth = 160\mm
  indent = 0\mm
}

\layout {
  
}

% ly snippet:
\renameinput "add-text-script.ly"
\version "2.4.0"

\header {
texidoc= "@cindex make-music Fingering
You can add various stuff to notes using @code{make-music}.
In this example, an extra fingering is attached to a note. 

In general, first do a @code{display} of the music you want to
create, then write a function that will structure the music for you.
"
} 

#(define (make-text-script x) 
   (make-music 'TextScriptEvent
               'direction DOWN
               'text (make-simple-markup x)))
     
#(define (add-text-script m x)
   (if (equal? (ly:music-property m 'name) 'EventChord)
       (set! (ly:music-property m 'elements)
             (cons (make-text-script x)
                  (ly:music-property m 'elements)))       
       (let ((es (ly:music-property m 'elements))
	     (e (ly:music-property m 'element)))
	 (map (lambda (y) (add-text-script y x)) es)
	 (if (ly:music? e)
	     (add-text-script e x))))
   m)

\score {
  \applymusic #(lambda (x)  (add-text-script x "6") (display-music x) x )  { c'4-3 }
	\layout{ raggedright = ##t }
}



% end ly snippet