I'm using
CGI::Kwiki in a couple of projects. In one on them, I needed a way to use the POD format to compose pages. I came up with this formatter. To use it, put the module in your wiki directory, and change
config.yaml in this way:
formatter_class: PodFormatter
The code reflects my choices: everything that's between
PODPOD and
---- is going to be interpreted as POD, the rest is threated as wiki-language. The code should be easily customizable, though.
Update: Minor refactoring
use strict;
use warnings;
package MyFormatter;
use base qw/CGI::Kwiki::Formatter/;
use Pod::POM;
use Pod::POM::View::HTML;
sub _wiki2html {
my ($self, $text) = @_;
my $array = [];
push @$array, $text;
for my $method ($self->process_order) {
$array = $self->dispatch($array, $method);
}
return $self->combine_chunks( $array );
}
sub process {
my ($self, $wiki_text) = @_;
if ($wiki_text =~ /^PODPOD/ ) {
my ($pod_part, $wiki_part) = $wiki_text =~ /^PODPOD(.*?)^(----
+.*)/sm;
$pod_part = "=over 4\n\n"
. $pod_part
. "\n\n=back\n\n";
my $parser = Pod::POM->new();
my $pom = $parser->parse_text( $pod_part );
return Pod::POM::View::HTML->print( $pom )
. $self->_wiki2html( $wiki_part );
}
else {
return $self->_wiki2html( $wiki_text );
}
}
1;
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.