1 package IkiWiki::Plugin::table;
2 # by Victor Moral <victor@taquiones.net>
10 hook(type => "preprocess", id => "table", call => \&preprocess);
13 sub preprocess (@) { #{{{
20 if (exists $params{file}) {
21 if (! $pagesources{$params{file}}) {
22 return "[[table ".gettext("cannot find file")."]]";
24 $params{data} = readfile(srcfile($params{file}));
27 $params{data} = IkiWiki::linkify($params{page},
28 $params{destpage}, $params{data});
31 if (lc $params{format} eq 'auto') {
32 # first try the more simple format
33 if (is_dsv_data($params{data})) {
34 $params{format} = 'dsv';
37 $params{format} = 'csv';
42 if (lc $params{format} eq 'csv') {
43 @data=split_csv($params{data},
44 defined $params{delimiter} ? $params{delimiter} : ",",);
46 elsif (lc $params{format} eq 'dsv') {
47 @data=split_dsv($params{data},
48 defined $params{delimiter} ? $params{delimiter} : "|",);
51 return "[[table ".gettext("unknown data format")."]]";
55 if (lc($params{header}) eq "yes") {
59 return "[[table ".gettext("empty data")."]]";
63 push @lines, defined $params{class}
64 ? "<table class=\"".$params{class}.'">'
66 push @lines, "\t<thead>",
67 genrow($params{page}, $params{destpage}, "th", @$header),
68 "\t</thead>" if defined $header;
69 push @lines, "\t<tbody>";
70 push @lines, genrow($params{page}, $params{destpage}, "td", @$_)
72 push @lines, "\t</tbody>" if defined $header;
73 push @lines, '</table>';
74 my $html = join("\n", @lines);
76 if (exists $params{file}) {
78 htmllink($params{page}, $params{destpage}, $params{file},
79 linktext => gettext('Direct data download'));
86 sub is_dsv_data ($) { #{{{
89 my ($line) = split(/\n/, $text);
90 return $line =~ m{.+\|};
93 sub split_csv ($$) { #{{{
94 my @text_lines = split(/\n/, shift);
95 my $delimiter = shift;
97 eval q{use Text::CSV};
99 my $csv = Text::CSV->new({
100 sep_char => $delimiter,
102 allow_loose_quotes => 1,
103 }) || error("could not create a Text::CSV object");
107 foreach my $line (@text_lines) {
109 if ($csv->parse($line)) {
110 push(@data, [ map { decode_utf8 $_ } $csv->fields() ]);
113 debug(sprintf(gettext('parse fail at line %d: %s'),
114 $l, $csv->error_input()));
121 sub split_dsv ($$) { #{{{
122 my @text_lines = split(/\n/, shift);
123 my $delimiter = shift;
124 $delimiter="|" unless defined $delimiter;
127 foreach my $line (@text_lines) {
128 push @data, [ split(/\Q$delimiter\E/, $line, -1) ];
134 sub genrow ($$$@) { #{{{
136 my $destpage = shift;
141 push @ret, "\t\t<tr>";
142 for (my $x=0; $x < @data; $x++) {
143 my $cell=htmlize($page, $destpage, $data[$x]);
145 while ($x+1 < @data && $data[$x+1] eq '') {
150 push @ret, "\t\t\t<$elt colspan=\"$colspan\">$cell</$elt>"
153 push @ret, "\t\t\t<$elt>$cell</$elt>"
156 push @ret, "\t\t</tr>";
161 sub htmlize ($$$) { #{{{
163 my $destpage = shift;
166 $text=IkiWiki::htmlize($page, pagetype($pagesources{$page}),
167 IkiWiki::preprocess($page, $destpage, $text));
169 # hack to get rid of enclosing junk added by markdown