--- rxvt-unicode/doc/podtbl 2004/08/12 21:30:14 1.1
+++ rxvt-unicode/doc/podtbl 2007/12/13 00:43:57 1.5
@@ -22,8 +22,8 @@
L => "i", # broken
F => "tt",
S => "nobr", # non-std
- X => "span", # brokwn
- Z => "span", # brokwn
+ X => "span", # broken
+ Z => "span", # broken
);
# strip formatting codes, dumb version
map {
@@ -44,7 +44,7 @@
shift;
return $self->SUPER::command (@_);
}
-}
+}
sub verbatim {
my ($self, $para) = @_;
@@ -58,23 +58,34 @@
my $fh = $self->output_handle;
# format the table
- # tbl first
+ # text
+ print $fh "=begin text\n\n";
+
+ for (@$table) {
+ print $fh " ", (map +(sprintf "%-15s ", $_), stripfcodes @$_), "\n";
+ }
+
+ print $fh "\n=end text\n\n";
+
+
+ # tbl
print $fh "=begin roff\n\n";
print $fh ".TS\n" . ("l " x $cols) . ".\n";
print $fh map +(join "\t", stripfcodes @$_) . "\n", @$table;
- print $fh ".TE\n\n";
+ print $fh ".TE\n";
- print $fh "=end roff\n\n";
+ print $fh "\n=end roff\n\n";
- # html second
- print $fh "=begin html\n\n";
+ # html
+ # pod::xhtml fails on begin/end blocks
+# print $fh "=begin xhtml\n\n";
- print $fh "
\n";
- print $fh map "" . +(join " | ", htmlfcodes @$_) . " |
\n", @$table;
+ print $fh "=for html ";
+ print $fh map "" . +(join " | ", htmlfcodes @$_) . " |
", @$table;
print $fh "
\n\n";
- print $fh "=end html\n\n";
+# print $fh "\n=end xhtml\n\n";
}