3 package IkiWiki::Plugin::tag;
12 hook(type => "getopt", id => "tag", call => \&getopt);
13 hook(type => "preprocess", id => "tag", call => \&preprocess, scan => 1);
14 hook(type => "pagetemplate", id => "tag", call => \&pagetemplate);
18 eval q{use Getopt::Long};
20 Getopt::Long::Configure('pass_through');
21 GetOptions("tagbase=s" => \$config{tagbase});
24 sub tagpage ($) { #{{{
27 if (exists $config{tagbase} &&
28 defined $config{tagbase}) {
29 $tag=$config{tagbase}."/".$tag;
35 sub preprocess (@) { #{{{
40 my $page = $params{page};
42 delete $params{destpage};
43 delete $params{preview};
45 foreach my $tag (keys %params) {
46 $tag=IkiWiki::linkpage($tag);
49 push @{$links{$page}}, tagpage($tag);
55 sub pagetemplate (@) { #{{{
57 my $page=$params{page};
58 my $destpage=$params{destpage};
59 my $template=$params{template};
61 $template->param(tags => [
63 link => htmllink($page, $destpage, tagpage($_),
65 }, sort keys %{$tags{$page}}
66 ]) if exists $tags{$page} && %{$tags{$page}} && $template->query(name => "tags");
68 if ($template->query(name => "categories")) {
69 # It's an rss/atom template. Add any categories.
70 if (exists $tags{$page} && %{$tags{$page}}) {
71 $template->param(categories => [map { category => $_ },
72 sort keys %{$tags{$page}}]);