Music or Scheme function to Auto Generate glissandos

[Jay Vara]

I have some music where I have Glissandos between each note of a phrase. This happens often enough to warrant a Music of Scheme function that takes a piece of music and adds glissandos between the notes.

In the example code below, for example, such a function would take music and convert it musicsl.

%%%%%%%%%%%%%%%%%%%%%%

\version "2.19.39"

music = \relative c' {c8 (d e f g)}

musicsl = \relative c' { c8 (\glissando d \glissando e \glissando f \glissando g)}

\new Staff { \music}

\new Staff {\musicsl}

%%%%%%%%%%%%%%%%%%%%%%%%

I tried working with the snippet that adds articulations http://lsr.di.unimi.it/LSR/Snippet?id=82, but was not sure how to proceed. Is there a function already that does this?