From 25a39cf39fa1b29636111d03ba35cd4862fcba8d Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 20 Jun 2010 21:52:52 +0200
Subject: Scripts for generating Geiser's website.

---
 doc/site.conf | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 doc/site.conf

(limited to 'doc/site.conf')

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;
+
-- 
cgit v1.2.3