summaryrefslogtreecommitdiff
path: root/IkiWiki/Plugin/listpreprocessors.pm
diff options
context:
space:
mode:
authorJoey Hess <joey@kodama.kitenet.net>2008-08-25 13:38:44 -0400
committerJoey Hess <joey@kodama.kitenet.net>2008-08-25 13:38:44 -0400
commit4956623ee6b95c9fc62d8af39d9236ddeb6de8c5 (patch)
tree1e6ace9da32236c446154a3e630735ef314ed738 /IkiWiki/Plugin/listpreprocessors.pm
parentc62cbc31c2b7db7694c341ddb4212545728cb3b7 (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.pm96
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