| 1 | #!/usr/bin/perl |
1 | #!/usr/bin/perl |
| 2 | |
2 | |
| 3 | # TODO: texinfo fails on @cinde xin title elements etc. *sigh* |
3 | # TODO: texinfo fails on @cindex in title elements etc. *sigh* |
| 4 | |
4 | |
| 5 | use Pod::POM; |
5 | use Pod::POM; |
| 6 | |
6 | |
| 7 | sub escape_texi($) { |
7 | sub escape_texi($) { |
| 8 | local $_ = shift; |
8 | local $_ = shift; |
| … | |
… | |
| 92 | out "\n\n\@itemize\n"; |
92 | out "\n\n\@itemize\n"; |
| 93 | $walker->($_) for $n->content; |
93 | $walker->($_) for $n->content; |
| 94 | out "\@end itemize\n\n"; |
94 | out "\@end itemize\n\n"; |
| 95 | |
95 | |
| 96 | } elsif ($t eq "item") { |
96 | } elsif ($t eq "item") { |
| 97 | out "\n\n\@item\n\@b{" . $n->title . "}\n\n"; |
97 | out "\n\n\@item\n" . $n->title . "\n\n"; |
| 98 | |
98 | |
| 99 | if ($n->title->present (TXT::) =~ /^\s*([a-zA-Z0-9\-\_]+)\s*=/) { |
99 | if ($n->title->present (TXT::) =~ /^\s*([a-zA-Z0-9\-\_]+)\s*=/) { |
| 100 | out "\@cindex $1\n"; |
100 | out "\@cindex $1\n"; |
| 101 | } |
101 | } |
| 102 | $walker->($_) for $n->content; |
102 | $walker->($_) for $n->content; |
