summaryrefslogtreecommitdiff
path: root/IkiWiki/Plugin
diff options
context:
space:
mode:
authorJoey Hess <joey@kodama.kitenet.net>2008-08-25 13:28:25 -0400
committerJoey Hess <joey@kodama.kitenet.net>2008-08-25 13:28:25 -0400
commit029edd9b45d2bfd5c9b2fff5aab1d6d70d3d39ab (patch)
treeb007c37a3ab4dcb3b87388ad41b6dff1e8898d74 /IkiWiki/Plugin
parent25723e857ea8d8719020eadcba11570efbc26f4e (diff)
plugin by willu
Diffstat (limited to 'IkiWiki/Plugin')
-rw-r--r--IkiWiki/Plugin/listpreprocessors.pm90
1 files changed, 90 insertions, 0 deletions
diff --git a/IkiWiki/Plugin/listpreprocessors.pm b/IkiWiki/Plugin/listpreprocessors.pm
new file mode 100644
index 000000000..ae5e1a7c4
--- /dev/null
+++ b/IkiWiki/Plugin/listpreprocessors.pm
@@ -0,0 +1,90 @@
+#!/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 => "The ikiwiki directory that contains plugin descriptions.",
+ safe => 1,
+ rebuild => 1,
+ },
+} #}}}
+
+my @fullPluginList;
+my @earlyPluginList;
+my $pluginString;
+
+sub checkconfig () { #{{{
+ if (!defined $config{plugin_description_dir}) {
+ $config{plugin_description_dir} = "ikiwiki/plugin/";
+ }
+
+ @earlyPluginList = sort( keys %{ $IkiWiki::hooks{preprocess} } );
+} #}}}
+
+sub needsbuild (@) { #{{{
+ my $needsbuild=shift;
+
+ @fullPluginList = sort( keys %{ $IkiWiki::hooks{preprocess} } );
+ $pluginString = join (' ', @earlyPluginList) . " : ". join (' ', @fullPluginList);
+
+ 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 = @fullPluginList;
+ } else {
+ @pluginlist = @earlyPluginList;
+ }
+
+ my $result = '<ul class="listpreprocessors">';
+
+ foreach my $plugin (@pluginlist) {
+ $result .= '<li class="listpreprocessors">';
+ $result .= htmllink($params{page}, $params{destpage}, IkiWiki::linkpage($config{plugin_description_dir} . $plugin));
+ $result .= '</li>';
+ }
+
+ $result .= "</ul>";
+
+ return $result;
+} # }}}
+
+1