mirrors/cpython
1
0
Fork 0
mirror of https://github.com/python/cpython.git synced 2025-11-01 02:38:53 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 15

Control when/where navigation bars will appear: top & bottom of each page.

Browse source 
Include an additional button to the module index in the nav. bars if we
generate a module index.  Still need a button image, but the ALT text should
do for now.
This commit is contained in:
Fred Drake 1998-08-11 03:14:50 +00:00
parent ab9d6f0be9
commit 6aa5d482fb
1 changed files with 14 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Doc/perl/l2hinit.perl
View file

@ -13,8 +13,7 @@ use Cwd qw(getcwd);
package main;
$INFO = 1; # 0 = do not make a "About this document..." section
$MAX_LINK_DEPTH = 3;
$MAX_LINK_DEPTH = 2;
$ADDRESS = '';
$NO_FOOTNODE = 1;
@ -27,6 +26,11 @@ $SHOW_SECTION_NUMBERS = 1;
$ICONSERVER = '../icons';
# Control where the navigation bars should show up:
$TOP_NAVIGATION = 1;
$BOTTOM_NAVIGATION = 1;
$AUTO_NAVIGATION = 0;
$BODYTEXT = 'bgcolor="#ffffff"';
$CHILDLINE = "\n<p><hr>\n";
$VERBOSITY = 0;
@ -81,13 +85,15 @@ sub custom_driver_hook{
}
$CUSTOM_BUTTONS = '';
sub make_nav_panel{
($NEXT_TITLE ? $NEXT : '')
. ($UP_TITLE ? $UP : '')
. ($PREVIOUS_TITLE ? $PREVIOUS : '')
. $CONTENTS
. $CUSTOM_BUTTONS
. $INDEX
# . " $CUSTOM_BUTTONS"
. "\n<br>\n"
. ($NEXT_TITLE ? "<b>Next:</b> $NEXT_TITLE\n" : '')
. ($UP_TITLE ? "<b>Up:</b> $UP_TITLE\n" : '')
@ -346,6 +352,11 @@ sub add_bbl_and_idx_dummy_commands {
my $rx = "([\\\\]begin\\s*$O\\d+$C\\s*theindex[\\s\\S]*)"
. "([\\\\]begin\\s*$O\\d+$C\\s*theindex)";
s/$rx/\\textohtmlmoduleindex \1 \\textohtmlindex \2/o;
# Add a button to the navigation areas:
$CUSTOM_BUTTONS .= ("<a\n href=\"modindex.html\"><img"
. " src=\"$ICONSERVER$dd"
. "modules_motif.gif\" border=0"
. " alt=\"[Modules]\"></a>");
}
else {
$global{'max_id'} = $id; # not sure why....