X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdocumentation-generate.scm;h=0d56e2c4a9b97db3e4e77f80018ab47f981fe75f;hb=37ca1f80bf5401accd17056938f4f7b2c147ddb2;hp=fa6298cd00e32caf6af5be4846720e7509d7cc84;hpb=eb2d142eadbda419637d62e2ef5877b203dc5534;p=lilypond.git diff --git a/scm/documentation-generate.scm b/scm/documentation-generate.scm index fa6298cd00..0d56e2c4a9 100644 --- a/scm/documentation-generate.scm +++ b/scm/documentation-generate.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2000--2006 Han-Wen Nienhuys +;;;; (c) 2000--2007 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen ;;; File entry point for generated documentation @@ -30,13 +30,17 @@ (slot-ref (all-scheme-functions-doc) 'text) (open-output-file "scheme-functions.tely")) -(display - (markup-doc-string) - (open-output-file "markup-commands.tely")) +;;(display +;; (markup-doc-string) +;; (open-output-file "markup-commands.tely")) -(display - (markup-list-doc-string) - (open-output-file "markup-list-commands.tely")) +(call-with-output-file "markup-commands.tely" + (lambda (port) + (dump-node (markup-doc-node) port 2 #t))) + +(call-with-output-file "markup-list-commands.tely" + (lambda (port) + (dump-node (markup-list-doc-node) port 2 #t))) (display (identifiers-doc-string) @@ -72,7 +76,23 @@ @ifhtml @c ***** HTML ***** -@macro usermanref{NAME} +@ifset bigpage + +@macro ruser{TEXT} +@ref{\\TEXT\\,,,lilypond-big-page,Notation Reference} +@cindex \\TEXT\\ +@end macro + +@macro glossaryref{TEXT} +@vindex \\TEXT\\ +@ref{\\TEXT\\,,,music-glossary-big-page,Music Glossary} +@end macro + +@end ifset + +@ifclear bigpage + +@macro ruser{NAME} @ref{\\NAME\\,,,lilypond} @cindex \\NAME\\ @end macro @@ -82,6 +102,8 @@ @cindex \\NAME\\ @end macro +@end ifclear + @macro inputfileref{DIR,NAME} @uref{source/\\DIR\\/out-www/collated-files.html#\\NAME\\,@file{\\DIR\\/\\NAME\\}}@c @end macro @@ -97,13 +119,8 @@ @ifinfo @c ***** info ***** -@macro usermanref{NAME} -@inforef{\\NAME\\,,,lilypond} -@cindex \\NAME\\ -@end macro - -@macro glossaryref{NAME} -@inforef{\\NAME\\,,lilypond/music-glossary} +@macro ruser{NAME} +@ref{\\NAME\\,,,lilypond} @cindex \\NAME\\ @end macro @@ -120,7 +137,7 @@ @iftex @c ***** TeX ***** -@macro usermanref{NAME} +@macro ruser{NAME} @ref{\\NAME\\}@c @end macro @@ -134,7 +151,7 @@ @end iftex -@macro internalsref{NAME} +@macro rinternals{NAME} @ref{\\NAME\\} @end macro