;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2000--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 2000--2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
;;;; Jan Nieuwenhuizen <janneke@gnu.org>
(define (engraver-makes-grob? name-symbol grav)
(string-append
"@item Set "
- (format "grob-property @code{~a} " (string-join path " "))
- (format " in @ref{~a} " sym)
- (if (not (null? (cddr body)))
- (format " to @code{~a}" (scm->texi value))
- "")
-
+ (format "grob-property @code{~a} " (string-join (map symbol->string path) " "))
+ (format " in @ref{~a} to @code{~a}. " context-sym (scm->texi value))
"\n")))
- ((equal? (object-property sym 'is-grob?) #t) "")
+ ((equal? (object-property context-sym 'is-grob?) #t) "")
((equal? tag 'assign)
- (string-append
- "@item Set translator property @code{"
- (symbol->string (car body))
- "} to @code{"
- (scm->texi (cadr body))
- "}\n")))))
+ (format "@item Set translator property @code{~a} to @code{~a}"
+ context-sym
+ (scm->texi (car args))))
+ )))
+
(define (context-doc context-desc)
(let* ((name-sym (cdr (assoc 'context-name context-desc)))
(string-append
desc
(if (pair? aliases)
- (string-append "\n\n This context is also known as: \n\n"
+ (string-append "\n\n This context also accepts commands for the following context(s):\n\n"
(human-listify aliases))
"")
"\n\nThis context creates the following layout objects: \n\n"