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 |
{ |
{ |
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: |
248 |
return ''; |
return ''; |
249 |
} |
} |
250 |
|
|
251 |
|
sub makeinfo_like_normal_text($) |
252 |
|
{ |
253 |
|
my $text = shift; |
254 |
|
$text =~ s/---/—/g; |
255 |
|
$text =~ s/---/–/g; |
256 |
|
$text =~ s/``/“/g; |
257 |
|
$text =~ s/''/”/g; |
258 |
|
return $text; |
259 |
|
} |