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".

diff --git a/IkiWiki/Plugin/listdirectives.pm b/IkiWiki/Plugin/listdirectives.pm
new file mode 100644 (file)
index 0000000..fe4aee3
--- /dev/null
+++ b/IkiWiki/Plugin/listdirectives.pm
@@ -0,0 +1,96 @@
+#!/usr/bin/perl
+# Ikiwiki listdirectives plugin.
+package IkiWiki::Plugin::listdirectives;
+
+use warnings;
+use strict;
+use IkiWiki 2.00;
+
+sub import { #{{{
+       hook(type => "getsetup", id => "listdirectives", call => \&getsetup);
+       hook(type => "checkconfig", id => "listdirectives", call => \&checkconfig);
+       hook(type => "needsbuild", id => "listdirectives", call => \&needsbuild);
+       hook(type => "preprocess", id => "listdirectives", call => \&preprocess);
+} # }}}
+
+sub getsetup () { #{{{
+       return
+               plugin => {
+                       safe => 1,
+                       rebuild => undef,
+               },
+               directive_description_dir => {
+                       type => "string",
+                       description => "directory in srcdir that contains PreprocessorDirective descriptions",
+                       example => "ikiwiki/plugin",
+                       safe => 1,
+                       rebuild => 1,
+               },
+} #}}}
+
+my @fulllist;
+my @earlylist;
+my $pluginstring;
+
+sub checkconfig () { #{{{
+       if (! defined $config{directive_description_dir}) {
+               $config{directive_description_dir} = "ikiwiki/plugin";
+       }
+       else {
+               $config{directive_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}{listdirectives}{shown}) {
+                       if ($pagestate{$page}{listdirectives}{shown} ne $pluginstring) {
+                               push @$needsbuild, $pagesources{$page};
+                       }
+                       if (exists $pagesources{$page} &&
+                           grep { $_ eq $pagesources{$page} } @$needsbuild) {
+                               # remove state, will be re-added if
+                               # the [[!listdirectives]] is still there during the
+                               # rebuild
+                               delete $pagestate{$page}{listdirectives}{shown};
+                       }
+               }
+       }
+} # }}}
+
+sub preprocess (@) { #{{{
+       my %params=@_;
+       
+       $pagestate{$params{destpage}}{listdirectives}{shown}=$pluginstring;
+       
+       my @pluginlist;
+       
+       if (defined $params{generated}) {
+               @pluginlist = @fulllist;
+       }
+       else {
+               @pluginlist = @earlylist;
+       }
+       
+       my $result = '<ul class="listdirectives">';
+       
+       foreach my $plugin (@pluginlist) {
+               $result .= '<li class="listdirectives">';
+               $result .= htmllink($params{page}, $params{destpage},
+                       IkiWiki::linkpage($config{directive_description_dir}."/".$plugin));
+               $result .= '</li>';
+       }
+       
+       $result .= "</ul>";
+
+       return $result;
+} # }}}
+
+1

diff --git a/IkiWiki/Plugin/listpreprocessors.pm b/IkiWiki/Plugin/listpreprocessors.pm
deleted file mode 100644 (file)
index ca58ef1..0000000
--- 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

diff --git a/debian/copyright b/debian/copyright
index e7d1760ea6f05674b86ef24c390ea5c74bab95fd..b6c95ba990d66777cc6aad74c60e105341a429d4 100644 (file)
--- a/debian/copyright
+++ b/debian/copyright
@@ -24,7 +24,7 @@ Files: mercurial.pm
 Copyright: © 2006 Emanuele Aina
 License: GPL-2+
 
-Files: monotone.pm, listpreprocessors.pm
+Files: monotone.pm, listdirectives.pm
 Copyright: © 2007 William Uther
 License: GPL-2+