doc/site.conf


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

# -*- 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;