Separate main texi file for web site.

4 files changed, 69 insertions, 44 deletions

diff --git a/doc/Makefile.am b/doc/Makefile.am
index 3d7c6f0..185832a 100644
--- a/doc/Makefile.am
+++ b/doc/Makefile.am
@@ -14,7 +14,7 @@ EXTRA_DIST = geiser.css site.conf
 
 
 info_TEXINFOS = geiser.texi
-geiser_TEXINFOS = intro.texi install.texi tutorial.texi index.texi
+geiser_TEXINFOS = top.texi intro.texi install.texi tutorial.texi index.texi
 
 output_dir=$(top_builddir)/doc/html
 
@@ -26,5 +26,5 @@ web:
                   --nonumber-section \
                   --init-file=$(top_srcdir)/doc/site.conf \
                   --top-file=index.html \
-                  $(top_srcdir)/doc/geiser.texi
+                  $(top_srcdir)/doc/web.texi
 	cp $(top_srcdir)/doc/geiser.css ${output_dir}
diff --git a/doc/geiser.texi b/doc/geiser.texi
index 6232b4f..f5abc93 100644
--- a/doc/geiser.texi
+++ b/doc/geiser.texi
@@ -40,32 +40,7 @@ The document was typeset with
 @c Output the table of the contents at the beginning.
 @contents
 
-@ifnottex
-@node Top, Introduction, (dir), (dir)
-@top Geiser
-
-Geiser is a collection of Emacs major and minor modes that conspire with
-one or more Scheme interpreters to keep the Lisp Machine Spirit alive.
-It draws inspiration (and a bit more) from environments such as Common
-Lisp's Slime, Factor's FUEL, Squeak or Emacs itself, and does its best
-to make Scheme hacking inside Emacs (even more) fun.
-
-@cindex derailment
-@cindex corpses
-Or, to be precise, what @uref{http://hacks-galore.org/jao, i} consider
-fun. Geiser is thus my humble contribution to the dynamic school of
-expression, and a reaction against what i perceive as a derailment, in
-modern times, of standard Scheme towards the static camp. Because i
-prefer growing and healing to poking at corpses, the continuously
-running Scheme interpreter takes the center of the stage in Geiser. A
-bundle of Elisp shims orchestrates the dialog between the Scheme
-interpreter, Emacs and, ultimately, the schemer, giving her access to
-live metadata. Here's how.
-
-@ifnothtml
-@insertcopying
-@end ifnothtml
-@end ifnottex
+@include top.texi
 
 @menu
 * Introduction::
@@ -73,7 +48,6 @@ live metadata. Here's how.
 * Tutorial::
 * Index::
 
-@ifinfo
 @detailmenu
  --- The Detailed Node Listing ---
 
@@ -89,22 +63,7 @@ Installation
 * Friends::
 
 @end detailmenu
-@end ifinfo
 @end menu
-@ifhtml
-@html
-<div class="navigation" align="right">
-<a class="navlink"
-href="http://savannah.nongnu.org/news/?group=geiser">News</a>&nbsp;&nbsp;&nbsp;&nbsp;<a class="navlink"
-href="http://savannah.nongnu.org/files/?group=geiser">Downloads</a>&nbsp;&nbsp;&nbsp;&nbsp;<a class="navlink"
-href="http://savannah.nongnu.org/bugs/?group=geiser">Bugs</a>&nbsp;&nbsp;&nbsp;&nbsp;<a class="navlink"
-href="http://git.savannah.gnu.org/cgit/geiser.git">Source</a>&nbsp;&nbsp;&nbsp;&nbsp;<a class="navlink"
-href="http://lists.nongnu.org/mailman/listinfo/geiser-users">Mailing
-list</a>&nbsp;
-</div>
-@end html
-@end ifhtml
-
 
 @include intro.texi
 @include install.texi
diff --git a/doc/top.texi b/doc/top.texi
new file mode 100644
index 0000000..43168c0
--- /dev/null
+++ b/doc/top.texi
@@ -0,0 +1,31 @@
+@ifnottex
+@node Top, Introduction, (dir), (dir)
+@top Geiser
+@ifnothtml
+@insertcopying
+@end ifnothtml
+
+Geiser is a collection of Emacs major and minor modes that conspire with
+one or more Scheme interpreters to keep the Lisp Machine Spirit alive.
+It draws inspiration (and a bit more) from environments such as Common
+Lisp's Slime, Factor's FUEL, Squeak or Emacs itself, and does its best
+to make Scheme hacking inside Emacs (even more) fun.
+
+@cindex derailment
+@cindex corpses
+Or, to be precise, what @uref{http://hacks-galore.org/jao, i} consider
+fun. Geiser is thus my humble contribution to the dynamic school of
+expression, and a reaction against what i perceive as a derailment, in
+modern times, of standard Scheme towards the static camp. Because i
+prefer growing and healing to poking at corpses, the continuously
+running Scheme interpreter takes the center of the stage in Geiser. A
+bundle of Elisp shims orchestrates the dialog between the Scheme
+interpreter, Emacs and, ultimately, the schemer, giving her access to
+live metadata. Here's how.
+
+@end ifnottex
+
+@c Local Variables:
+@c mode: texinfo
+@c TeX-master: geiser
+@c End:
diff --git a/doc/web.texi b/doc/web.texi
new file mode 100644
index 0000000..b5140ed
--- /dev/null
+++ b/doc/web.texi
@@ -0,0 +1,35 @@
+
+@contents
+
+@include top.texi
+
+@menu
+* Introduction::
+* Installation::
+* Tutorial::
+* Index::
+@end menu
+
+@html
+<div class="navigation" align="right">
+<a class="navlink"
+href="http://savannah.nongnu.org/news/?group=geiser">News</a>&nbsp;&nbsp;&nbsp;&nbsp;<a class="navlink"
+href="http://savannah.nongnu.org/files/?group=geiser">Downloads</a>&nbsp;&nbsp;&nbsp;&nbsp;<a class="navlink"
+href="http://savannah.nongnu.org/bugs/?group=geiser">Bugs</a>&nbsp;&nbsp;&nbsp;&nbsp;<a class="navlink"
+href="http://git.savannah.gnu.org/cgit/geiser.git">Source</a>&nbsp;&nbsp;&nbsp;&nbsp;<a class="navlink"
+href="http://lists.nongnu.org/mailman/listinfo/geiser-users">Mailing
+list</a>&nbsp;
+</div>
+@end html
+
+@include intro.texi
+@include install.texi
+@include tutorial.texi
+@include index.texi
+
+@bye
+
+@c Local Variables:
+@c mode: texinfo
+@c TeX-master: t
+@c End: