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.1 by root, Sun Aug 13 02:43:23 2006 UTC vs.
Revision 1.2 by root, Sun Aug 13 03:20:56 2006 UTC

… …
68 push @result, { 68 push @result, {
69 indent => $indent * 8, 69 indent => $indent * 8,
70 level => $level, 70 level => $level,
71 }; 71 };
72 my $title = $_[1]->title->present ($_[0]); 72 my $title = $_[1]->title->present ($_[0]);
73 $result[-1]{markup} = "$title\n\n"; 73 $result[-1]{markup} = "$title\n\n" if length $title;
74 unshift @{ $result[-1]{index} }, ::flatten $title; 74 $title = ::flatten $title; unshift @{ $result[-1]{index} }, $title if length $title;
75 local $level = $level + 1; 75 local $level = $level + 1;
76 $_[1]->content->present ($_[0]); 76 $_[1]->content->present ($_[0]);
77 () 77 ()
78} 78}
79 79
… …
99 push @result, { 99 push @result, {
100 indent => $indent * 16, 100 indent => $indent * 16,
101 level => $level, 101 level => $level,
102 }; 102 };
103 my $title = $_[1]->title->present ($_[0]); 103 my $title = $_[1]->title->present ($_[0]);
104 $result[-1]{markup} = "\n\n<span foreground='#ffff00' size='x-large'>$title</span>\n"; 104 $result[-1]{markup} = "\n\n<span foreground='#ffff00' size='x-large'>$title</span>\n" if length $title;
105 unshift @{ $result[-1]{index} }, ::flatten $title; 105 $title = ::flatten $title; unshift @{ $result[-1]{index} }, $title if length $title;
106 local $level = $level + 1; 106 local $level = $level + 1;
107 $_[1]->content->present ($_[0]); 107 $_[1]->content->present ($_[0]);
108 () 108 ()
109}; 109};
110 110
… …
112 push @result, { 112 push @result, {
113 indent => $indent * 16, 113 indent => $indent * 16,
114 level => $level, 114 level => $level,
115 }; 115 };
116 my $title = $_[1]->title->present ($_[0]); 116 my $title = $_[1]->title->present ($_[0]);
117 $result[-1]{markup} = "\n\n<span foreground='#ccccff' size='large'>$title</span>\n"; 117 $result[-1]{markup} = "\n\n<span foreground='#ccccff' size='large'>$title</span>\n" if length $title;
118 unshift @{ $result[-1]{index} }, ::flatten $title; 118 $title = ::flatten $title; unshift @{ $result[-1]{index} }, $title if length $title;
119 local $level = $level + 1; 119 local $level = $level + 1;
120 $_[1]->content->present ($_[0]); 120 $_[1]->content->present ($_[0]);
121 () 121 ()
122}; 122};
123 123
… …
125 push @result, { 125 push @result, {
126 indent => $indent * 16, 126 indent => $indent * 16,
127 level => $level, 127 level => $level,
128 }; 128 };
129 my $title = $_[1]->title->present ($_[0]); 129 my $title = $_[1]->title->present ($_[0]);
130 $result[-1]{markup} = "\n\n<span size='large'>$title</span>\n"; 130 $result[-1]{markup} = "\n\n<span size='large'>$title</span>\n" if length $title;
131 unshift @{ $result[-1]{index} }, ::flatten $title; 131 $title = ::flatten $title; unshift @{ $result[-1]{index} }, $title if length $title;
132 local $level = $level + 1; 132 local $level = $level + 1;
133 $_[1]->content->present ($_[0]); 133 $_[1]->content->present ($_[0]);
134 () 134 ()
135}; 135};
136 136
… …
162############################################################################# 162#############################################################################
163 163
164sub as_paragraphs($) { 164sub as_paragraphs($) {
165 my ($pom) = @_; 165 my ($pom) = @_;
166 166
167 local @result = ( { } );
168 local $indent = 0; 167 local $indent = 0;
169 local $level = 1; 168 local $level = 1;
169 local @result = ( { } );
170 170
171 $pom->present ("AsParagraphs"); 171 $pom->present ("AsParagraphs");
172 172
173 [grep exists $_->{markup}, @result] 173 [grep $_->{index} || exists $_->{markup}, @result]
174} 174}
175 175
176############################################################################# 176#############################################################################
177 177
178my %wiki; 178my %wiki;

Diff Legend

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