use guile to set specific extra-offset values if stem direction is up or down

[padovani]

Hello,

I'm dealing with special noteheads I've designed and I need to move the 
stem and the flag differently if stem direction is up or down.

I would like to create a guile lisp clause that sets the extra-offset 
value accordingly to the Stem position.

I was trying this, but it does not work...

\once \override Stem #'extra-offset = #(if (eqv? ly:stem::calc-direction 
UP) '(-0.02 . -0.25) '(0.02 . 0.25))

(also tried this...
\once \override Stem #'extra-offset = #(if (ly:dir? 
ly:stem::calc-direction UP) '(-0.02 . -0.25) '(0.02 . 0.25))
)

any tips?

thanks
josé


--
http://zepadovani.info