ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/bin/pod2wiki
(Generate patch)

Comparing deliantra/Deliantra-Client/bin/pod2wiki (file contents):
Revision 1.14 by root, Sun Mar 30 10:18:16 2008 UTC vs.
Revision 1.15 by root, Sun Mar 30 11:31:09 2008 UTC

… …
104} 104}
105 105
106sub view_head1 { 106sub view_head1 {
107 push @result, [ $indent * 16, $level ]; 107 push @result, [ $indent * 16, $level ];
108 my $title = $_[1]->title->present ($_[0]); 108 my $title = $_[1]->title->present ($_[0]);
109 $result[-1][P_MARKUP] = "\n\n<span foreground='#ffff00' size='x-large'>$title</span>\n" if length $title; 109 $result[-1][P_MARKUP] = ::special h1 => $title if length $title;
110 $title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title; 110 $title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title;
111 local $level = $level + 1; 111 local $level = $level + 1;
112 $_[1]->content->present ($_[0]); 112 $_[1]->content->present ($_[0]);
113 () 113 ()
114}; 114};
115 115
116sub view_head2 { 116sub view_head2 {
117 push @result, [ $indent * 16, $level ]; 117 push @result, [ $indent * 16, $level ];
118 my $title = $_[1]->title->present ($_[0]); 118 my $title = $_[1]->title->present ($_[0]);
119 $result[-1][P_MARKUP] = "\n\n<span foreground='#ccccff' size='large'>$title</span>\n" if length $title; 119 $result[-1][P_MARKUP] = ::special h2 => $title if length $title;
120 $title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title; 120 $title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title;
121 local $level = $level + 1; 121 local $level = $level + 1;
122 $_[1]->content->present ($_[0]); 122 $_[1]->content->present ($_[0]);
123 () 123 ()
124}; 124};
125 125
126sub view_head3 { 126sub view_head3 {
127 push @result, [ $indent * 16, $level ]; 127 push @result, [ $indent * 16, $level ];
128 my $title = $_[1]->title->present ($_[0]); 128 my $title = $_[1]->title->present ($_[0]);
129 $result[-1][P_MARKUP] = "\n\n<span size='large'>$title</span>\n" if length $title; 129 $result[-1][P_MARKUP] = ::special h3 => $title if length $title;
130 $title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title; 130 $title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title;
131 local $level = $level + 1; 131 local $level = $level + 1;
132 $_[1]->content->present ($_[0]); 132 $_[1]->content->present ($_[0]);
133 () 133 ()
134}; 134};

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines