input/no-notation/to-xml.ly

   1 \version "2.10.0"
   2
   3 fooBar =  { << c''4 \\ g'4 >> }
   4
   5 #(ly:set-option 'parse-protect #f)
   6 #(load-from-path "to-xml.scm")
   7
   8 #(music-to-xml fooBar (current-output-port))
   9
  10 \header {
  11     texidoc = "@cindex To XML"
  12         texidoc = #(string-append
  13       "The input representation is very generic. Therefore, it
  14       should not be hard to convert it to XML or a similar format:\n\n"
  15
  16       "@example\n"
  17         (call-with-output-string
  18                (lambda (p) (music-to-xml fooBar p))
  19       )
  20     "@end example" )
  21 }
  22
  23
  24 \score {
  25 \fooBar
  26 }
  27