From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 28 Sep 2002 14:58:50 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/1.7.1~6
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=5b9b037728cb7d830a6a3c629f87fdaf43b7e777;p=lilypond.git

*** empty log message ***
---

diff --git a/scm/backend-documentation-lib.scm b/scm/backend-documentation-lib.scm
index 46b042197d..b731521b29 100644
--- a/scm/backend-documentation-lib.scm
+++ b/scm/backend-documentation-lib.scm
@@ -10,22 +10,41 @@
 
 ;; alist of property descriptions
 
+;;
+"
+TODO:
 
-;;;;;; TODO: sort out symbol vs. string stuff.
-;;;;;; TODO: use flatten write iso. string-append; might be possible to fold
-;;;;;; in symbol->string integrally.
 
-(define (interface-doc-string interface grob-description)
-  (let* ((name (car interface))
-	 (desc (cadr interface))
-	 (props (sort (caddr interface) symbol<?))
-	 (docfunc (lambda (pr)
-		    (document-property
-		     pr 'backend grob-description )))
-	 (propdocs (map docfunc props)))
+Grob bla
+
+Created by:
+
+  * preset properties + explanation
+
+Interfaces:
+
+  * properties available.
+
+"
+
 
+(define (interface-doc-string interface grob-description)
+  (let*
+      (
+       (name (car interface))
+       (desc (cadr interface))
+       (props (sort (caddr interface) symbol<?))
+       (docfunc (lambda (pr)
+		  (document-property
+		   pr 'backend grob-description )))
+       (propdocs (map docfunc props))
+       )
+    
+    (string-append
      desc
-     (description-list->texi propdocs)))
+     (description-list->texi propdocs))
+
+    ))
 
 ;; First level Interface description
 (define (interface-doc interface)
@@ -34,7 +53,6 @@
       #:name name
       #:text (interface-doc-string (cdr interface) #f))))
 
-;; First level grob description
 (define (grob-doc description)
   (let*
       (
diff --git a/scm/music-types.scm b/scm/music-types.scm
index b3d31c8d7a..3e5ca4a78b 100644
--- a/scm/music-types.scm
+++ b/scm/music-types.scm
@@ -10,7 +10,8 @@
 	))
     (ArpeggioEvent 
      . (
-	(description .  "Make an arpeggio on this note.")
+	(description .  "Make an arpeggio on this note. Syntax:
+@var{note}-@code{\\arpeggio}")
 	(internal-class-name .  "Request")
 	(types . (general-music arpeggio-event event))
 	))
@@ -45,8 +46,6 @@
 	(description .  "")
 
 	(internal-class-name . "Request")
-	(compress-procedure . ,music-duration-compress)
-	(length . ,music-duration-length) 
 	(types . (general-music event rhythmic-event bass-figure-event))
 	))
     (BeamEvent
@@ -146,10 +145,8 @@
   (LyricEvent
      . (
 	(description .  "A lyric syllable. Must be entered in lyrics mode, i.e.
-@code{\lyrics @{ twinkle4 twinkle4 @} } .")
+@code{\\lyrics @{ twinkle4 twinkle4 @} } .")
 
-	(length . ,music-duration-length) 
-	(compress-procedure . ,music-duration-compress)
 	(internal-class-name . "Request")
 	(types . (general-music rhythmic-event lyric-event event))
 	))
@@ -201,8 +198,6 @@
 	(description .  "")
 
 	(internal-class-name . "Request")
-	(length . ,music-duration-length) 
-	(compress-procedure . ,music-duration-compress)
 	(types . (general-music event note-event rhythmic-event melodic-event))
 	))
  (OverrideProperty
@@ -224,7 +219,7 @@
      ))
       (PhrasingSlurEvent
      . (
-	(description . "Start or end phrasing slur. Syntax NOTE \(  and \) NOTE")
+	(description . "Start or end phrasing slur. Syntax NOTE \\(  and \\) NOTE")
 	(internal-class-name . "Request")
 	(types . (general-music span-event phrasing-slur-event slur-event))
 	))
@@ -272,13 +267,11 @@
 	(description .  "")
 
 	(internal-class-name . "Request")
-	(length . ,music-duration-length)
-	(compress-procedure . ,music-duration-compress)
 	(types . (general-music event rhythmic-event rest-event))
 	)) 
     (SequentialMusic
      . (
-	(description .  "Music expressions concatenated. Syntax \sequential @{..@} or simply @{..@} .")
+	(description .  "Music expressions concatenated. Syntax \\sequential @{..@} or simply @{..@} .")
 
 	(internal-class-name . "Sequential_music")
 	(iterator-ctor . ,Sequential_music_iterator::constructor)
@@ -286,7 +279,7 @@
 	))
     (SimultaneousMusic
      . (
-	(description .  "Music playing together. Syntax: \simultaneous @{ .. @} or < .. >.")
+	(description .  "Music playing together. Syntax: \\simultaneous @{ .. @} or < .. >.")
 
 	(internal-class-name . "Simultaneous_music")
 	(iterator-ctor . ,Simultaneous_music_iterator::constructor)
@@ -394,8 +387,6 @@
 	(description .  "")
 
 	(internal-class-name . "Request")
-	(length . ,music-duration-length) 
-	(compress-procedure . ,music-duration-compress)
 	(types . (general-music event rhythmic-event skip-event))
 	)) 
     (SpanEvent