Better handle pattern matching against longer strings, so we only sho…

…w the relevant part.
jnthn · Aug 21, 2012 · f0d590e · f0d590e
1 parent fbc95e1
commit f0d590e
Showing 1 changed file with 10 additions and 4 deletions.
diff --git a/lib/Debugger/UI/CommandLine.pm b/lib/Debugger/UI/CommandLine.pm
@@ -110,10 +110,16 @@ my class SourceFile {
             my $cur = try eval_in_ctx($ctx, q[DYNAMIC::<$¢>]);
             if $cur ~~ Cursor {
                 my $pos = $cur.pos;
-                my $before = $cur.target.substr(0, $pos);
+                my $str = $cur.target.subst("\n", '\n', :g).subst("\t", '\t', :g);
-                my $after  = $cur.target.substr($pos);
+                my $before = $str.substr(0, $pos);
-                if $cur.target.chars > 77 {
+                my $after  = $str.substr($pos);
-
+                if $str.chars > 77 {
+                    if $after.chars > 50 {
+                        $after = $after.substr(0, 50) ~ '...';
+                    }
+                    if $before.chars > (74  - $after.chars) {
+                        $before = "..." ~ $before.substr(* - (74 - $after.chars));
+                    }
                 }
                 return normal_lines(
                     [