From 85343762e6e382cd0b746893ac03275cd4d791ad Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Thu, 17 Jun 2021 18:33:18 +0200
Subject: Rework initialization

---
 g.tmac | 45 +++++++++++++++++++++------------------------
 1 file changed, 21 insertions(+), 24 deletions(-)

(limited to 'g.tmac')

diff --git a/g.tmac b/g.tmac
index 6423cd9..f325daa 100644
--- a/g.tmac
+++ b/g.tmac
@@ -1,29 +1,22 @@
 .eo
-.\" s -- start document section
+.\" s -- setup document (configurable)
 .de s
-. \" start header
-. if '\$1'h' \{\
-.  sp 1i
-.  _d t \" title
-.   ps +4p
-.   vs +2p
-.   ft B
-.   ad c
-.  _d
-.  _d n \" name (of author)
-.   ad c
-.  _d
-.  _d d \" date
-.   ad c
-.  _d
-.  _d p \" paragraph
-.   ad b
-.  _d
-. \}
-. \" start body
-. if '\$1'b' \{\
-.  sp 0.2i
-. \}
+.sp 1i
+._d t \" title
+. ps +4p
+. vs +2p
+. ft B
+. ad c
+._d
+._d n \" name (of author)
+. ad c
+._d
+._d d \" date
+. ad c
+._d
+._d p \" paragraph
+. ad b
+._d
 ..
 .\" _d -- define environment
 .de _d
@@ -63,6 +56,9 @@
 .  br
 . _e p
 .  sp 0.3v
+.  if '\*[penv]'t' .sp 0.5v
+.  if '\*[penv]'n' .sp 0.5v
+.  if '\*[penv]'d' .sp 0.5v
 .  if '\*[penv]'p' \h'0.5c'
 ..
 .\" e -- emphasis
@@ -74,3 +70,4 @@
 \$3\f(BI\$1\fP\$2
 ..
 .ec
+.s
-- 
cgit v1.2.3