[Bibdesk-commit] SF.net SVN: bibdesk:[22390] trunk/bibdesk

hofman--- via Bibdesk-commit Fri, 06 Jul 2018 15:30:16 -0700

Revision: 22390
          http://sourceforge.net/p/bibdesk/svn/22390
Author:   hofman
Date:     2018-07-06 22:29:58 +0000 (Fri, 06 Jul 2018)
Log Message:
-----------
html 4.01 transitional for help


Modified Paths:
--------------
    trunk/bibdesk/BibDesk.help/Contents/Resources/English.lproj/bibdesk.texi
    trunk/bibdesk/BibDeskHelp/applehelp.init

Modified: 
trunk/bibdesk/BibDesk.help/Contents/Resources/English.lproj/bibdesk.texi
===================================================================
--- trunk/bibdesk/BibDesk.help/Contents/Resources/English.lproj/bibdesk.texi    
2018-07-06 06:30:35 UTC (rev 22389)
+++ trunk/bibdesk/BibDesk.help/Contents/Resources/English.lproj/bibdesk.texi    
2018-07-06 22:29:58 UTC (rev 22390)
@@ -103,7 +103,7 @@
 
 @macro abstract{text}
 @html
-<META NAME="DESCRIPTION" CONTENT="\text\">
+<META NAME="DESCRIPTION" CONTENT="\text\" />
 @end html
 @end macro
 

Modified: trunk/bibdesk/BibDeskHelp/applehelp.init
===================================================================
--- trunk/bibdesk/BibDeskHelp/applehelp.init    2018-07-06 06:30:35 UTC (rev 
22389)
+++ trunk/bibdesk/BibDeskHelp/applehelp.init    2018-07-06 22:29:58 UTC (rev 
22390)
@@ -1,93 +1,16 @@
 # -*-perl-*-
 
-# HTML 3.2 - ouch!
-$DOCTYPE = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 3.2//EN" 
"http://www.w3.org/TR/html32/loose.dtd";>';
-$FRAMESET_DOCTYPE = $DOCTYPE;
 $USE_ISO = 0;
 $things_map{'oe'} = '&#156;';
 $things_map{'OE'} = '&#140;';
 $things_map{'ue'} = '&#252;';
 $things_map{'UE'} = '&#220;';
-$things_map{'dots'} = '<small>...</small>';
-$things_map{'enddots'} = '<small>....</small>';
-$things_map{'euro'} = 'Euro';
-$style_map{'sansserif'} = {};
-# &quot; is not in html 3.2
-sub t2h_html32_protect_text($)
-{
-   my $text = shift;
-   $text =~ s/&/&amp;/g;
-   $text =~ s/</&lt;/g;
-   $text =~ s/>/&gt;/g;
-   #$text =~ s/\"/&quot;/g;
-   return $text;
-}
 
