package HTML::WikiConverter::WikkaWiki;
use warnings;
use strict;
use base 'HTML::WikiConverter';
use URI;
our $VERSION = '0.50';
=head1 NAME
HTML::WikiConverter::WikkaWiki - Convert HTML to WikkaWiki markup
=head1 SYNOPSIS
use HTML::WikiConverter;
my $wc = new HTML::WikiConverter( dialect => 'WikkaWiki' );
print $wc->html2wiki( $html );
=head1 DESCRIPTION
This module contains rules for converting HTML into WikkaWiki
markup. See L<HTML::WikiConverter> for additional usage details.
=cut
sub rules {
my %rules = (
b => { start => '**', end => '**' },
strong => { alias => 'b' },
i => { start => '//', end => '//' },
em => { alias => 'i' },
u => { start => '__', end => '__' },
tt => { start => '##', end => '##' },
code => { alias => 'tt' },
strike => { start => '++', end => '++' },
kbd => { start => '#%', end => '#%' },
center => { start => '@@', end => '@@' },
br => { replace => '---' },
# table
tr => { line_format => 'single', start => '|| ', end => "\n" },
td => { end => ' || ' },
th => { alias => 'td' },
ul => { line_format => 'multi', block => 1 },
ol => { alias => 'ul' },
li => { line_format => 'multi', start => \&_li_start, trim => 'leading' },
img => { replace => \&_image },
a => { replace => \&_link },
p => { block => 1, trim => 'both', line_format => 'multi' },
hr => { replace => "\n----\n" },
);
for( 1..5 ) {
my $str = ( '=' ) x (7 - $_ );
$rules{"h$_"} = { start => "$str ", end => " $str", block => 1, trim => 'both', line_format => 'single' };
}
$rules{h6} = { alias => 'h5' };
return \%rules;
}
# {{image class="center" alt="DVD logo" title="An Image Link" url="images/dvdvideo.gif" link="RecentChanges"}}
sub _image {
my( $self, $node, $rules ) = @_;
return '' unless $node->attr('src');
$node->attr( src => URI->new($node->attr('src'))->rel($self->base_uri) );
my $attr_str = $self->get_attr_str( $node, qw/ alt title src wikka_link / );
return "{{image $attr_str}}";
}
sub _li_start {
my( $self, $node, $rules ) = @_;
my @parent_lists = $node->look_up( _tag => qr/ul|ol/ );
my $depth = @parent_lists;
my $bullet = $node->parent->tag eq 'ol' ? '1)' : '-';
my $indent = ( '~' ) x $depth;
return "\n".$indent.$bullet.' ';
}
sub _link {
my( $self, $node, $rules ) = @_;
my $url = $node->attr('href') || '';
my $text = $self->get_elem_contents($node) || '';
if( my $title = $self->get_wiki_page($url) ) {
$title =~ s/_/ /g;
return $text if lc $title eq lc $text and $self->is_camel_case($text);
return "[[$title $text]]";
} else {
return $url if $url eq $text;
return "[[$url $text]]";
}
}
sub preprocess_node {
my( $self, $node ) = @_;
# FIXME: What if img isn't the only thing under this anchor tag?
return unless $node->tag eq 'img' and $node->parent->tag eq 'a';
$node->attr( wikka_link => $node->parent->attr('href') );
$node->parent->replace_with_content()->delete;
}
=head1 AUTHOR
David J. Iberri, C<< <diberri at cpan.org> >>
=head1 BUGS
Please report any bugs or feature requests to
C<bug-html-wikiconverter-wikkawiki at rt.cpan.org>, or through the web
interface at
L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=HTML-WikiConverter-WikkaWiki>.
I will be notified, and then you'll automatically be notified of
progress on your bug as I make changes.
=head1 SUPPORT
You can find documentation for this module with the perldoc command.
perldoc HTML::WikiConverter::WikkaWiki
You can also look for information at:
=over 4
=item * AnnoCPAN: Annotated CPAN documentation
L<http://annocpan.org/dist/HTML-WikiConverter-WikkaWiki>
=item * CPAN Ratings
L<http://cpanratings.perl.org/d/HTML-WikiConverter-WikkaWiki>
=item * RT: CPAN's request tracker
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=HTML-WikiConverter-WikkaWiki>
=item * Search CPAN
L<http://search.cpan.org/dist/HTML-WikiConverter-WikkaWiki>
=back
=head1 COPYRIGHT & LICENSE
Copyright 2006 David J. Iberri, all rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
1;