diff options
author | Joey Hess <joey@kodama.kitenet.net> | 2008-08-25 13:38:44 -0400 |
---|---|---|
committer | Joey Hess <joey@kodama.kitenet.net> | 2008-08-25 13:38:44 -0400 |
commit | 4956623ee6b95c9fc62d8af39d9236ddeb6de8c5 (patch) | |
tree | 1e6ace9da32236c446154a3e630735ef314ed738 /IkiWiki/Plugin/listdirectives.pm | |
parent | c62cbc31c2b7db7694c341ddb4212545728cb3b7 (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/listdirectives.pm')
-rw-r--r-- | IkiWiki/Plugin/listdirectives.pm | 96 |
1 files changed, 96 insertions, 0 deletions
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 |