\version "2.13.49"

#(define notenr 0)
#(define (add-endnote-item! text) #f)
#(define (endnote-items) #f)

#(let ((endnote-item-list (list)))
	(set! add-endnote-item!
		(lambda (text)
			(set! endnote-item-list
			    (cons (list notenr text) endnote-item-list))))
	(set! endnote-items (lambda () (reverse endnote-item-list))))

#(define-markup-list-command (listofendnotes layout props)()
	"markup endnotes items"
	(space-lines 5
		(interpret-markup-list layout props
			(cons (ly:output-def-lookup layout 'endNotesTitleMarkup)
				(map (lambda (fn)
					(markup #:concat ((number->string (car fn)) ")") #:override '(baseline-skip . 2.5) #:justify-string (cadr fn)))
				(endnote-items))))))

musicEndNote = #(define-music-function (parser location text)(string?)
	(set! notenr (+ notenr 1))
	(begin (add-endnote-item! text))
	(make-music 'TextScriptEvent 'text (markup #:tiny #:concat ((number->string notenr) ")"))))

#(define-markup-command (textEndNote layout props textbefore text)(markup? string?)
	(set! notenr (+ notenr 1))
	(begin (add-endnote-item! text))
	(interpret-markup layout props (markup #:concat (textbefore #:raise 1 #:teeny (number->string notenr)))))


\paper {
	endNotesTitleMarkup = \markup \huge \column {
		\fill-line { \null "Notes" \null }
		\hspace #1
		}
}


%%%%%%%%%%%%%%%%%%%%%%


\bookpart {
	\score {
		\relative c' {
			\musicEndNote #"1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music 1music"
			\repeat unfold 24 { c d e f }
			{ g(^\musicEndNote #"2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music 2music" f e d) } 
			\repeat unfold 23 { c d e f }
			\bar "|."
		}
	}
	\markuplines \justified-lines { \textEndNote "azdfv" #"3text" \textEndNote "ezrtgzsfd" #"4text" }
	\score {
		\relative c' {
			\repeat unfold 10 { c d e f }
			\musicEndNote #"6music"
			\repeat unfold 10 { c d e f }
			\bar "|."
		}
	}
}

\bookpart {
	\markuplines \justified-lines { \textEndNote "azdfv" #"8text" \textEndNote "ezrtgzsfd" #"9text" }
	\score {
		\relative c' {
		\repeat unfold 10 { c d e f }
		\musicEndNote #"7music"
		\repeat unfold 10 { c d e f }
		\bar "|."
		}
	}
}

\markuplines \listofendnotes