re: Wrap lines longer than 60 characters

2 files changed, 5 insertions, 2 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;
 		}
 
diff --git a/re.tmac b/re.tmac
index a896f9e..08b9920 100644
--- a/re.tmac
+++ b/re.tmac
@@ -6,7 +6,7 @@
 . if !(\nz = 1) .if (\np > 0) .if (\n% > \np) .sp -(\nbu - \ncu - 1.5v)
 . nf
 . ft C
-. ps -1p
+. ps -2p
 . vs -1p
 . ta 8n +8n +8n +8n +8n
 . in 2.2i