Use doctitle header field of LSR snippets

[lilypond.git] / input / lsr / compound-time-signatures.ly

diff --git a/input/lsr/compound-time-signatures.ly b/input/lsr/compound-time-signatures.ly
index aaa0da421853ecf74aef14e369a5b9c35f8303af..b94107506ef9ae395db1aab19a56057eec308eed 100644 (file)
--- a/input/lsr/compound-time-signatures.ly
+++ b/input/lsr/compound-time-signatures.ly
@@ -4,28 +4,30 @@
 
 \header {
   lsrtags = "rhythms"
 
 \header {
   lsrtags = "rhythms"

- texidoc = "
+
+  texidoc = "

 Odd 20th century time signatures (such as \"5/8\") can often be played
 as compound time signatures (e.g. \"3/8 + 2/8\"), which combine two or
 more inequal metrics. LilyPond can make such music quite easy to read
 and play, by explicitly printing the compound time signatures and
 Odd 20th century time signatures (such as \"5/8\") can often be played
 as compound time signatures (e.g. \"3/8 + 2/8\"), which combine two or
 more inequal metrics. LilyPond can make such music quite easy to read
 and play, by explicitly printing the compound time signatures and

-adapting the automatic beaming behavior. (You can even add graphic
-measure grouping indications; see the appropriate snippet in this
+adapting the automatic beaming behavior. (Graphic measure grouping
+indications can also be added; see the appropriate snippet in this

 database.) 
 database.) 

-" }
-% begin verbatim
+
+"
+  doctitle = "Compound time signatures"
+} % begin verbatim

 #(define (compound-time one two num)
   (markup #:override '(baseline-skip . 0) #:number
    (#:line ((#:column (one num)) #:vcenter "+" (#:column (two num))))
   ))
 
 #(define (compound-time one two num)
   (markup #:override '(baseline-skip . 0) #:number
    (#:line ((#:column (one num)) #:vcenter "+" (#:column (two num))))
   ))
 

-\relative {
-  % compound time signature hack
+\relative {  

   \override Staff.TimeSignature #'stencil = #ly:text-interface::print
   \override Staff.TimeSignature #'stencil = #ly:text-interface::print

-  \override Staff.TimeSignature #'text = #( compound-time "2" "3" "8" )
+  \override Staff.TimeSignature #'text = #(compound-time "2" "3" "8")

   \time 5/8
   #(override-auto-beam-setting '(end 1 8 5 8) 1 4)
   \time 5/8
   #(override-auto-beam-setting '(end 1 8 5 8) 1 4)

-  c8 d e fis gis |
-  c fis, gis e d |
-  c8 d e4  gis8
+  c8 d e fis gis
+  c fis, gis e d
+  c8 d e4 gis8

 }
 }