IkiWiki/Plugin/creole.pm



#!/usr/bin/perl
# WikiCreole markup
# based on the WikiText plugin.
package IkiWiki::Plugin::creole;

use warnings;
use strict;
use IkiWiki 2.00;

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

sub getsetup {
    return
        plugin => {
            safe => 1,
            rebuild => 1, # format plugin
        },
}

sub htmlize (@) {
    my %params=@_;
    my $content = $params{content};

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

    # don't parse WikiLinks, ikiwiki already does
    creole_customlinks();
    creole_custombarelinks();

    return creole_parse($content);
}

1