User: sits    
  Date: 08/06/17 21:47:14

  Modified:    lib/Codestriker/Http DeltaRenderer.pm HighlightLineFilter.pm
                        LineBreakLineFilter.pm
               html     codestriker.css
               lib/Codestriker/Repository Subversion.pm
  Log:
  More highlighting changes.
  
  
  
  Index: DeltaRenderer.pm
  ===================================================================
  RCS file: 
/cvsroot/codestriker/codestriker/lib/Codestriker/Http/DeltaRenderer.pm,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -r1.9 -r1.10
  --- DeltaRenderer.pm  17 Jun 2008 11:50:59 -0000      1.9
  +++ DeltaRenderer.pm  18 Jun 2008 04:47:13 -0000      1.10
  @@ -56,11 +56,12 @@
       # code to html.
       @{$self->{line_filters}} = ();
       if (defined $Codestriker::highlighter && $Codestriker::highlighter ne 
'') {
  -         push @{$self->{line_filters}}, 
Codestriker::Http::HighlightLineFilter->new($Codestriker::highlighter);
  +         push @{$self->{line_filters}}, 
Codestriker::Http::HighlightLineFilter->new($Codestriker::highlighter, 
$tabwidth);
  +     push @{$self->{line_filters}}, 
Codestriker::Http::LineBreakLineFilter->new($brmode, 1);
       } else {
        push @{$self->{line_filters}}, 
Codestriker::Http::HtmlEntityLineFilter->new();
        push @{$self->{line_filters}}, 
Codestriker::Http::TabToNbspLineFilter->new($tabwidth);
  -     push @{$self->{line_filters}}, 
Codestriker::Http::LineBreakLineFilter->new($brmode);
  +     push @{$self->{line_filters}}, 
Codestriker::Http::LineBreakLineFilter->new($brmode, 0);
            my $lxr_config = defined $repository ?
                        $Codestriker::lxr_map->{$repository->toString()} : 
undef;
        if (defined $lxr_config) {
  @@ -108,7 +109,7 @@
        # Determine what comment number this anchor refers to.
        $comment_number = $comment_location_map{$anchor};
        $text = $query->span({-id=>"c$comment_number"}, "") .
  -         $query->span({-class=>"com"}, $text);
  +         $query->span({-class=>"comment"}, $text);
   
        # Determine what the next comment in line is.
        my $index = -1;
  
  
  
  
  
  Index: HighlightLineFilter.pm
  ===================================================================
  RCS file: 
/cvsroot/codestriker/codestriker/lib/Codestriker/Http/HighlightLineFilter.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- HighlightLineFilter.pm    17 Jun 2008 11:09:34 -0000      1.2
  +++ HighlightLineFilter.pm    18 Jun 2008 04:47:13 -0000      1.3
  @@ -21,10 +21,11 @@
   
   # Take the desired tabwidth as a parameter.
   sub new {
  -    my ($type, $highlight) = @_;
  +    my ($type, $highlight, $tabwidth) = @_;
   
       my $self = Codestriker::Http::LineFilter->new();
       $self->{highlight} = $highlight;
  +    $self->{tabwidth} = $tabwidth;
   
       return bless $self, $type;
   }
  @@ -39,7 +40,7 @@
        close $input_text_fh;
        
        # Execute the highlight command, and store the stdout into $read_data.
  -     my $read_data;  
  +     my $read_data = "";     
       my $read_stdout_fh = new FileHandle;
       open($read_stdout_fh, '>', \$read_data);
       my @args = ();
  @@ -47,6 +48,8 @@
       push @args, $input_filename;
       push @args, '--xhtml';
       push @args, '-f';
  +    push @args, '-t';
  +    push @args, $self->{tabwidth};
       Codestriker::execute_command($read_stdout_fh, undef, $self->{highlight}, 
@args);
       
       # Delete the temp file.
  
  
  
  
  
  Index: LineBreakLineFilter.pm
  ===================================================================
  RCS file: 
/cvsroot/codestriker/codestriker/lib/Codestriker/Http/LineBreakLineFilter.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- LineBreakLineFilter.pm    16 Jun 2008 11:32:05 -0000      1.2
  +++ LineBreakLineFilter.pm    18 Jun 2008 04:47:13 -0000      1.3
  @@ -19,10 +19,11 @@
   
   # Take the linebreak mode as a parameter.
   sub new {
  -    my ($type, $brmode) = @_;
  +    my ($type, $brmode, $inspan) = @_;
   
       my $self = Codestriker::Http::LineFilter->new();
       $self->{brmode} = $brmode;
  +    $self->{inspan} = $inspan;
   
       return bless $self, $type;
   }
  @@ -32,10 +33,22 @@
       my ($self, $text) = @_;
       
       if ($self->{brmode} == $Codestriker::LINE_BREAK_ASSIST_MODE) {
  -     $text =~ s/^(\s+)/my $sp='';for(my 
$i=0;$i<length($1);$i++){$sp.='&nbsp;'}$sp;/ge;
  +     # TODO: fix this for highlighted version.
  +             $text =~ s/^(\s+)/my $sp='';for(my 
$i=0;$i<length($1);$i++){$sp.='&nbsp;'}$sp;/ge;
       }
       else {
  -     $text =~ s/ /&nbsp;/g;
  +             if ($self->{inspan}) {
  +                     my @lines = split /\n/, $text;
  +                     my $result = "";
  +                     foreach my $line (@lines) {
  +                             $line =~ s/^( [ ]+)/('&nbsp;' x length($1))/eo;
  +                             $line =~ s/(>[^<]*?)( [ ]+)/$1 . ('&nbsp;' x 
length($2))/eog;
  +                             $result .= $line . "\n";
  +                     } 
  +                     $text = $result;
  +             } else {
  +                     $text =~ s/ /&nbsp;/g;
  +             }       
       }
   
       return $text;
  
  
  
  
  
  Index: codestriker.css
  ===================================================================
  RCS file: /cvsroot/codestriker/codestriker/html/codestriker.css,v
  retrieving revision 1.18
  retrieving revision 1.19
  diff -u -r1.18 -r1.19
  --- codestriker.css   17 Jun 2008 11:09:35 -0000      1.18
  +++ codestriker.css   18 Jun 2008 04:47:14 -0000      1.19
  @@ -64,7 +64,7 @@
   TD.mscb {background-color: #eeee77; font-family: monospace; font-size: 
smaller}
   
   /* Line number with comment */
  -SPAN.com {color: #ff0000; font-family: Helvetica, Arial; font-size: smaller}
  +SPAN.comment {color: #ff0000; font-family: Helvetica, Arial; font-size: 
smaller}
   
   /* Line number with no comment */
   SPAN.nocom {font-family: Helvetica, Arial; font-size: smaller}
  @@ -113,7 +113,6 @@
   TR.tl2 {background-color: #eeeeee; font-family: Helvetica, Arial}
   
   /* Colour to use for matching identifier */
  -/* A.fid {color: #777777; text-decoration: none} */
   A.fid:link { color: inherit; text-decoration: none }
   A.fid:visited { color: inherit; text-decoration: none }
   A.fid:visited:hover { text-decoration: underline; }
  @@ -162,18 +161,17 @@
   span.obsolete-header {color: red; font-weight: bold;}
   
   /* Styles for highlight program. */
  -pre.hl       { color:#000000; background-color:#ffffff; font-size:10pt; 
font-family:'Courier New';}
  -.hl.num { color:#2928ff; }
  -.hl.esc { color:#ff00ff; }
  -.hl.str { color:#ff0000; }
  -.hl.dstr { color:#818100; }
  -.hl.slc { color:#838183; font-style:italic; }
  -.hl.com { color:#838183; font-style:italic; }
  +.hl.num { color:#0000ff; }
  +.hl.esc { color:#000080; font-weight:bold; }
  +.hl.str { color:#008000; }
  +.hl.dstr { color:#008000; }
  +.hl.slc { color:#008080; }
  +.hl.com { color:#008080; }
   .hl.dir { color:#008200; }
   .hl.sym { color:#000000; }
   .hl.line { color:#555555; }
   .hl.mark     { background-color:#ffffbb;}
  -.hl.kwa { color:#000000; font-weight:bold; }
  -.hl.kwb { color:#830000; }
  -.hl.kwc { color:#000000; font-weight:bold; }
  -.hl.kwd { color:#010181; }
  \ No newline at end of file
  +.hl.kwa { color:#000080; font-weight:bold; }
  +.hl.kwb { color:#000080; font-weight:bold; }
  +.hl.kwc { color:#000000; }
  +.hl.kwd { color:#000000; }
  \ No newline at end of file
  
  
  
  
  
  Index: Subversion.pm
  ===================================================================
  RCS file: 
/cvsroot/codestriker/codestriker/lib/Codestriker/Repository/Subversion.pm,v
  retrieving revision 1.20
  retrieving revision 1.21
  diff -u -r1.20 -r1.21
  --- Subversion.pm     13 Jun 2008 05:55:13 -0000      1.20
  +++ Subversion.pm     18 Jun 2008 04:47:14 -0000      1.21
  @@ -84,6 +84,8 @@
        chop;
        $$content_array_ref[$i] = $_;
       }
  +    
  +    return $Codestriker::OK;
   }
   
   # Retrieve the "root" of this repository.
  
  
  

-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php
_______________________________________________
Codestriker-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/codestriker-commits

Reply via email to