;;;
;;; source file of the GNU LilyPond music typesetter
;;;
-;;; (c) 2000--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;; (c) 2000--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
;;; Jan Nieuwenhuizen <janneke@gnu.org>
context-description-alist))))
(string-append
name " is part of contexts: "
- (human-listify (map ref-ify (map context-name contexts)))))
+ (human-listify (map ref-ify (map symbol->string contexts)))))
""
))))
"Revert "
"Set "
)
- "grob-property "
+ "grob-property @code{"
(symbol->string (cadr body))
- " in " (symbol->string sym)
+ "} in @ref{" (symbol->string sym)
+ "}"
(if (not (null? (cddr body)))
- (string-append " to " (scm->texi (cadr (cdr body))))
+ (string-append " to @code{" (scm->texi (cadr (cdr body))) "}" )
)
"\n"
)
((equal? (object-property sym 'is-grob?) #t) "")
((equal? (car op) 'assign)
(string-append
- "@item Set translator property "
+ "@item Set translator property @code{"
(symbol->string (car body))
- " to "
+ "} to @code{"
(scm->texi (cadr body))
- "\n"
+ "}\n"
)
)
)
(define (context-doc context-desc)
(let*
(
- (name (cdr (assoc 'type-name context-desc)))
- (desc-handle (assoc (string->symbol name) context-description-alist))
- (desc (if (pair? desc-handle) (cdr desc-handle) ""))
+ (name-sym (cdr (assoc 'type-name context-desc)))
+ (name (symbol->string name-sym))
+ (aliases (map symbol->string (cdr (assoc 'aliases context-desc))))
+ (desc-handle (assoc 'description context-desc))
+ (desc (if (and (pair? desc-handle) (string? (cdr desc-handle)))
+ (cdr desc-handle) "(not documented)"))
(accepts (cdr (assoc 'accepts context-desc)))
(consists (append
))
(props (cdr (assoc 'property-ops context-desc)))
(grobs (context-grobs context-desc))
- (grob-refs (map (lambda (x) (ref-ify x)) grobs))
- )
+ (grob-refs (map (lambda (x) (ref-ify x)) grobs)) )
+
(make <texi-node>
#:name name
#:text
(string-append
desc
+ "\n\n This context is also known as: \n\n"
+ (human-listify aliases)
"\n\nThis context creates the following grobs: \n\n"
(human-listify (uniq-list (sort grob-refs string<? )))
"."
(string-append
"\n\nContext "
name " can contain \n"
- (human-listify (map ref-ify (map context-name accepts)))))
+ (human-listify (map ref-ify (map symbol->string accepts)))))
"\n\nThis context is built from the following engravers: "
(description-list->texi