Improve

1 files changed, 21 insertions, 22 deletions

diff --git a/g.tmac b/g.tmac
index eb17536..f9707ef 100644
--- a/g.tmac
+++ b/g.tmac
@@ -2,31 +2,30 @@
 .\" _s -- setup document (configurable)
 .de _s
 . sp 1i
-. _d t \" title
+. ns
+. _e t		\" title
 .  ps +4p
 .  vs +2p
 .  ft B
 .  ad c
-. _d n \" name (of author)
+. _e n		\" name (of author)
+.  nr n_mt 0.9v
 .  ad c
-. _d d \" date
+. _e d		\" date
+.  nr d_mt 0.4v
 .  ad c
-. _d p \" paragraph
+. _e p		\" paragraph
+.  nr p_mt 0.3v
 .  ad b
-. _d
+. _e
 ..
-.\" _d -- define environment
-.de _d
-. if !'\n[.ev]'0' .ev
-. if !'\$1'' .ev \$1
-..
-.\" _e -- enter environment
+.\" _e -- set environment
 .de _e
-.br
+. br
 . if !'\n[.ev]'0' .ev
 . ds penv \*[env]
 . ds env \$1
-. ev \$1
+. if !'\$1'' .ev \$1
 ..
 .\" t -- title
 .de t
@@ -36,13 +35,13 @@
 .de n
 .  br
 . _e n
-.  sp 0.3v
+.  sp \n[n_mt]u
 ..
 .\" d -- date
 .de d
 .  br
 . _e d
-.  sp 0.3v
+.  sp \n[d_mt]u
 .  af mo 00
 .  af dy 00
 .  ie '\$1'' \n[year]-\n(mo-\n(dy
@@ -54,17 +53,17 @@
 .de p
 .  br
 . _e p
-.  sp 0.3v
-.  if '\*[penv]'t' .sp 0.5v
-.  if '\*[penv]'n' .sp 0.5v
-.  if '\*[penv]'d' .sp 0.5v
+.  ie '\*[penv]'t' .sp 1v
+.  el .ie '\*[penv]'n' .sp 1v
+.  el .ie '\*[penv]'d' .sp 1v
+.  el .sp \n[p_mt]u
 .  if '\*[penv]'p' \h'0.5c'
 ..
-.\" e -- emphasis
-.de e
+.\" i -- italic
+.de i
 \$3\fI\$1\fP\$2
 ..
-.\" x -- extra emphasis
+.\" x -- bold italic
 .de x
 \$3\f(BI\$1\fP\$2
 ..