package MojoMojo::Formatter;

=head1 NAME

MojoMojo::Formatter - Base class for all formatters

=head1 SYNOPSIS

    package MojoMojo::Formatter::Simple;

    use parent qw/MojoMojo::Formatter/;

    sub format_content_order { 14 }
    # so that it runs after inclusion of obscene web sites
    # (MojoMojo::Formatter::Include runs at 6)

    sub format_content {
        my ($class, $content, $c) = @_;
        $$content =~ s/fuck/f**k/g;
        return $content;
    }


=head1 DESCRIPTION

This is the class to inherit from if you want to write your own formatter.


=head1 WRITING YOUR OWN FORMATTER

See the synopsis for a really simple formatter example. MojoMojo uses
L<Module::Pluggable::Ordered> to process all the formatter plugins. Just
specify when you want to trigger your formatter by providing a format_content_order
method which returns a number to specify when you want to run. The plugin order
for the default plugins is currently as follows:

=over 4

=item 1  - L<MojoMojo::Formatter::Redirect> - handles {{redirect /path}}

=item 6  - L<MojoMojo::Formatter::Include> - handles {{<url>}}

=item 10 - L<MojoMojo::Formatter::Wiki> - Handles [[wikilinks]]

=item 10 - L<MojoMojo::Formatter::Pod> - handles {{pod}} ... {{end}} blocks

=item 14 - L<MojoMojo::Formater::IRCLog> - handles {{irc}} ... {{end}} blocks

=item 15 - Main formatter (either L<MojoMojo::Formatter::Textile> or L<MojoMojo::Formatter::Markdown>)

=item 16 - L<MojoMojo::Formatter::Defang> - Removes harmful HTML and XSS

=item 91 - L<MojoMojo::Formatter::Comment> Handles {{comments}} , inserts a comment box

=item 95 - L<MojoMojo::Formatter::TOC> replace {{toc}} with table of contents

=item 99 - L<MojoMojo::Formatter::SyntaxHighlight> - Performs syntax highlighting on code blocks

=back

Note that if your formatter expects a HTML body, it should run after the
main formatter.


=head1 METHODS

=head2 format_content

If you want your formatter to do something, you also need to override
C<format_content>. It gets passed its classname, a scalar ref to the content,
and the context object. It should return the scalar ref.

=head2 main_format_content

Override this method if your formatter is a primary one (equivalent to Markdown or
Textile). It gets passed the same arguments as L</format_content>. Also make sure
to update "Site settings" (/.admin).

Note that the main formatter runs at 15.

=cut


sub module_loaded { 1; }

=head2

    gen_re(qr/irc/)

Returns a regular expression for the given tag between matching double braces.

=cut

sub gen_re {
    my ($self, $tag, $args)=@_;
    $args ||= '';
    return qr[{{\s*$tag\s*$args\s*}}];
}


=head1 SEE ALSO

L<MojoMojo>, L<MojoMojo::Formatter::Textile>, L<MojoMojo::Formatter::Markdown>

=head1 AUTHORS

Marcus Ramberg <mramberg@cpan.org>

=head1 LICENSE

This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;