blob: c8b55a90f4d17bae2f1bae741b53a2de5b1425ad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
# -*- perl -*-
$DO_CONTENTS = 0;
$DO_SCONTENTS = 0;
$PREFIX = geiser;
$NODE_FILES = 0;
$SEPARATED_FOOTNOTES = 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;
'<a class="navlink" href="' . $Texi2HTML::HREF{$label} . '">'
. $txt . '</a>' . $trail;
}
$jao_navigation_links = '';
sub chap_header {
my $fh = shift;
$jao_navigation_links = nav_links();
print $fh "<hr>";
}
sub chap_footer {
my $fh = shift;
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;
|