2 #(set-global-staff-size 16)
5 %% ugh. text on toplevel is a bit broken... .
7 oddHeaderMarkup = \markup {}
8 evenHeaderMarkup = \markup {}
9 oddFooterMarkup = \markup {}
10 evenFooterMarkup = \markup {}
15 #(define (doc-char name)
18 (make-pad-to-box-markup
21 (make-typewriter-markup (make-small-markup name)))
22 (make-pad-to-box-markup
25 (make-musicglyph-markup name)))))
27 #(define (min-length lst n)
28 "(min (length lst) n)"
30 (if (or (null? lst) (<= n 0))
32 (1+ (min-length (cdr lst) (1- n)) )))
34 #(define (doc-chars names acc)
36 ((n (min-length names 2))
44 (cons (make-line-markup (map doc-char head)) acc)))
47 #(define (group-lines lines)
49 ((n (min-length lines 25))
55 (make-column-markup head)
58 (group-lines tail)))))
62 (ly:otf-glyph-list (ly:font-load "emmentaler-20"))
64 (pages (group-lines (reverse lines))))
68 (collect-scores-for-book parser
69 (make-override-markup '(word-space . 8) x)))