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".master
parent
c62cbc31c2
commit
4956623ee6
|
@ -1,16 +1,16 @@
|
||||||
#!/usr/bin/perl
|
#!/usr/bin/perl
|
||||||
# Ikiwiki listpreprocessors plugin.
|
# Ikiwiki listdirectives plugin.
|
||||||
package IkiWiki::Plugin::listpreprocessors;
|
package IkiWiki::Plugin::listdirectives;
|
||||||
|
|
||||||
use warnings;
|
use warnings;
|
||||||
use strict;
|
use strict;
|
||||||
use IkiWiki 2.00;
|
use IkiWiki 2.00;
|
||||||
|
|
||||||
sub import { #{{{
|
sub import { #{{{
|
||||||
hook(type => "getsetup", id => "listpreprocessors", call => \&getsetup);
|
hook(type => "getsetup", id => "listdirectives", call => \&getsetup);
|
||||||
hook(type => "checkconfig", id => "listpreprocessors", call => \&checkconfig);
|
hook(type => "checkconfig", id => "listdirectives", call => \&checkconfig);
|
||||||
hook(type => "needsbuild", id => "listpreprocessors", call => \&needsbuild);
|
hook(type => "needsbuild", id => "listdirectives", call => \&needsbuild);
|
||||||
hook(type => "preprocess", id => "listpreprocessors", call => \&preprocess);
|
hook(type => "preprocess", id => "listdirectives", call => \&preprocess);
|
||||||
} # }}}
|
} # }}}
|
||||||
|
|
||||||
sub getsetup () { #{{{
|
sub getsetup () { #{{{
|
||||||
|
@ -19,9 +19,9 @@ sub getsetup () { #{{{
|
||||||
safe => 1,
|
safe => 1,
|
||||||
rebuild => undef,
|
rebuild => undef,
|
||||||
},
|
},
|
||||||
preprocessor_description_dir => {
|
directive_description_dir => {
|
||||||
type => "string",
|
type => "string",
|
||||||
description => "directory in srcdir that contains preprocessor descriptions",
|
description => "directory in srcdir that contains PreprocessorDirective descriptions",
|
||||||
example => "ikiwiki/plugin",
|
example => "ikiwiki/plugin",
|
||||||
safe => 1,
|
safe => 1,
|
||||||
rebuild => 1,
|
rebuild => 1,
|
||||||
|
@ -33,11 +33,11 @@ my @earlylist;
|
||||||
my $pluginstring;
|
my $pluginstring;
|
||||||
|
|
||||||
sub checkconfig () { #{{{
|
sub checkconfig () { #{{{
|
||||||
if (! defined $config{preprocessor_description_dir}) {
|
if (! defined $config{directive_description_dir}) {
|
||||||
$config{preprocessor_description_dir} = "ikiwiki/plugin";
|
$config{directive_description_dir} = "ikiwiki/plugin";
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
$config{preprocessor_description_dir}=~s/\/+$//;
|
$config{directive_description_dir}=~s/\/+$//;
|
||||||
}
|
}
|
||||||
|
|
||||||
@earlylist = sort( keys %{ $IkiWiki::hooks{preprocess} } );
|
@earlylist = sort( keys %{ $IkiWiki::hooks{preprocess} } );
|
||||||
|
@ -50,16 +50,16 @@ sub needsbuild (@) { #{{{
|
||||||
$pluginstring = join (' ', @earlylist) . " : ". join (' ', @fulllist);
|
$pluginstring = join (' ', @earlylist) . " : ". join (' ', @fulllist);
|
||||||
|
|
||||||
foreach my $page (keys %pagestate) {
|
foreach my $page (keys %pagestate) {
|
||||||
if (exists $pagestate{$page}{listpreprocessors}{shown}) {
|
if (exists $pagestate{$page}{listdirectives}{shown}) {
|
||||||
if ($pagestate{$page}{listpreprocessors}{shown} ne $pluginstring) {
|
if ($pagestate{$page}{listdirectives}{shown} ne $pluginstring) {
|
||||||
push @$needsbuild, $pagesources{$page};
|
push @$needsbuild, $pagesources{$page};
|
||||||
}
|
}
|
||||||
if (exists $pagesources{$page} &&
|
if (exists $pagesources{$page} &&
|
||||||
grep { $_ eq $pagesources{$page} } @$needsbuild) {
|
grep { $_ eq $pagesources{$page} } @$needsbuild) {
|
||||||
# remove state, will be re-added if
|
# remove state, will be re-added if
|
||||||
# the [[!listpreprocessors]] is still there during the
|
# the [[!listdirectives]] is still there during the
|
||||||
# rebuild
|
# rebuild
|
||||||
delete $pagestate{$page}{listpreprocessors}{shown};
|
delete $pagestate{$page}{listdirectives}{shown};
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
@ -68,7 +68,7 @@ sub needsbuild (@) { #{{{
|
||||||
sub preprocess (@) { #{{{
|
sub preprocess (@) { #{{{
|
||||||
my %params=@_;
|
my %params=@_;
|
||||||
|
|
||||||
$pagestate{$params{destpage}}{listpreprocessors}{shown}=$pluginstring;
|
$pagestate{$params{destpage}}{listdirectives}{shown}=$pluginstring;
|
||||||
|
|
||||||
my @pluginlist;
|
my @pluginlist;
|
||||||
|
|
||||||
|
@ -79,12 +79,12 @@ sub preprocess (@) { #{{{
|
||||||
@pluginlist = @earlylist;
|
@pluginlist = @earlylist;
|
||||||
}
|
}
|
||||||
|
|
||||||
my $result = '<ul class="listpreprocessors">';
|
my $result = '<ul class="listdirectives">';
|
||||||
|
|
||||||
foreach my $plugin (@pluginlist) {
|
foreach my $plugin (@pluginlist) {
|
||||||
$result .= '<li class="listpreprocessors">';
|
$result .= '<li class="listdirectives">';
|
||||||
$result .= htmllink($params{page}, $params{destpage},
|
$result .= htmllink($params{page}, $params{destpage},
|
||||||
IkiWiki::linkpage($config{preprocessor_description_dir}."/".$plugin));
|
IkiWiki::linkpage($config{directive_description_dir}."/".$plugin));
|
||||||
$result .= '</li>';
|
$result .= '</li>';
|
||||||
}
|
}
|
||||||
|
|
|
@ -24,7 +24,7 @@ Files: mercurial.pm
|
||||||
Copyright: © 2006 Emanuele Aina
|
Copyright: © 2006 Emanuele Aina
|
||||||
License: GPL-2+
|
License: GPL-2+
|
||||||
|
|
||||||
Files: monotone.pm, listpreprocessors.pm
|
Files: monotone.pm, listdirectives.pm
|
||||||
Copyright: © 2007 William Uther
|
Copyright: © 2007 William Uther
|
||||||
License: GPL-2+
|
License: GPL-2+
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue