/[texi2html]/texi2html/examples/makeinfo.init
ViewVC logotype

Diff of /texi2html/examples/makeinfo.init

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by pertusus, Mon Aug 22 16:37:20 2005 UTC revision 1.11 by pertusus, Tue Aug 23 06:58:04 2005 UTC
# Line 52  $index_letter       = \&makeinfo_like_in Line 52  $index_letter       = \&makeinfo_like_in
52  $print_index        = \&makeinfo_like_print_index;  $print_index        = \&makeinfo_like_print_index;
53  $listoffloats       = \&makeinfo_like_listoffloats;  $listoffloats       = \&makeinfo_like_listoffloats;
54  $listoffloats_entry = \&makeinfo_like_listoffloats_entry;  $listoffloats_entry = \&makeinfo_like_listoffloats_entry;
55    $menu_link          = \&makeinfo_like_menu_link;
56    $menu_description   = \&makeinfo_like_menu_description;
57    $menu_comment       = \&makeinfo_like_menu_comment;
58    $menu               = \&makeinfo_like_menu;
59    # this is buggy, see TODO
60    #$normal_text        = \&makeinfo_like_normal_text;
61    
62  sub makeinfo_like_foot_line_and_ref($$$$$$$$)  sub makeinfo_like_foot_line_and_ref($$$$$$$$)
63  {  {
# Line 148  sub makeinfo_like_listoffloats($$$) Line 154  sub makeinfo_like_listoffloats($$$)
154      return $result . "</ul>\n";      return $result . "</ul>\n";
155  }  }
156    
157    # a whole menu
158    #
159    # argument:
160    # the whole menu text (entries and menu comments)
161    #
162    # argument:
163    # whole menu text.
164    sub makeinfo_like_menu($)
165    {
166        my $text = shift;
167        if ($text =~ /\S/)
168        {
169            return "<ul>\n"
170            . $text . "</ul>\n";
171        }
172    }
173    
174  # formats a menu entry link pointing to a node or section  # formats a menu entry link pointing to a node or section
175  #  #
176  # arguments:  # arguments:
# Line 225  sub makeinfo_like_menu_comment($) Line 248  sub makeinfo_like_menu_comment($)
248     return '';     return '';
249  }  }
250    
251    sub makeinfo_like_normal_text($)
252    {
253        my $text = shift;
254        $text =~ s/---/&mdash;/g;
255        $text =~ s/---/&ndash;/g;
256        $text =~ s/``/&ldquo;/g;
257        $text =~ s/''/&rdquo;/g;
258        return $text;
259    }

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26