|
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
[Prev in Thread] | Current Thread | [Next in Thread] |