package Apache::CVS::Tidy;

use strict;
use warnings;

use base qw(Apache::CVS::HTML);
use Perl::Tidy;
use CGI qw(start_html);

sub print_page_header {
   my $self = shift;
   return if $self->page_headers_sent();
   $self->request()->print(start_html(
      -title => 'CVS Repository',
      -style => { src => '/path/to/perltidy.css' },
   ));

   $self->print_path_links();
   $self->page_headers_sent(1);
}

sub print_text_revision {
   my ($self,$content) = @_;
   my $html;
   perltidy(
      source      => \$content,
      destination => \$html,
      argv        => '-html -npod -css=/path/to/perltidy.css',
      errorfile   => '/dev/null',
   );

   # big thanks to Beatnik for this little snippet
   # Apache::CVS::HTML double-spaces the code, this remedies that
   $html =~ s/\n\n/\n/g;
   
   $self->request()->print($html);
}

1;

##</code><code>##

body {background: #fffff3; color: #35351d}

pre { color: #35351d; 
      background: #fffff3;
      font-family: courier;
    } 

a   { color: #de022a;}

th  { background: gray; }

.c  { color: #777777;} /* comment */
.cm { color: #35351d;} /* comma */
.co { color: #35351d;} /* colon */
.h  { color: #CD5555; font-weight:bold;} /* here-doc-target */
.hh { color: #0f6d30; font-style:italic;} /* here-doc-text */
.i  { color: #2c2255;} /* identifier */
.j  { color: #2c2255; font-weight:bold;} /* label */
.k  { color: #8d6b5f; font-weight:bold;} /* keyword */
.m  { color: #2c2255; font-weight:bold;} /* subroutine */
.n  { color: #B452CD;} /* numeric */
.p  { color: #35351d;} /* paren */
.pd { color: #228B22; font-style:italic;} /* pod-text */
.pu { color: #35351d;} /* punctuation */
.q  { color: #0f6d30;} /* quote */
.s  { color: #35351d;} /* structure */
.sc { color: #35351d;} /* semicolon */
.v  { color: #B452CD;} /* v-string */
.w  { color: #35351d;} /* bareword */