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 %tag;
  10
  11 sub import { #{{{
  12         IkiWiki::hook(type => "preprocess", id => "tag", call => \&preprocess);
  13 } # }}}
  14
  15 sub preprocess (@) { #{{{
  16         if (! @_) {
  17                 return "";
  18         }
  19         my %params=@_;
  20         my $page = $params{page};
  21         delete $params{page};
  22
  23         foreach my $tag (keys %params) {
  24                 # hidden WikiLink
  25                 push @{$IkiWiki::links{$page}}, $tag;
  26         }
  27
  28         return "";
  29 } # }}}
  30
  31 1