lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: v2.15.24: void-, scheme- or music-function in toc-section?


From: David Kastrup
Subject: Re: v2.15.24: void-, scheme- or music-function in toc-section?
Date: Mon, 16 Jan 2012 10:45:33 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.92 (gnu/linux)

Thomas Morley <address@hidden> 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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]