*** empty log message ***

diff --git a/scm/backend-documentation-lib.scm b/scm/backend-documentation-lib.scm
index 46b042197d2f5881e8471ae2243e9b6df44389c0..b731521b291cfd53e7b8100d4b533efa4c118d35 100644 (file)
--- 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 b3d31c8d7acc59f18f58ca431e93d269a450ee27..3e5ca4a78b403c048361e95f0a6d962007eb395b 100644 (file)
--- 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