Thomas Morley <[email protected]> writes:
> % full code -> attached file
>
> indexItems =
> #(define-music-function (parser location text) (markup?)
> (let* ((text-rev (if (string? text)
> text
> (markup->string text)))
>
> (args (string-split text-rev #\#))
> (initial (string-upcase (substring (car args) 0 1))))
> #{
> \abcTocItem $text-rev
> \indexItem $text-rev
> \indexSection $initial
> \customTocItem $text-rev
> #}))
Looks to me like you are missing the actual music. Try doing something
like
indexItems =
#(define-music-function (parser location text music) (markup? ly:music?)
(let* ((text-rev (if (string? text)
text
(markup->string text)))
(args (string-split text-rev #\#))
(initial (string-upcase (substring (car args) 0 1))))
#{
\abcTocItem $text-rev
\indexItem $text-rev
\indexSection $initial
\customTocItem $text-rev
$music
#}))
--
David Kastrup
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
