(if (pair? iprops)
(string-append
- "\n\n@unnumberedsubsubsec Internal properties: \n"
+ "\n\n@unnumberedsubsubsec Internal properties:\n"
(description-list->texi internal-propdocs))
""))))
(sort
(map (lambda (x) (ref-ify (symbol->string x)))
(cdr entry)) string<?))
+ "."
"\n\nAccepted by: "
(human-listify
(map ly:translator-name
(filter
(lambda (x) (engraver-accepts-music-type? (car entry) x)) all-engravers-list)))))
+ "."
"\n\n")))
(define (music-types-doc)
(string-append
"\n\nEvent classes:\n"
(human-listify (map ref-ify (map symbol->string classes)))
- "\n\n"
+ "."
+
"\n\nAccepted by: "
(human-listify
(map ref-ify
(map symbol->string (map ly:translator-name
(filter
- (lambda (x) (engraver-accepts-music-types? classes x)) all-engravers-list))))))
+ (lambda (x) (engraver-accepts-music-types? classes x)) all-engravers-list)))))
+ ".")
"")))
(string-append
(object-property namesym 'music-description)
event-texi
- "\n\nProperties: \n"
+ "\n\nProperties:\n"
(description-list->texi
(map
- (lambda (x) (property->texi 'music x props))
+ (lambda (x) (property->texi 'music x props))
(map car props))))))
(define (music-object-doc obj)
(string-append
"Properties (read)"
(description-list->texi
- (map (lambda (x) (property->texi 'translation x '())) propsr)))
+ (map (lambda (x) (property->texi 'translation x '())) propsr)))
"")
(if (null? propsw)
(string-append
"Properties (write)"
(description-list->texi
- (map (lambda (x) (property->texi 'translation x '())) propsw))))
+ (map (lambda (x) (property->texi 'translation x '())) propsw))))
(if (null? grobs)
""
(string-append
- "This engraver creates the following layout objects: \n "
- (human-listify (map ref-ify (uniq-list (sort grobs string<? ))))
+ "\n\nThis engraver creates the following layout objects:\n\n"
+ (human-listify (map ref-ify (uniq-list (sort grobs string<?))))
"."))
"\n\n"