Added texidoc index.

diff --git a/ChangeLog b/ChangeLog
index 26702345581fd180988c2e3ad7590b3e503ade16..bb324aaf731bc2f7e02fb52f283f8307edcd0e07 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-06-18  Graham Percival  <gperlist@shaw.ca>
+
+       * input/test/[h-k]*.ly: added texidoc index.
+
 2003-06-17  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
        * scm/music-functions.scm (make-ottava-set): 

diff --git a/input/test/hara-kiri-switch.ly b/input/test/hara-kiri-switch.ly
index 1a8d8111c97344fdb0adf108bd45c78d92ca4363..a9775112899a8c17b4beb28da7037df239a41968 100644 (file)
--- a/input/test/hara-kiri-switch.ly
+++ b/input/test/hara-kiri-switch.ly
@@ -1,9 +1,9 @@
-
-\header {
-texidoc = "some instruments (notably: cello and double bass) are alternatively written on one and two staves. This is the way to do it:"
-}
 \version "1.7.19"
-
+% TODO: check if we really need both hara-kiri-switch.ly and
+% hara-kiri.ly.  -gp
+\header { texidoc = "@cindex Hara Kiri Switch
+Some instruments (notably cello and double bass) are alternatively
+written on one and two staves. This is the way to do it: " }
 
 voiceOne =  \notes \relative c'' {
        a1 a a
@@ -47,6 +47,7 @@ grandstaff =  \context GrandStaff = one <
        \grandstaff
        \paper{
                linewidth=80.0\mm
+               raggedright=##t
 
                \translator { \VoiceContext autoBeaming = ##f }
                \translator { \RemoveEmptyStaffContext }

diff --git a/input/test/hara-kiri.ly b/input/test/hara-kiri.ly
index 7256c2052a524693d36da3b0b3e2d1a1bde48a01..8c4edc52dd0b5e5e58f275df54f91386cd602ece 100644 (file)
--- a/input/test/hara-kiri.ly
+++ b/input/test/hara-kiri.ly
@@ -1,9 +1,8 @@
 \version "1.7.19"
-
-\header {
-texidoc = "Hara kiri staves disappear when empty "
-}
-
+% TODO: check if we really need both hara-kiri-switch.ly and
+% hara-kiri.ly.  -gp
+\header { texidoc = "@cindex Hara Kiri
+Hara kiri staves disappear when empty. " }
 
 % todo: use partcombine?, junk?
 

diff --git a/input/test/harmonic.ly b/input/test/harmonic.ly
index 865651bc3ab2e0ea53d1e2e56ebec88209f74398..96cea53ed15717afc5e1af7bd3fea79f3530aba9 100644 (file)
--- a/input/test/harmonic.ly
+++ b/input/test/harmonic.ly
@@ -1,15 +1,17 @@
 \version "1.7.18"
 \header {
-    texidoc =" Harmonic notes: a different style on the same stem. "
-}
+    texidoc ="@cindex Artificial Harmonics
+For stringed instruments, artificial harmonics are notated with
+two different notehead styles on the same stem. " }
 \score {
 \notes { c'4
 
         < c'4 \context Thread = tb {
             \property Thread.NoteHead \set #'style = #'mensural
-            g''4
+            g'4
             } >
             
     }
+       \paper {raggedright=##t}
 }
 %% new-chords-done %%

diff --git a/input/test/header-ifelse.ly b/input/test/header-ifelse.ly
index 70893a7d6e4426e7c6ea34658dddc1a31d6dcde8..c38dc8b22cacd64f93d74b0a1a3f67569948fef4 100644 (file)
--- a/input/test/header-ifelse.ly
+++ b/input/test/header-ifelse.ly
@@ -1,4 +1,7 @@
 % #(define pieceTagLine "Copyright 2002 (C) Mutopia")
+\version "1.7.20"
+% FIXME: since tagline isn't used in creating the webpage, this example
+% doesn't output anything unusual.
 
 #(define (my-ly-version)
   (let ((version (ly:version)))
@@ -10,8 +13,11 @@
 pieceTagLine = #pieceTagLine
 \header{
 tagline = \pieceTagLine
-texidoc = "High level functionality can be accomplished with GUILE. Semantics aren't nice though." 
+texidoc = "@cindex Header If Else
+High level functionality can be accomplished with GUILE. Semantics aren't nice though." 
 }
 
-\score{ \notes{ c4 } }
+\score{ \notes{ c4 }
+\paper {raggedright=##t}
+}
 %% new-chords-done %%

diff --git a/input/test/hshift.ly b/input/test/hshift.ly
index 3059fd3ac63c5f7f2047a477049bf3f588c8cd9c..a0bf5aba043a388ec8a7eae0cb7513e0f6463d15 100644 (file)
--- a/input/test/hshift.ly
+++ b/input/test/hshift.ly
@@ -1,7 +1,6 @@
 \version "1.7.18"
-
-
-
+\header { texidoc = "@cindex Horizontal Shift
+You can manually shift notes horizontally. " }
 
 shiftI = \property Voice.NoteColumn \override #'horizontal-shift = #0
 shiftII = \property Voice.NoteColumn \override #'horizontal-shift = #1
@@ -20,7 +19,6 @@ shiftV = \property Voice.NoteColumn \override #'horizontal-shift = #4
                \context Voice =VE  {\stemUp \shiftV f }
        >       
   }
-  \paper { }  
-  \midi { }
+  \paper { raggedright = ##t }  
 }
 %% new-chords-done %%

diff --git a/input/test/hymn.ly b/input/test/hymn.ly
index e663b7029ca8dbaec6571b4a3752b0f7f6d62d17..617285b8d8d1d3a2b276f1496ac5d6ebc54b5147 100644 (file)
--- a/input/test/hymn.ly
+++ b/input/test/hymn.ly
@@ -1,4 +1,6 @@
 \version "1.7.18"
+% I think we have other examples of partcombine.  Candidate for delete.  -gp
+\header { texidoc = "" }
 
 \score{
        \context Staff <

diff --git a/input/test/improv.ly b/input/test/improv.ly
index 7fb2f0c01df2d8cc90f81ec0c81e5bdb48f48473..0cf2940b47e10e684ed511bd45b206ccededc495 100644 (file)
--- a/input/test/improv.ly
+++ b/input/test/improv.ly
@@ -1,12 +1,10 @@
-
-\header {
-texidoc = "note heads for improvisation have a different shape. "
-}
+\version "1.7.18"
+\header { texidoc = "@cindex Improv
+Noteheads for improvisation have a different shape. " }
 
 %{ TODO: the construct with separet SquashVoice context is a little
  gory. FIXME.  %}
 
-\version "1.7.18"
 
 improOn = \notes {\translator Voice = impro }
 improOff = \notes {\translator SquashVoice = melo }

diff --git a/input/test/incipit.ly b/input/test/incipit.ly
index 0eb298a5c5609aaa769d4058d52889f8ceaf0b00..b430c7cbf1b98f3a38ad79862dd05914789656b6 100644 (file)
--- a/input/test/incipit.ly
+++ b/input/test/incipit.ly
@@ -1,13 +1,8 @@
 \version "1.7.18"
-%{
- Test of how to make an ``incipit'' to indicate scordatora 
- tuning of a violin part, using the clefStyle property.
- The two first bars of Biber's Rosary sonata III.
-
-   /Mats B
-%}
-
-
+\header { texidoc = "@cindex Incipit
+This shows how to make an ``incipit'' to indicate scordatora 
+tuning of a violin part, using the clefStyle property.
+The two first bars of Biber's Rosary sonata III. " }
 
 violinincipit =  \notes\relative c''{
   \clef "french"
@@ -64,6 +59,7 @@ BC  = \notes\relative c{
       \BC
     }}
   >
+       \paper { raggedright = ##t }
 }  
 
 %% new-chords-done %%

diff --git a/input/test/instrument-name-grandstaff.ly b/input/test/instrument-name-grandstaff.ly
index 5a622154cd69b2da61956488bb18cc6ad8b705a0..6cae0a49084ac7625cf1a7f81e8177e2cc929d76 100644 (file)
--- a/input/test/instrument-name-grandstaff.ly
+++ b/input/test/instrument-name-grandstaff.ly
@@ -1,5 +1,6 @@
 \version "1.7.18"
-
+\header { texidoc = "@cindex Instrument Name Grandstaff
+You can name the whole grandstaff in addition to individual staffs. " }
 
 \score {
   \notes

diff --git a/input/test/instrument-name-mmrest.ly b/input/test/instrument-name-mmrest.ly
index a215d525aceb0f45b3aa38fe8c8e305bfeef3df8..b92e7a0047bbdef7a285e8aaff4c30cfa3fcaead 100644 (file)
--- a/input/test/instrument-name-mmrest.ly
+++ b/input/test/instrument-name-mmrest.ly
@@ -1,5 +1,6 @@
 \version "1.7.18"
-
+% candidate for regression.  -gp
+\header { texidoc = "" }
 %{
 
 this combines instrument names and multimeasure rests (there was an
@@ -20,6 +21,7 @@ interesting bug in 1.3.98)
 
            }
          }
+       \paper { raggedright =  ##t }
        }
 
 %% new-chords-done %%

diff --git a/input/test/key-clefs.ly b/input/test/key-clefs.ly
index 998b37fb62bd6a4e958909b19811b8f4b52d9ed7..f4ff775cde0ac8ba279a669553fe3daa4ecbb3f0 100644 (file)
--- a/input/test/key-clefs.ly
+++ b/input/test/key-clefs.ly
@@ -1,4 +1,6 @@
 \version "1.7.18"
+% candidate for regression -gp
+\header { texidoc = "" }
 
 \score { \notes
   \relative cis' {

diff --git a/input/test/knee-mult.ly b/input/test/knee-mult.ly
index 0cf97d56ea794c200d782e7f9903d4fd093585ad..c37add3e651e7446747266fbc4fdaea40f92eb4e 100644 (file)
--- a/input/test/knee-mult.ly
+++ b/input/test/knee-mult.ly
@@ -1,4 +1,8 @@
 \version "1.7.18"
+% possible rename to piano-foo
+\header { texidoc = "@cindex Knee Piano
+You can spread a ``knee beam'' over a pianostaff. " }
+
 \score{
        \context PianoStaff <
        \context Staff=one \notes\relative c'{

diff --git a/input/test/knee-sym.ly b/input/test/knee-sym.ly
index 6e618eedbb25bca474b075ec18d8f3647e1e08d7..025351859bb45f51b6363ab18499805b71b3305e 100644 (file)
--- a/input/test/knee-sym.ly
+++ b/input/test/knee-sym.ly
@@ -1,4 +1,6 @@
 \version "1.7.18"
+%  candidate for regression.  -gp
+\header { texidoc = "" }
 \score{
     \notes\relative c'{
         a8-[ b'' a,, b'']

diff --git a/input/test/knee.ly b/input/test/knee.ly
index 3239a12ec8bc3fe5dd33a8b2d3566325b9eda72f..dea93bfbd376b7bbebb6c6c18dee09076d2cf750 100644 (file)
--- a/input/test/knee.ly
+++ b/input/test/knee.ly
@@ -1,5 +1,6 @@
 \version "1.7.18"
-
+% candidate for regression?  -gp
+\header { texidoc = ""}
 \score{
        \notes\relative c'{
                \property Voice.Beam \override #'auto-knee-gap = ##f