Re: Tie settings question

[Karol Majewski]

Now I try to change Flag.Y-extent value in chords to: \override Flag.Y-extent = 
#'(4 . 0)

Got this, but it doesn't work. What am I doing wrong?

evenTies =
#(lambda
  (grob)
  (let
    ((ties
        (ly:grob-array->list
          (ly:grob-object grob 'ties))))
    (if
      (>
        (length ties) 1)
      ((ly:grob-set-property! flag 'Y-extent 4 0)
      (for-each
        (lambda
          (tie)
          (ly:grob-set-nested-property! tie '(details skyline-padding) 5)) 
ties)))))

\layout {
  \context {
    \Score
    \override TieColumn.before-line-breaking = #evenTies
  }
}


\score {

\relative c' {
  <c e g c e>8~
  <c e g c e>4
  c8~ c4.
}

}