From 1e02b5a1a2e79b62343eb888d3b2452c70116c08 Mon Sep 17 00:00:00 2001
From: "John Ankarstr\\xf6m" <john@ankarstrom.se>
Date: Wed, 2 Jun 2021 17:35:53 +0200
Subject: re.tmac: Handle page breaks

It could be better, but it works for now.
---
 re.tmac | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 're.tmac')

diff --git a/re.tmac b/re.tmac
index 9b8ec93..a896f9e 100644
--- a/re.tmac
+++ b/re.tmac
@@ -3,6 +3,7 @@
 . mk c
 . if (\nb > \nc) .sp (\nbu - \ncu - 1v)
 . if (\nb > 0) .if (\nc > \nb) .sp 0.5v
+. if !(\nz = 1) .if (\np > 0) .if (\n% > \np) .sp -(\nbu - \ncu - 1.5v)
 . nf
 . ft C
 . ps -1p
@@ -10,10 +11,16 @@
 . ta 8n +8n +8n +8n +8n
 . in 2.2i
 . mk a
+. nr p \n%
 ..
 .de Se
 . mk b
-. rt (\nau - 0.5v)
+. rt (\nau - 7p)
+. nr z 0
+. if (\n% > \np) \{
+.  rt \n(HMu
+.  nr z 1
+. \}
 . nr LL 2i
 . LP
 ..
-- 
cgit v1.2.3