]> sipb.mit.edu Git - ikiwiki.git/blob - IkiWiki/Plugin/tag.pm
* Switch pagetemplate hooks to using named parameters.
[ikiwiki.git] / IkiWiki / Plugin / tag.pm
1 #!/usr/bin/perl
2 # Ikiwiki tag plugin.
3 package IkiWiki::Plugin::tag;
4
5 use warnings;
6 use strict;
7 use IkiWiki;
8
9 my %tags;
10
11 sub import { #{{{
12         IkiWiki::hook(type => "preprocess", id => "tag",
13                 call => \&preprocess);
14         IkiWiki::hook(type => "pagetemplate", id => "tag",
15                 call => \&pagetemplate);
16 } # }}}
17
18 sub preprocess (@) { #{{{
19         if (! @_) {
20                 return "";
21         }
22         my %params=@_;
23         my $page = $params{page};
24         delete $params{page};
25
26         $tags{$page} = [];
27         foreach my $tag (keys %params) {
28                 push @{$tags{$page}}, $tag;
29                 # hidden WikiLink
30                 push @{$IkiWiki::links{$page}}, $tag;
31         }
32                 
33         return "";
34 } # }}}
35
36 sub pagetemplate (@) { #{{{
37         my %params=@_;
38         my $page=$params{page};
39         my $destpage=$params{destpage};
40         my $template=$params{template};
41
42         $template->param(tags => join(', ', 
43                         map { IkiWiki::htmllink($page, $destpage, $_) } 
44                                 @{$tags{$page}}))
45                 if exists $tags{$page} && $template->query(name => "tags");
46 } # }}}
47
48 1