arrow function

[Kevin Patrick Barry]

Dear LilyPond users,

I would like to create a function that will draw a glissando with an arrow between two notes.  I have the beginnings of a function but I don't know how to add properties like the arrowhead or change its size.  Also it only works when I call the function before the first pitch (instead of after, like a normal glissando). Any help would be appreciated.

Here is my function so far:

glissarrow = #(define-music-function (parser location glissando-event)

                      (ly:music?)

                      (set! (ly:music-property glissando-event 'articulations)

                             (cons (make-music 'GlissandoEvent)

                                      (ly:music-property glissando-event 'articulations)))

                    glissando-event)

I need to make it such that it contains the following properties/overrides:

\override Glissando #'(bound-details right arrow) = ##t

\override Glissando #'arrow-length = #0.6

\override Glissando #'arrow-width = #0.25

Thanks in advance,

Kevin Barry