Hi Thomas,
the problem with summarizing this functionality is, that you get
'SequentialMusic or 'SimultaneousMusic in your first approach and
lilypond creates a score context for that.
The second approach fails, because only the last (make-music 'EventChord
... 'LabelEvent ...) is returned as you already saw.
So You might change your add-<something>item! functions to take a
predefined label and then return one 'EventChord-'LabelEvent with that
label:
--snip--
% add optional label parm
#(define-public (add-index-item! markup-symbol text . lab) #f)
#(define-public (index-items) #f)
#(let ((index-item-list (list)))
(set! add-index-item!
(lambda (markup-symbol text . lab)
;; use optional label or generate it if not
given
(let ((label (if (> (length lab) 0) (car lab) (gensym
"index"))))
(set! index-item-list
;; We insert index items sorted from the
beginning on and do
;; not sort them later - this saves pretty much
computing time
(delete-eq-cdr (insert-alphabetical-sorted! (list
label markup-symbol text)
index-item-list)))
(make-music 'EventChord
'page-marker #t
'page-label label
'elements (list (make-music 'LabelEvent
'page-label label))))))
(set! index-items (lambda ()
index-item-list)))
--snip--
than you can combine the add-functions and return that one label:
--snip--
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)))
(label (gensym "index-item")))
;; add label to all index-lists with predefined label
(add-abctoc-item! 'abcTocItemMarkup text-rev label)
(add-index-item! 'indexItemMarkup text-rev label)
(add-index-item! 'indexSectionMarkup initial label)
(add-customtoc-item! 'customTocItemMarkup text-rev label)
;; return labeled EventChord
(make-music
'EventChord
'elements (list (make-music 'LabelEvent 'page-label label))
'page-label label
'page-marker #t)
))
--snip--
I attached a file with these little changes.
HTH
Cheers, Jan-Peter
Am 16.01.2012 00:17, schrieb Thomas Morley:
Hi,
I've tried to retrieve different table-of-content-sections (a normal
one, an alphabetical sorted and an alphabetical sorted index, showing
initial letters) all with three columns: piece, composer and page,
defining several new "toc-items": abcTocItem, indexItem, indexSection
and customTocItem etc.
So far it works fine.
But it's a lot of typing in the file. And because nearly all Items are
using equal arguments I tried to create a summarizing function:
\version "2.15.24"
% 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
#}))
But now the page-numbers aren't printed and the link doesn't work!
And a log-warning: no music found in score
Also, I tried:
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))))
(begin
(add-abctoc-item! 'abcTocItemMarkup text-rev)
(add-index-item! 'indexItemMarkup text-rev)
(add-index-item! 'indexSectionMarkup initial)
(add-customtoc-item! 'customTocItemMarkup text-rev)
)))
No warning, but only the last setting (add-customtoc-item!
'customTocItemMarkup text-rev) works.
define-void-function or define-scheme-function seems not to work, too.
Any hint?
Cheers,
Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
\version "2.14.2"
\pointAndClickOff
#(use-modules (srfi srfi-1))
#(define (delete-eq-cdr lst)
"In einer Liste von Listen werden Einträge gelöscht,
falls der cdr des (aufeinanderfolgenden) Listenelements identisch ist.
eg. '((a 1 2 3)
(b 1 2 3)
(c 1 2 3)
(d 2 3 4))
-> '((c 1 2 3)
(d 2 3 4))
"
(fold-right (lambda (elem ret)
(if (equal? (cdr elem) (cdr (first ret)))
ret
(cons elem ret)))
(list (last lst))
lst))
#(define-markup-command (columns layout props text) (markup?)
(let* ((text-rev (if (string? text)
text
(markup->string text)))
(arg (if (= (string-length text-rev) 1)
(string-append text-rev "#")
text-rev))
(args (string-split arg #\#))
;; currently not used!
(line-width (/ (chain-assoc-get 'line-width props
(ly:output-def-lookup layout 'line-width))
(max (length args) 1))))
(interpret-markup layout props
(make-line-markup (map (lambda (line)
(markup
;#:box
#:pad-to-box `(0 . 31) '(0 . 2)
#:override `(50 . 50)
; #:fill-with-pattern 1 RIGHT "."
line))
args)))))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% CUSTOMTOC
#(define-public (add-customtoc-item! markup-symbol text . lab)
#f)
#(define-public (customtoc-items)
#f)
#(let ((customtoc-item-list (list)))
(set! add-customtoc-item!
(lambda (markup-symbol text . lab)
(let ((label (if (> (length lab) 0) (car lab) (gensym "customtoc"))))
(set! customtoc-item-list
(cons (list label markup-symbol text)
customtoc-item-list))
(make-music 'EventChord
'page-marker #t
'page-label label
'elements (list (make-music 'LabelEvent
'page-label label))))))
(set! customtoc-items (lambda ()
(reverse customtoc-item-list))))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% ABCTOC
#(define-public (add-abctoc-item! markup-symbol text . lab) #f)
#(define-public (abctoc-items) #f)
#(let ((abctoc-item-list (list)))
(set! add-abctoc-item!
(lambda (markup-symbol text . lab)
(let ((label (if (> (length lab) 0) (car lab) (gensym "abctoc"))))
(set! abctoc-item-list
;; We insert index items sorted from the beginning on and do
;; not sort them later - this saves pretty much computing time
(insert-alphabetical-sorted! (list label markup-symbol text)
abctoc-item-list))
(make-music 'EventChord
'page-marker #t
'page-label label
'elements (list (make-music 'LabelEvent
'page-label label))))))
(set! abctoc-items (lambda ()
abctoc-item-list)))
#(define (insert-alphabetical-sorted! iitem ilist)
(if
(null? ilist) (list iitem)
(if
(string-ci<? (caddr iitem) (caddr (car ilist))) (cons iitem ilist)
(cons (car ilist) (insert-alphabetical-sorted! iitem (cdr ilist))))))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% INDEX
#(define-public (add-index-item! markup-symbol text . lab) #f)
#(define-public (index-items) #f)
#(let ((index-item-list (list)))
(set! add-index-item!
(lambda (markup-symbol text . lab)
(let ((label (if (> (length lab) 0) (car lab) (gensym "index"))))
(set! index-item-list
;; We insert index items sorted from the beginning on and do
;; not sort them later - this saves pretty much computing time
(delete-eq-cdr (insert-alphabetical-sorted! (list label markup-symbol text)
index-item-list)))
(make-music 'EventChord
'page-marker #t
'page-label label
'elements (list (make-music 'LabelEvent
'page-label label))))))
(set! index-items (lambda ()
index-item-list)))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% PAPER
\paper {
customTocTitleMarkup = \markup \column {
\vspace #2
\fill-line { \null \fontsize #5 "Table of Content" \null }
\vspace #3
}
customTocItemMarkup = \markup { \hspace #6 \large \override #'(line-width . 100) \fill-line {
\fromproperty #'customtoc:text
\fromproperty #'customtoc:page
}
}
abctocTitleMarkup = \markup \column {
\vspace #2
\fill-line { \null \fontsize #5 "Alphabetical Table of Content" \null }
\vspace #3
}
abcTocItemMarkup = \markup { \hspace #6 \large \override #'(line-width . 100) \fill-line {
%\fill-with-pattern #1 #RIGHT .
\fromproperty #'abctoc:text
\fromproperty #'abctoc:page
}
}
indexTitleMarkup = \markup \column {
\vspace #2
\fill-line { \null \fontsize #5 "Alphabetical Index" \null }
\vspace #3
}
indexItemMarkup = \markup { \hspace #6 \large \override #'(line-width . 100) \fill-line {
%\fill-with-pattern #1 #RIGHT .
\fromproperty #'index:text
\fromproperty #'index:page }
\hspace #5
}
indexSectionMarkup = \markup { \hspace #6 \override #'(baseline-skip . 1) \column {
\vspace #0.7
\fill-line { \bold \fontsize #3 \fromproperty #'index:text \null }
\null
}
}
}
#(define-markup-list-command (custom-table-of-contents layout props) ()
( _i "Outputs the table of contents, using the paper variable
@code{tocTitleMarkup} for its title, then the list of lines
built using the @code{tocItem} music function
Usage: @code{\\markuplist \\table-of-contents}" )
(cons (interpret-markup layout props
(ly:output-def-lookup layout 'customTocTitleMarkup))
(space-lines (chain-assoc-get 'baseline-skip props)
(map (lambda (customtoc-item)
(let ((label (car customtoc-item))
(customtoc-markup (cadr customtoc-item))
(text (caddr customtoc-item)))
(interpret-markup
layout
(cons (list (cons 'customtoc:page
(markup #:with-link label #:page-ref label "XXX" "?"))
(cons 'customtoc:text (markup #:with-link label #:columns text))
(cons 'customtoc:label label))
props)
(ly:output-def-lookup layout customtoc-markup))))
(customtoc-items)))))
#(define-markup-list-command (abc-table-of-contents layout props) ()
( _i "Outputs an alphabetical sorted index, using the paper
variable @code{indexTitleMarkup} for its title, then the list of
lines built using the @code{indexItem} music function
Usage: @code{\\markuplines \\index}" )
(cons (interpret-markup layout props
(ly:output-def-lookup layout 'abctocTitleMarkup))
(space-lines (chain-assoc-get 'baseline-skip props)
(map (lambda (abctoc-item)
(let ((label (car abctoc-item))
(abctoc-markup (cadr abctoc-item))
(text (caddr abctoc-item)))
(interpret-markup
layout
(cons (list (cons 'abctoc:page
(markup #:with-link label #:page-ref label "XXX" "?"))
(cons 'abctoc:text (markup #:with-link label #:columns text))
(cons 'abctoc:label label)
)
props)
(ly:output-def-lookup layout abctoc-markup))))
(abctoc-items)))))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% INDEX
#(define-markup-list-command (index layout props) ()
( _i "Outputs an alphabetical sorted index, using the paper
variable @code{indexTitleMarkup} for its title, then the list of
lines built using the @code{indexItem} music function
Usage: @code{\\markuplines \\index}" )
(cons (interpret-markup layout props
(ly:output-def-lookup layout 'indexTitleMarkup))
(space-lines (chain-assoc-get 'baseline-skip props)
(map (lambda (index-item)
(let ((label (car index-item))
(index-markup (cadr index-item))
(text (caddr index-item)))
(interpret-markup
layout
(cons (list (cons 'index:page
(markup #:with-link label #:page-ref label "XXX" "?"))
(cons 'index:text (markup #:with-link label #:columns text))
(cons 'indextoc:label label)
)
props)
(ly:output-def-lookup layout index-markup))))
(index-items)))))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
abcTocItem =
#(define-music-function (parser location text) (markup?)
"Add a line to the alphabetical table of content,
using the @code{abcTocItemMarkup} paper variable markup."
(let* ((new-text (if (string? text)
text
(markup->string text))))
(add-abctoc-item! 'abcTocItemMarkup new-text)))
indexItem =
#(define-music-function (parser location text) (markup?)
"Add a line to the alphabetical index, using the @code{indexItemMarkup} paper variable markup."
(let* ((new-text (if (string? text)
text
(markup->string text))))
(add-index-item! 'indexItemMarkup new-text)))
indexSection =
#(define-music-function (parser location text) (markup?)
"Add a section line to the alphabetical index, using @code{indexSectionMarkup} paper variable
markup. This can be used to divide the alphabetical index into different sections,
one section for each first letter."
(let* ((new-text (if (string? text)
text
(markup->string text))))
(add-index-item! 'indexSectionMarkup new-text)))
customTocItem =
#(define-music-function (parser location text) (markup?)
"Add a line to the table of content,
using the @code{customTocItemMarkup} paper variable markup."
(let* ((new-text (if (string? text)
text
(markup->string text))))
(add-customtoc-item! 'customTocItemMarkup new-text)))
% 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
% #}))
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)))
(label (gensym "index-item")))
(add-abctoc-item! 'abcTocItemMarkup text-rev label)
(add-index-item! 'indexItemMarkup text-rev label)
(add-index-item! 'indexSectionMarkup initial label)
(add-customtoc-item! 'customTocItemMarkup text-rev label)
(make-music
'EventChord
'elements (list (make-music 'LabelEvent 'page-label label))
'page-label label
'page-marker #t)
))
% ------- test
\version "2.15.24"
mus = { \key c\minor \time 2/4 r8 g'[ g' g'] ees'2 }
\book {
\bookpart {
\markuplist \custom-table-of-contents
% }
% \bookpart {
\markuplist \abc-table-of-contents
% }
% \bookpart {
\markuplist \index
}
\bookpart {
\indexItems "Symphony No. 5#Ludwig van Beethoven"
%\abcTocItem "Symphony No. 5#Ludwig van Beethoven"
%\indexItem "Symphony No. 5#Ludwig van Beethoven"
%\indexSection "S"
%\customTocItem "Symphony No. 5#Ludwig van Beethoven"
\new Staff { \mus }
% }
% \bookpart {
\indexItems "Te Deum#M.A. Charpentier"
\new Staff \mus
% }
% \bookpart {
\indexItems "Concerto#A. Vivaldi"
\new Staff \mus
% }
% \bookpart {
\indexItems "Magnificat#J.S. Bach"
\new Staff \mus
% }
% \bookpart {
\indexItems "Stabat Mater#Pergolesi"
\new Staff \mus
% }
% \bookpart {
\indexItems "Cosi fan tutte#W.A. Mozart"
\new Staff \mus
}
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
