>> tags with the class C. =cut sub highlight { my ( $self, $c ) = @_; my $this_content = $self->formatted($c); my $previous_content = ( defined $self->previous ? $self->previous->formatted($c) : $this_content ); my $this = [ split /\n/, $this_content ]; my $prev = [ split /\n/, $previous_content ]; my @diff = Algorithm::Diff::sdiff( $prev, $this ); my $diff; my $hi = 0; my $pre_tag_open = 0; for my $line (@diff) { $pre_tag_open = 1 if $$line[2] =~ qr{

} and $$line[2] !~ qr{

}; my $tag = $pre_tag_open ? 'span' : 'div'; $hi++; if ( $$line[0] eq "+" ) { $diff .= qq(<$tag id="hi$hi" class="fade">) . $$line[2] . ""; } elsif ( $$line[0] eq "c" ) { $diff .= qq(<$tag id="hi$hi" class="fade">) . $$line[2] . ""; } elsif ( $$line[0] eq "-" ) { } else { $diff .= $$line[1] } $diff .= "\n"; $pre_tag_open = 0 if $$line[2] =~ qr{} and $$line[2] !~ qr{

};
    }
    return $diff;
}

=head2 formatted_diff  

Compare this content version to , using L.
Sets a C CSS class for added lines, and a C CSS class
for deleted lines. The C<<  >> and C<<  >> HTML tags are also used.

=cut

sub formatted_diff {
    my ( $self, $c, $to, $sparse ) = @_;
    my $this = [
        $sparse
        ? split /\n/, ( $self->encoded_body )
        : split /\n\n/, ( $self->formatted($c) )
    ];
    my $prev = [
        $sparse
        ? split /\n/, ( $to->encoded_body )
        : split /\n\n/, ( $to->formatted($c) )
    ];
    my @diff = Algorithm::Diff::sdiff( $prev, $this );
    my $diff;
    for my $line (@diff) {
        if ( $$line[0] eq "+" ) {
            $diff .= qq() . $$line[2] . "";
        }
        elsif ( $$line[0] eq "-" ) {
            $diff .= qq() . $$line[1] . "";
        }
        elsif ( $$line[0] eq "c" ) {

            $diff .= (
                $sparse
                ? qq()
                  . $$line[1]
                  . ""
                  . qq()
                  . $$line[2]
                  . ""
                : word_diff( $$line[1], $$line[2] )
            );
        }
        elsif ( $$line[0] eq "u" ) {
            $diff .= ( $sparse ? ' ' . $$line[1] . '' : $$line[1] );
        }
        else { $diff .= "Unknown operator " . $$line[0] }
    }
    return $diff;
}

=head2 formatted

Return the content after being run through MojoMojo::Formatter::*.

=cut

sub formatted {
    my ( $self, $c ) = @_;
    my $result = $self->result_source->resultset->format_content( $c, $self->body, $self );
    return $result;
}

=head2 merge_content

Show the merge conflict of the content for two different edit sessions of the same page.

=cut

sub merge_content {
    my ( $self, $saved, $content, $h1, $h2, $h3 ) = @_;

    my $source = [ split /\n/, $self->encoded_body ];
    my $a      = [ split /\n/, $saved->encoded_body ];
    my $b      = [ split /\n/, $content ];
    my @merged = merge(
        $source, $a, $b,
        {
            CONFLICT => sub ($$) {
                (
                    "\n",
                    ( @{ $_[0] } ),
                    "\n",
                    ( @{ $_[1] } ),
                    "\n",
                );
              }
        }
    );
    return join( '', @merged );
}

=head2 max_version

Return the highest numbered revision.

=cut

sub max_version {
    my $self = shift;
    my $max  = $self->result_source->resultset->search(
        { page => $self->page->id },
        {
            select => [ { max => 'me.version' } ],
            as     => ['max_ver']
        }
    );
    return 0 unless $max->count;
    return $max->next->get_column('max_ver');
}

=head2 previous

Return the previous version of this content, or undef for the first version.

=cut

sub previous {
    my $self = shift;
    return $self->result_source->resultset->search(
        {
            page    => $self->page->id,
            version => $self->version - 1
        }
    )->next;
}

=head2 pub_date

Return the publishing date of this version in a format suitable for RSS 2.0.

=cut

sub pub_date {
    my $self = shift;
    return DateTime::Format::Mail->format_datetime( $self->created );
}

=head2 store_links

Extract and store all links and wanted paged from a given content
version.

=cut

sub store_links {
    my ($self) = @_;

    return unless ( $self->status eq 'released' );
    my $content = $self->body;
    my $page    = $self->page;
    $page->result_source->resultset->set_paths($page);
    $page->links_from->delete();
    $page->wantedpages->delete();
    require MojoMojo::Formatter::Wiki;
    my ( $linked_pages, $wanted_pages ) = MojoMojo::Formatter::Wiki->find_links( \$content, $page );
    return unless ( @$linked_pages || @$wanted_pages );

    for (@$linked_pages) {
        my $link =
          $self->result_source->schema->resultset('Link')
          ->find_or_create( { from_page => $self->page->id, to_page => $_->id } );
    }
    for (@$wanted_pages) {
        $_->{path} = join( '/',
            map { ( $self->result_source->schema->resultset('Page')->normalize_name($_) )[1]; }
              split( m|/|, $_->{path} ) );
        my $wanted_page =
          $self->result_source->schema()->resultset('WantedPage')
          ->find_or_create( { from_page => $page->id, to_path => $_->{path} } );
    }
}

=head2 encoded_body

Encode content body using numeric entities.

=cut

sub encoded_body { return encode_entities_numeric( shift->body ); }

=head1 AUTHOR

Marcus Ramberg 

=head1 LICENSE

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

=cut

1;