%% http://lsr.di.unimi.it/LSR/Item?id=538 smallChordNotes = #(define-music-function (parser location loc) (ly:music?) (music-map (lambda (x) (if (eq? (ly:music-property x 'name) 'EventChord) (let ((copy (ly:music-deep-copy x))) (let ((l_elements (ly:music-property copy 'elements))) (if (pair? l_elements) (let ((elements (cdr l_elements))) (while (pair? elements) (ly:music-set-property! (first elements) 'tweaks (acons 'font-size -3 (ly:music-property (car elements) 'tweaks))) (set! elements (cdr elements)))) copy) copy)) x)) loc)) \relative c' \smallChordNotes { \repeat volta 2 { 4 4 g 8( ) 4. q8 q4 4. q8 q2 } 4 q q 2 q~ q2. \bar "|." }