IkiWiki/Plugin/wikitext.pm



#!/usr/bin/perl
# WikiText markup
package IkiWiki::Plugin::wikitext;

use warnings;
use strict;
use IkiWiki 2.00;

sub import {
    hook(type => "getsetup", id => "wiki", call => \&getsetup);
    hook(type => "htmlize", id => "wiki", call => \&htmlize);
}

sub getsetup () {
    return
        plugin => {
            safe => 0, # format plugin
            rebuild => undef,
        },
}


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 });
}

1