| … | |
… | |
| 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; |
