Chords with smaller note heads

[Alberto Simões]

Hello

I was looking into a way to write chords with some note heads smaller 
than others. I found a snippet with some lisp code (see bellow) that 
works great if only one note of the chord needs to be smaller.

The odds is that I need some chords with two normal heads, and a small 
head, two small heads, and a normal head, and so on.

Is there a better way than defining a different command (using that lisp 
code as a base) for all combinations I need? :)

Thank you
Alberto

The code I am using is:

t =
#(define-music-function (parser location x) (ly:music?)
  (music-map (lambda (x)
              (if (eq? (ly:music-property x 'name) 'EventChord)
               (let ((copy (ly:music-deep-copy x)))
                (let ((elements (cdr (ly:music-property copy 'elements))))
                 (while (pair? elements)
                  (ly:music-set-property! (first elements) 'tweaks
                   (acons 'font-size -2 (ly:music-property (car elements)
                                         'tweaks)))
                  (set! elements (cdr elements))))
                copy) x))
   x))

--
Alberto Simoes
CEHUM