summaryrefslogtreecommitdiffstats
path: root/Doc/perl
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>2003-05-02 20:18:01 (GMT)
committerFred Drake <fdrake@acm.org>2003-05-02 20:18:01 (GMT)
commitbf8ec3e035ee7cc5493c27dd816a1961782519c4 (patch)
tree4817645b02e9c91aba3fb806cca6854cc64a6ee9 /Doc/perl
parent5466296f02c2d53894aa51ef035ddf690b5d2224 (diff)
downloadcpython-bf8ec3e035ee7cc5493c27dd816a1961782519c4.zip
cpython-bf8ec3e035ee7cc5493c27dd816a1961782519c4.tar.gz
cpython-bf8ec3e035ee7cc5493c27dd816a1961782519c4.tar.bz2
- add link relationships to some of the links in the navigation panels
- implement custom_REL_hook() so LaTeX2HTML uses currently recommended link types; those work fine with tools like the Mozilla Site Navigation Bar
Diffstat (limited to 'Doc/perl')
-rw-r--r--Doc/perl/l2hinit.perl23
1 files changed, 16 insertions, 7 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 8213740..b5caf6b 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -99,16 +99,16 @@ sub custom_driver_hook {
$CUSTOM_BUTTONS = '';
-sub make_nav_sectref($$) {
- my($label, $title) = @_;
+sub make_nav_sectref($$$) {
+ my($label, $linktype, $title) = @_;
if ($title) {
if ($title =~ /\<[aA] /) {
- $title =~ s/\<[aA] /<a class="sectref" /;
+ $title =~ s/\<[aA] /<a class="sectref" rel="$linktype" /;
}
else {
$title = "<span class=\"sectref\">$title</span>";
}
- return "<b class=\"navlabel\">$label:</b> $title\n";
+ return "<b class=\"navlabel\">$label:</b>\n$title\n";
}
return '';
}
@@ -175,9 +175,9 @@ sub make_nav_panel() {
. "\n<td>$INDEX</td>"
. "\n</tr></table>\n"
# textual navigation
- . make_nav_sectref("Previous", $PREVIOUS_TITLE)
- . make_nav_sectref("Up", $UP_TITLE)
- . make_nav_sectref("Next", $NEXT_TITLE)
+ . make_nav_sectref("Previous", "prev", $PREVIOUS_TITLE)
+ . make_nav_sectref("Up", "parent", $UP_TITLE)
+ . make_nav_sectref("Next", "next", $NEXT_TITLE)
);
# remove these; they are unnecessary and cause errors from validation
$s =~ s/ NAME="tex2html\d+"\n */ /g;
@@ -581,6 +581,15 @@ sub set_depth_levels {
%declarations);
+# This is used to map the link rel attributes LaTeX2HTML uses to those
+# currently recommended by the W3C.
+sub custom_REL_hook {
+ my($rel,$junk) = @_;
+ return 'parent' if $rel eq 'up';
+ return 'prev' if $rel eq 'previous';
+ return $rel;
+}
+
# This is added to get rid of the long comment that follows the
# doctype declaration; MSIE5 on NT4 SP4 barfs on it and drops the
# content of the page.