31 lines
662 B
Perl
31 lines
662 B
Perl
#!/usr/bin/perl
|
|
package IkiWiki::Plugin::format;
|
|
|
|
use warnings;
|
|
use strict;
|
|
use IkiWiki 2.00;
|
|
|
|
sub import { #{{{
|
|
hook(type => "preprocess", id => "format", call => \&preprocess);
|
|
} #}}}
|
|
|
|
sub preprocess (@) { #{{{
|
|
my $format=$_[0];
|
|
shift; shift;
|
|
my $text=$_[0];
|
|
shift; shift;
|
|
my %params=@_;
|
|
|
|
if (! defined $format || ! defined $text) {
|
|
error(gettext("must specify format and text"));
|
|
}
|
|
elsif (! exists $IkiWiki::hooks{htmlize}{$format}) {
|
|
error(sprintf(gettext("unsupported page format %s"), $format));
|
|
}
|
|
|
|
return IkiWiki::htmlize($params{page}, $params{destpage}, $format,
|
|
IkiWiki::preprocess($params{page}, $params{destpage}, $text));
|
|
} #}}}
|
|
|
|
1
|