]> granicus.if.org Git - python/commitdiff
- add link relationships to some of the links in the navigation panels
authorFred Drake <fdrake@acm.org>
Fri, 2 May 2003 20:18:01 +0000 (20:18 +0000)
committerFred Drake <fdrake@acm.org>
Fri, 2 May 2003 20:18:01 +0000 (20:18 +0000)
- implement custom_REL_hook() so LaTeX2HTML uses currently recommended
  link types; those work fine with tools like the Mozilla Site
  Navigation Bar

Doc/perl/l2hinit.perl

index 8213740da536f5014bccd8348ef89cd9278ce5e8..b5caf6bb35da45b996bd245e477cc9a142c8c6d1 100644 (file)
@@ -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.