From 4956623ee6b95c9fc62d8af39d9236ddeb6de8c5 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kodama.kitenet.net>
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/listdirectives.pm    | 96 +++++++++++++++++++++++++++++++++++++
 IkiWiki/Plugin/listpreprocessors.pm | 96 -------------------------------------
 2 files changed, 96 insertions(+), 96 deletions(-)
 create mode 100644 IkiWiki/Plugin/listdirectives.pm
 delete mode 100644 IkiWiki/Plugin/listpreprocessors.pm

(limited to 'IkiWiki')

diff --git a/IkiWiki/Plugin/listdirectives.pm b/IkiWiki/Plugin/listdirectives.pm
new file mode 100644
index 000000000..fe4aee3bb
--- /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
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
-- 
cgit v1.2.3