summaryrefslogtreecommitdiff
path: root/doc/site.conf
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-20 21:52:52 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-20 21:52:52 +0200
commit25a39cf39fa1b29636111d03ba35cd4862fcba8d (patch)
tree4e08224af77cd2b367c52b036fec44efc8ba425b /doc/site.conf
parent2170808fe933eef91dc374a76d3a56fa57747634 (diff)
downloadgeiser-chez-25a39cf39fa1b29636111d03ba35cd4862fcba8d.tar.gz
geiser-chez-25a39cf39fa1b29636111d03ba35cd4862fcba8d.tar.bz2
Scripts for generating Geiser's website.
Diffstat (limited to 'doc/site.conf')
-rw-r--r--doc/site.conf53
1 files changed, 53 insertions, 0 deletions
diff --git a/doc/site.conf b/doc/site.conf
new file mode 100644
index 0000000..6d3be76
--- /dev/null
+++ b/doc/site.conf
@@ -0,0 +1,53 @@
+# -*- perl -*-
+
+$DO_CONTENTS = 0;
+$DO_SCONTENTS = 0;
+
+@MISC_BUTTONS = ();
+@CHAPTER_BUTTONS = ('FastBack', 'FastForward', 'Top');
+
+$USER = 'jao';
+$DATE = '';
+
+$CSS_LINES = '<link rel="stylesheet" type="text/css" href="./geiser.css">';
+
+$print_page_foot = \&page_foot;
+$print_chapter_footer = \&chap_footer;
+$print_chapter_header = \&chap_header;
+
+sub page_foot($) {
+ my $h = shift;
+ print $h "</body>";
+}
+
+sub button_link {
+ my $label = shift;
+ my $txt = shift;
+ my $trail = shift;
+ &$anchor('', $Texi2HTML::HREF{$label}, $txt) . ($trail || '&nbsp;&nbsp;')
+}
+
+$jao_navigation_links = '';
+
+sub chap_header {
+ my $fh = shift;
+ $jao_navigation_links = nav_links();
+ # print $fh $jao_navigation_links;
+ print $fh "<hr>";
+}
+
+sub chap_footer {
+ my $fh = shift;
+ # print $fh "<hr>";
+ print $fh $jao_navigation_links;
+}
+
+sub nav_links {
+ '<div class="navigation"><table border="0"><tr><td align="left">'
+ . button_link('Top', 'Geiser', '</td><td align="right">')
+ . button_link('FastBack', '<')
+ . button_link('FastForward', '>', '</td></tr></table></div>');
+}
+
+1;
+