re: Wrap lines longer than 60 characters

1 files changed, 4 insertions, 1 deletions

diff --git a/re b/re
index 4b6a092..51e400e 100755
--- a/re
+++ b/re
@@ -111,8 +111,11 @@ while (<$fh>) {
 		while ($_ = readline $handles{$file}) {
 			$bytes += length($_);
 			last if $end and $bytes > $end;
+			/^(\s+)/; my $indent = $1;
+			s/(.{60})(.)/$1\\fR...\\fP\n$indent\t$2/g;
 			s/\\/\\\\/g;
-			s/^\./\\&./;
+			s/\\\\fR...\\\\fP/\\fR...\\fP/g;
+			s/^\./\\&./m;
 			print;
 		}