avoid Po4a::Common exporting anything

[git.ikiwiki.info.git] / IkiWiki / Plugin / wikitext.pm

diff --git a/IkiWiki/Plugin/wikitext.pm b/IkiWiki/Plugin/wikitext.pm
index 310b86724358db7ea68a0af9f8da0d4d899772c2..accb03bbef8317cad028d95fe36a68b466d9bd0f 100644 (file)
--- a/IkiWiki/Plugin/wikitext.pm
+++ b/IkiWiki/Plugin/wikitext.pm
@@ -4,27 +4,29 @@ package IkiWiki::Plugin::wikitext;
 
 use warnings;
 use strict;
 
 use warnings;
 use strict;

-use Text::WikiFormat;
+use IkiWiki 3.00;

 
 

-sub import { #{{{
-       IkiWiki::hook(type => "filter", id => "wiki", call => \&filter);
-       IkiWiki::hook(type => "htmlize", id => "wiki", call => \&htmlize);
-} # }}}
+sub import {
+       hook(type => "getsetup", id => "wiki", call => \&getsetup);
+       hook(type => "htmlize", id => "wiki", call => \&htmlize);
+}

 
 

-sub filter (@) { #{{{
-       my %params=@_;
-
-       # Make CamelCase links work by promoting them to fullfledged
-       # WikiLinks. This regexp is based on the one in Text::WikiFormat.
-       $params{content}=~s#(?<![["/>=])\b((?:[A-Z][a-z0-9]\w*){2,})#[[$1]]#g;
+sub getsetup () {
+       return
+               plugin => {
+                       safe => 0, # format plugin
+                       rebuild => undef,
+               },
+}

 
 

-       return $params{content};
-} #}}}

 
 

-sub htmlize ($) { #{{{
-       my $content = shift;
+sub htmlize (@) {
+       my %params=@_;
+       my $content = $params{content};

 
 

+       eval q{use Text::WikiFormat};
+       return $content if $@;

        return Text::WikiFormat::format($content, undef, { implicit_links => 0 });
        return Text::WikiFormat::format($content, undef, { implicit_links => 0 });

-} # }}}
+}

 
 1
 
 1