;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2000--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 2000--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
;;;; Jan Nieuwenhuizen <janneke@gnu.org>
(use-modules (oop goops)
(display
(string-append
"\n@node "
- (node-name node)
- "\n\n"
+ (if (= level 0) "Top" (node-name node))
+ "\n"
(if (appendix? node)
(texi-appendix-section-command level)
(texi-section-command level))
name)
(define (ref-ify x)
- "Add ref to X"
+ "Return @ref{X}. If mapping ref-ify to a list that needs to be sorted,
+ sort the list first."
(string-append "@ref{" x "}"))
(define (human-listify lst)