Massive changes - see ChangeLog.

[lilypond.git] / input / test / header-ifelse.ly

diff --git a/input/test/header-ifelse.ly b/input/test/header-ifelse.ly
index 831e9d829a4c5e33bdf289576f77a99e6de544df..c58973604708d97ec9fc6f862166989305e46bc2 100644 (file)
--- a/input/test/header-ifelse.ly
+++ b/input/test/header-ifelse.ly
@@ -1,12 +1,27 @@
-% #(define pieceTagLine "Copyright 2002 (C) Mutopia")
+\version "1.9.0"
+
+
+#(define (my-ly-version)
+    (list-head (ly:version) 3))
 
 #(if (not (defined? 'pieceTagLine))
-    (define pieceTagLine (string-append "Jeremie " (numbers->string (ly-version)) " was here")))
+    (define pieceTagLine (string-append "Jeremie " (numbers->string (my-ly-version)) " was here")))
+
+\header{
+tagline = \pieceTagLine
+texidoc = "
+
+High level functionality (eg. conditional defines),
+can be accomplished with GUILE.
+
+This example puts the current version in the tagline via Scheme.
+Since the tagline isn't used in creating the webpage, this example
+doesn't output anything unusual in the collated snippets.
+
+" 
+}
 
+\score{ \notes{ c'4 }
+\paper {raggedright=##t}
+}
 
-pieceTagLine = #pieceTagLine
-\header {
-        tagline = \pieceTagLine
-        texidoc = "High level functionality can be accomplished with GUILE. Semantics aren't nice though." 
-        }
-\score { \notes { c4 }}