From e4abbe05b3886d0d652a651e3c2e66fcc5784c07 Mon Sep 17 00:00:00 2001
From: "John Ankarstr\\xf6m" <john@ankarstrom.se>
Date: Wed, 2 Jun 2021 23:20:10 +0200
Subject: re.tmac: Ignore space before text portion

I also added some more space between adjacent text portions.
---
 re.tmac | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/re.tmac b/re.tmac
index f7a04fb..a2a2083 100644
--- a/re.tmac
+++ b/re.tmac
@@ -16,7 +16,7 @@
 .de Sr
 . mk c			\" vertical position where text ends
 . if (\nb > \nc) .sp (\nbu - \ncu - 1v)
-. if (\nb > 0) .if (\nc > \nb) .sp 0.5v
+. if (\nb > 0) .if (\nc > \nb) .sp \(PDu
 . if !(\nz = 1) .if (\np > 0) .if (\n% > \np) .sp -(\nbu - \ncu - 1.5v)
 . nf
 . ft \*(Sf
@@ -30,13 +30,14 @@
 .\" Se -- source code end
 .de Se
 . mk b			\" vertical position where source code ends
-. rt (\nau - 7p)
+. rt \nau
 . nr z 0
 . if (\n% > \np) \{
 .  rt \n(HMu		\" return to top of new page
 .  nr z 1		\" signal page break
 . \}
 . nr LL 2i
-. LP
+. sp 1p			\" needed before .ns for some reason
+. ns			\" ignore space before text (like that added by LP/PP)
 ..
 .ec
-- 
cgit v1.2.3