stupid question from a scheme beginner

[Matthieu Jacquot]

Hello everybody,
As the title says, I'm trying to add something I need in Lily via scheme but
I got a few problems.
I'd like to try to add a spanner for the string number indication, it's the
very beginning and I'm already stuck.
I start here :
 
\displayMusic c4
=>
(make-music
  'EventChord
  'elements
  (list (make-music
          'NoteEvent
          'duration
          (ly:make-duration 2 0 1 1)
          'pitch
          (ly:make-pitch -1 0 0))))

and I want to go there :
\displayMusic <c\3>4
=>
(make-music
  'EventChord
  'elements
  (list (make-music
          'NoteEvent
          'duration
          (ly:make-duration 2 0 1 1)
          'articulations
          (list (make-music
                  'StringNumberEvent
                  'string-number
                  3))
          'pitch
          (ly:make-pitch -1 0 0))))

My problem is that I have to add 'articulations to 'elements and I didn't
find any exemple to do so.
Here's where I am :
string = #(define-music-function (parser location event-chord )
                                     ( ly:music? )

  (let ((result-event-chord (ly:music-deep-copy event-chord)))
    (set! (ly:music-property result-event-chord 'elements )
          (cons 
         (make-music
                  'StringNumberEvent
                  'string-number
                  3)
                  (ly:music-property result-event-chord 'elements )))
      result-event-chord)
      )
But no string number... Can anyone help me?
with best regards
Matthieu

-- 
View this message in context: 
http://www.nabble.com/stupid-question-from-a-scheme-beginner-tp18612375p18612375.html
Sent from the Gnu - Lilypond - Dev mailing list archive at Nabble.com.