From 4956623ee6b95c9fc62d8af39d9236ddeb6de8c5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 25 Aug 2008 13:38:44 -0400 Subject: 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". --- IkiWiki/Plugin/listpreprocessors.pm | 96 ------------------------------------- 1 file changed, 96 deletions(-) delete mode 100644 IkiWiki/Plugin/listpreprocessors.pm (limited to 'IkiWiki/Plugin/listpreprocessors.pm') 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 = '"; - - return $result; -} # }}} - -1 -- cgit v1.2.3