From f702e46e23302bba7ad3286d0ca273863ada380d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Sat, 19 Jun 2021 20:15:09 +0200
Subject: Have c copy font family and point size from l environment

---
 g.tmac | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

(limited to 'g.tmac')

diff --git a/g.tmac b/g.tmac
index 6461c60..bb7e2cd 100644
--- a/g.tmac
+++ b/g.tmac
@@ -25,8 +25,6 @@
 . \" configure initial options
 . _nr mt 1i \" margin top
 . _nr mb 1i \" margin bottom
-. _ds cfam C \" inline constant-width font family
-. _ds cps -1p \" inline constant-width font size
 .
 . \" initialize document
 . wh 0 _ht
@@ -48,7 +46,7 @@
 .  _ec 0
 .  nr sp 0.3v
 .  nf
-.  in 0.5c
+.  in 18p
 .  fam C
 .  ps -1p
 .  vs -1p
@@ -59,13 +57,13 @@
 . _e p \" paragraph
 .  _ec 0
 .  nr sp 0.3v
-.  nr ti 0.5c
+.  nr ti 18p
 .  ad b
 . _e q \" quotation
 .  _ec 0
 .  nr sp 0.3v
 .  nr ti 1c
-.  in 0.5c
+.  in 18p
 .  ps -1p
 .  vs -1p
 . _e s \" section heading
@@ -217,9 +215,16 @@ ___________________
 .
 .\" c -- constant-width font
 .de c
+.
+. \" copy family and point size from l environment
+. _E l
+. ds _fam \n[.fam]
+. nr _s \n(.s
+. _E
+.
 \$3\c
-. fam \*[cfam]
-. ps \*[cps]
+. fam \*[_fam]
+. ps \n(_s
 \$1\c
 . fam
 . ps
-- 
cgit v1.2.3