diff options
author | Joey Hess <joey@kodama.kitenet.net> | 2008-08-25 13:38:44 -0400 |
---|---|---|
committer | Joey Hess <joey@kodama.kitenet.net> | 2008-08-25 13:38:44 -0400 |
commit | 4956623ee6b95c9fc62d8af39d9236ddeb6de8c5 (patch) | |
tree | 1e6ace9da32236c446154a3e630735ef314ed738 /IkiWiki/Plugin/listpreprocessors.pm | |
parent | c62cbc31c2b7db7694c341ddb4212545728cb3b7 (diff) |
rename plugin
I don't want to be stuck renameing it later if preprocessor directives are
turned into postprocessor directives. Also, "directives" is shorter and
clearer than "preprocessors".
Diffstat (limited to 'IkiWiki/Plugin/listpreprocessors.pm')
-rw-r--r-- | IkiWiki/Plugin/listpreprocessors.pm | 96 |
1 files changed, 0 insertions, 96 deletions
diff --git a/IkiWiki/Plugin/listpreprocessors.pm b/IkiWiki/Plugin/listpreprocessors.pm deleted file mode 100644 index ca58ef1a1..000000000 --- a/IkiWiki/Plugin/listpreprocessors.pm +++ /dev/null @@ -1,96 +0,0 @@ -#!/usr/bin/perl -# Ikiwiki listpreprocessors plugin. -package IkiWiki::Plugin::listpreprocessors; - -use warnings; -use strict; -use IkiWiki 2.00; - -sub import { #{{{ - hook(type => "getsetup", id => "listpreprocessors", call => \&getsetup); - hook(type => "checkconfig", id => "listpreprocessors", call => \&checkconfig); - hook(type => "needsbuild", id => "listpreprocessors", call => \&needsbuild); - hook(type => "preprocess", id => "listpreprocessors", call => \&preprocess); -} # }}} - -sub getsetup () { #{{{ - return - plugin => { - safe => 1, - rebuild => undef, - }, - preprocessor_description_dir => { - type => "string", - description => "directory in srcdir that contains preprocessor descriptions", - example => "ikiwiki/plugin", - safe => 1, - rebuild => 1, - }, -} #}}} - -my @fulllist; -my @earlylist; -my $pluginstring; - -sub checkconfig () { #{{{ - if (! defined $config{preprocessor_description_dir}) { - $config{preprocessor_description_dir} = "ikiwiki/plugin"; - } - else { - $config{preprocessor_description_dir}=~s/\/+$//; - } - - @earlylist = sort( keys %{ $IkiWiki::hooks{preprocess} } ); -} #}}} - -sub needsbuild (@) { #{{{ - my $needsbuild=shift; - - @fulllist = sort( keys %{ $IkiWiki::hooks{preprocess} } ); - $pluginstring = join (' ', @earlylist) . " : ". join (' ', @fulllist); - - foreach my $page (keys %pagestate) { - if (exists $pagestate{$page}{listpreprocessors}{shown}) { - if ($pagestate{$page}{listpreprocessors}{shown} ne $pluginstring) { - push @$needsbuild, $pagesources{$page}; - } - if (exists $pagesources{$page} && - grep { $_ eq $pagesources{$page} } @$needsbuild) { - # remove state, will be re-added if - # the [[!listpreprocessors]] is still there during the - # rebuild - delete $pagestate{$page}{listpreprocessors}{shown}; - } - } - } -} # }}} - -sub preprocess (@) { #{{{ - my %params=@_; - - $pagestate{$params{destpage}}{listpreprocessors}{shown}=$pluginstring; - - my @pluginlist; - - if (defined $params{generated}) { - @pluginlist = @fulllist; - } - else { - @pluginlist = @earlylist; - } - - my $result = '<ul class="listpreprocessors">'; - - foreach my $plugin (@pluginlist) { - $result .= '<li class="listpreprocessors">'; - $result .= htmllink($params{page}, $params{destpage}, - IkiWiki::linkpage($config{preprocessor_description_dir}."/".$plugin)); - $result .= '</li>'; - } - - $result .= "</ul>"; - - return $result; -} # }}} - -1 |