mirrors/cpython
1
0
Fork 0
mirror of https://github.com/python/cpython.git synced 2025-07-24 11:44:31 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 8

$OFF_SITE_LINK_ICON: Don't define here; simply defining it overrides a

Browse source 
definition provided by previously loaded configuration code, and
        testing whether it's defined isn't needed since the default was
        false anyway.

get_link_icon():  Add support for $OFF_SITE_LINK_ICON_HEIGHT and
        $OFF_SITE_LINK_ICON_WIDTH, giving the dimensions of the icon
        being used.  This can make for faster page display.  Both are
        optional.

make_my_titlegraphic():  Fix insertion of the off-site icon link.

do_env_funcdesc():  Remove debugging print.

handle_rfclike_reference():  Remove trailing colon from first line; it
        doesn't really make sense and looks bad if we add an icon to
        mark off-site links.
This commit is contained in:
Fred Drake 2000-10-03 06:05:25 +00:00
parent 58a2dff7f4
commit 5f84c9b55e
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Doc/perl/python.perl
View file

@ -36,15 +36,20 @@ sub make_icon_filename($){
return "$mydir$dd$myname$myext";
}
$OFF_SITE_LINK_ICON = '';
sub get_link_icon($){
my $url = @_[0];
if ($OFF_SITE_LINK_ICON && ($url =~ /^[-a-zA-Z0-9.]+:/)) {
# absolute URL; assume it points off-site
my $icon = make_icon_filename($OFF_SITE_LINK_ICON);
return (" <img src='$icon'\n"
. " height='12' width='15' border='0' alt='[off-site link]'\n"
. " border='0' class='offsitelink'"
. ($OFF_SITE_LINK_ICON_HEIGHT
? " height='$OFF_SITE_LINK_ICON_HEIGHT'"
: '')
. ($OFF_SITE_LINK_ICON_WIDTH
? " width='$OFF_SITE_LINK_ICON_WIDTH'"
: '')
. " alt='[off-site link]'\n"
. " >");
}
return '';
@ -769,7 +774,6 @@ sub do_env_funcdesc{
my $arg_list = convert_args(next_argument());
my $idx = make_str_index_entry("<tt class='function'>$function_name()</tt>"
. get_indexsubitem());
print "\n--- funcdesc arg_list:\n$arg_list\n===";
$idx =~ s/ \(.*\)//;
$idx =~ s/\(\)<\/tt>/<\/tt>/;
return "<dl><dt><b>$idx</b> (<var>$arg_list</var>)\n<dd>" . $_ . '</dl>';
@ -1293,7 +1297,7 @@ sub make_my_titlegraphic() {
if ($TITLE_PAGE_GRAPHIC_WIDTH);
$graphic .= " height=\"$TITLE_PAGE_GRAPHIC_HEIGHT\""
if ($TITLE_PAGE_GRAPHIC_HEIGHT);
$graphic .= "\n src=\"$mydir/$myname$myext\"></td>\n";
$graphic .= "\n src=\"$filename\"></td>\n";
return $graphic;
}
@ -1480,7 +1484,7 @@ sub handle_rfclike_reference{
return '<dl compact class="seerfc">'
. "\n <dt><a href=\"$url\""
. "\n title=\"$title\""
. "\n >$what $rfcnum, <em>$title</em>$icon</a>:"
. "\n >$what $rfcnum, <em>$title</em>$icon</a>"
. "\n <dd>$text\n </dl>"
. $_;
}
@ -1498,8 +1502,8 @@ sub do_cmd_seetitle{
my $url = next_optional_argument();
my $title = next_argument();
my $text = next_argument();
my $icon = get_link_icon($url);
if ($url) {
my $icon = get_link_icon($url);
return '<dl compact class="seetitle">'
. "\n <dt><em class=\"citetitle\"><a href=\"$url\""
. "\n >$title$icon</a></em>"