[Texi2html-cvs] Changes to texi2html/examples/makeinfo.init

[Patrice Dumas]

Index: texi2html/examples/makeinfo.init
diff -u texi2html/examples/makeinfo.init:1.10 
texi2html/examples/makeinfo.init:1.11
--- texi2html/examples/makeinfo.init:1.10       Mon Aug 22 16:37:20 2005
+++ texi2html/examples/makeinfo.init    Tue Aug 23 06:58:04 2005
@@ -52,6 +52,12 @@
 $print_index        = \&makeinfo_like_print_index;
 $listoffloats       = \&makeinfo_like_listoffloats;
 $listoffloats_entry = \&makeinfo_like_listoffloats_entry;
+$menu_link          = \&makeinfo_like_menu_link;
+$menu_description   = \&makeinfo_like_menu_description;
+$menu_comment       = \&makeinfo_like_menu_comment;
+$menu               = \&makeinfo_like_menu;
+# this is buggy, see TODO
+#$normal_text        = \&makeinfo_like_normal_text;
 
 sub makeinfo_like_foot_line_and_ref($$$$$$$$)
 {
@@ -148,6 +154,23 @@
     return $result . "</ul>\n";
 }
 
+# a whole menu
+#
+# argument:
+# the whole menu text (entries and menu comments)
+#
+# argument:
+# whole menu text.
+sub makeinfo_like_menu($)
+{
+    my $text = shift;
+    if ($text =~ /\S/)
+    {
+        return "<ul>\n" 
+        . $text . "</ul>\n";
+    }
+}
+
 # formats a menu entry link pointing to a node or section 
 #
 # arguments:
@@ -225,3 +248,12 @@
    return '';
 }
 
+sub makeinfo_like_normal_text($)
+{
+    my $text = shift;
+    $text =~ s/---/&mdash;/g;
+    $text =~ s/---/&ndash;/g;
+    $text =~ s/``/&ldquo;/g;
+    $text =~ s/''/&rdquo;/g;
+    return $text;
+}