From cb990706815753adfe57c0df62dd0deee5e60994 Mon Sep 17 00:00:00 2001
From: "John Ankarstr\\xf6m" <john@ankarstrom.se>
Date: Thu, 3 Jun 2021 18:39:24 +0200
Subject: re.tmac: Add Rr (reset) macro, Tl (text line length) register

---
 re.tmac | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/re.tmac b/re.tmac
index 495d05a..0e9dea7 100644
--- a/re.tmac
+++ b/re.tmac
@@ -4,10 +4,12 @@
 .nr Sp 8p		\" point size
 .nr Sv 11p		\" vertical spacing (leading)
 .nr St 8n		\" tab width
+.nr Tl 2i		\" line length for text portions
 .
 .\" setup
 .\" -----
 .nr FM -1v		\" ensure that footnotes fit
+.nr _L \n(LL		\" save original line length
 .
 .\" macro definitions
 .\" -----------------
@@ -24,7 +26,7 @@
 . ps \n(Spu
 . vs \n(Svu
 . ta \n(Stu +\n(Stu +\n(Stu +\n(Stu +\n(Stu +\n(Stu
-. in 2.2i
+. in (\n(Tlu + 0.2i)
 . mk a			\" vertical position where source code begins
 . nr p \n%		\" current page number
 ..
@@ -32,13 +34,17 @@
 .de Se
 . mk b			\" vertical position where source code ends
 . rt \nau
+. nr LL \n(Tl
 . nr z 0
 . if (\n% > \np) \{
 .  rt \n(HMu		\" return to top of new page
 .  nr z 1		\" signal page break
 . \}
-. nr LL 2i
 . ns			\" ignore space before text (like that added by LP/PP)
 . LP
 ..
+.\" Rr -- reset document settings
+.de Rr
+.nr LL \n(_L
+..
 .ec
-- 
cgit v1.2.3