-# a heading
-sub t2h_html32_heading($)
-{
-    my $element = shift;
-    my $text = $element->{'text'};
-    my $level = $element->{'level'};
-    my $tag_level = $element->{'tag_level'};
-    if (!$element->{'node'} && !$NUMBER_SECTIONS)
-       {
-        $text = $element->{'name'};
-       }
-    if (($tag_level eq "chapter") || ($tag_level eq "section") || ($tag_level 
eq "subsection") || ($tag_level eq "appendix"))
-    {
-        $text = 
&$image("gfx/BibDeskIcon.png","BibDesk",0,"gfx/BibDeskIcon.png") . " " . $text;
-    }
-    return "<h$level class=\"$tag_level\"> $text</h$level>$node\n";
-}
-
-# a preformatted section
-sub t2h_html32_preformatted($$$)
-{
-    my $text = shift;
-    my $pre_style = shift;
-    my $class = shift;
-
-    return '' if ($text eq '');
-    return "<pre>$text</pre>";
-}
-
-
-# a simple menu entry ref in case we aren't in a standard menu context
-sub t2h_html32_foot_section($)
-{
-    my $lines = shift;
-    unshift (@$lines, "<hr>\n", "<h3>Footnotes</h3>\n");
-    return $lines; 
-}
-# a whole menu
-sub t2h_html32_menu($)
-{
-    my $text = shift;
-    if ($text =~ /\S/)
-    {
-        return "<table border=\"0\" cellspacing=\"0\">\n" 
-        . $text . "</table>\n";
-    }
-}
-
-
-#$summary_letter    = \&t2h_html32_summary_letter;
-$protect_text      = \&t2h_html32_protect_text;
-#$heading           = \&t2h_html32_heading;
-$preformatted      = \&t2h_html32_preformatted;
-$menu              = \&t2h_html32_menu;
-$foot_section      = \&t2h_html32_foot_section;
-#$cartouche         = \&t2h_html32_cartouche;
-#$listoffloats      = \&t2h_html32_listoffloats;
-#$float             = \&t2h_html32_float;
-
 # External stylesheet:
 $CSS_LINES = "<link href=\"sty/bibdeskhelp.css\" rel=\"stylesheet\" 
media=\"all\" />";
 
 #@CHAPTER_BUTTONS = @MISC_BUTTONS;
 
-
 # horizontal rules
 $SMALL_RULE = '';
 $DEFAULT_RULE = '';
@@ -203,6 +126,7 @@
 <meta name="robots" content="anchors" />
 $encoding
 $CSS_LINES
+$EXTRA_HEAD
 </head>
 
 <body $BODYTEXT>
@@ -209,3 +133,44 @@
 $AFTER_BODY_OPEN
 EOT
 }
+
+$print_page_head = \&appleHelp_print_page_head;
+
+sub appleHelp_print_page_head($)
+{
+    my $fh = shift;
+    my $longtitle = "$Texi2HTML::THISDOC{'title_unformatted'}";
+    $longtitle .= ": $Texi2HTML::UNFORMATTED{'This'}" if exists 
$Texi2HTML::UNFORMATTED{'This'};
+    #my $longtitle = "$Texi2HTML::THISDOC{'title_no_texi'}";
+    #$longtitle .= ": $Texi2HTML::NO_TEXI{'This'}" if exists 
$Texi2HTML::NO_TEXI{'This'};
+    my $description = $DOCUMENT_DESCRIPTION;
+    $description = $longtitle if (!defined($description));
+    $description = "<meta name=\"description\" content=\"$description\" />" if
+    ($description ne '');
+    $description = $Texi2HTML::THISDOC{'documentdescription'} if 
(defined($Texi2HTML::THISDOC{'documentdescription'}));
+    my $encoding = '';
+    $encoding = "<meta http-equiv=\"Content-Type\" content=\"text/html; 
charset=$ENCODING\" />" if (defined($ENCODING) and ($ENCODING ne ''));
+    print $fh <<EOT;
+$DOCTYPE
+<html>
+$Texi2HTML::THISDOC{'copying'}<!-- Created on $Texi2HTML::THISDOC{today} by 
$Texi2HTML::THISDOC{program} -->
+<!--
+$Texi2HTML::THISDOC{program_authors}
+-->
+<head>
+<title>$longtitle</title>
+
+$description
+<meta name="keywords" content="$longtitle" />
+<meta name="resource-type" content="document" />
+<meta name="distribution" content="global" />
+<meta name="Generator" content="$Texi2HTML::THISDOC{program}" />
+$encoding
+$CSS_LINES
+$EXTRA_HEAD
+</head>
+
+<body $BODYTEXT>
+$AFTER_BODY_OPEN
+EOT
+}

This was sent by the SourceForge.net collaborative development platform, the 
world's largest Open Source development site.


------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
Bibdesk-commit mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/bibdesk-commit

[Bibdesk-commit] SF.net SVN: bibdesk:[22390] trunk/bibdesk

Reply via email to