diff options
Diffstat (limited to 'g.tmac')
| -rw-r--r-- | g.tmac | 292 |
1 files changed, 150 insertions, 142 deletions
@@ -9,204 +9,209 @@ .\" For an index of the macros defined in "/. .\" this file, issue `grep -n [-]- g.tmac'. "/. .\" "/. -.\" Place new macros in alphabetical order. "/. +.\" When editing the source of mg, keep the "/. +.\" following rules in mind: "/. .\" "/. -.\" Do not use .ev and .evc outside wrapper "/. -.\" macros like _e and _ec. "/. +.\" * Prefix temporary registers with _. "/. +.\" * Prefix temporary strings with _. "/. +.\" * Prefix internal environments with @. "/. +.\" * Prefix internal registers with @. "/. +.\" * Prefix internal macros with @ (normal "/. +.\" macros), * (variants of the same macro) "/. +.\" or % (strings). "/. +.\" * Place macros in alphabetical order. "/. +.\" * Do not use .ev and .evc outside of "/. +.\" wrapper macros like (e, @e and @c. "/. .\" "/. . .eo \" disable backslash escapes . .\" Internal macros ---------------------------- . -.\" _a -- setup document -.de _a +.\" @a -- setup document +.de @a . . \" configure initial options -. _nr mt 1i \" top margin -. _nr mb 1i \" bottom margin -. _ds tt '''' \" text in top margin -. _ds tb ''%'' \" text in bottom margin +. @nr mt 1i \" top margin +. @nr mb 1i \" bottom margin +. @ds tt '''' \" text in top margin +. @ds tb ''%'' \" text in bottom margin . . \" initialize document -. wh 0 _th -. wh -\n(mbu _tf +. wh 0 @th +. wh -\n(mbu @tf . sp 1u \" trigger header . . \" configure environments -. _e d \" date -. _ec 0 +. @e d \" date +. @c 0 . nr sp 0.4v . ad c -. _e h \" heading -. _ec 0 +. @e h \" heading +. @c 0 . nr sp 1.2v . ps +1p . ft B -. _e l \" literal display -. _ec 0 +. @e l \" literal display +. @c 0 . nr sp 0.3v . nf . in 18p . fam C . ps -1p . vs -1p -. _e n \" name (of author) -. _ec 0 +. @e n \" name (of author) +. @c 0 . nr sp 0.4v . ad c -. _e p \" paragraph -. _ec 0 +. @e p \" paragraph +. @c 0 . nr sp 0.3v . nr ti 18p . ad b -. _e q \" quotation -. _ec 0 +. @e q \" quotation +. @c 0 . nr sp 0.3v . nr ti 1c . in 18p . ps -1p . vs -1p -. _e s \" section heading -. _ec 0 +. @e s \" section heading +. @c 0 . nr sp 1v . ft B -. _e t \" title -. _ec 0 +. @e t \" title +. @c 0 . ps +4p . vs +2p . ft B . ad c -. _e +. @e . . \" configure special environments -. _E _f \" footnote -. _ec 0 +. (e @f \" footnote +. @c 0 . ps -2p . vs -1p -. _E _m \" margins (header, footer) -. _ec 0 -. _E +. (e @m \" margins (header, footer) +. @c 0 +. (e .. . -.\" _ds -- set default string value -.de _ds +. \" @c -- copy environment +.de @c +. evc \$1 +. nr sp \n[@\$1_sp] +. nr sq \n[@\$1_sq] +. nr ti \n[@\$1_ti] +.. +. +.\" @ds -- set default string value +.de @ds . if '\*[\$1]'' .ds \$1 \$2 .. . -.\" _E -- just set environment -.de _E +.\" (e -- set environment +.de (e . ev \$1 .. . -.\" _e -- set environment -.de _e +.\" @e -- set extended environment +.de @e . -. \" initialize document? -. if '\n(_a'0' \{\ -. nr _a 1 -. _a +. \" initialize document if not initialized +. if '\n(@a'0' \{\ +. nr @a 1 +. @a . \} . . \" save special environment variables . if !'\n[.ev]'0' \{\ -. nr \n[.ev]_sp \n(sp \" vertical space before any environment -. nr \n[.ev]_sq \n(sq \" vertical space before different environment -. nr \n[.ev]_ti \n(ti \" first line indentation +. nr @\n[.ev]_sp \n(sp \" vertical space before any environment +. nr @\n[.ev]_sq \n(sq \" vertical space before different environment +. nr @\n[.ev]_ti \n(ti \" first line indentation . ev . \} . . \" keep track of previous and new environment -. ds _penv \*[_env] -. ds _env \$1 +. ds %penv \*[%env] +. ds %env \$1 . . \" post-environment operations . if !'\$1'' \{\ . \" add small space after title -. if '\*[_penv]'t' .if '\*[_env]'d' .sp 0.1v -. -. \" add space after title block (including date) -. if !'\*[_env]'n' .if !'\*[_env]'d' \{\ -. nr _tb 0 -. ie '\*[_penv]'t' .nr _tb 1 -. el .if '\*[_penv]'d' .nr _tb 1 -. if \n[_tb]==1 \{\ -. sp 0.5i -. ns -. \} +. if '\*[%penv]'t' .if '\*[%env]'d' .sp 0.1v +. +. \" add space after title block +. nr _ 0 +. if !'\*[%env]'d' .nr _ 1 +. if !'\*[%penv]'t' .if !'\*[%penv]'d' .nr _ 0 +. if \n_ \{\ +. sp 0.5i +. ns . \} -. \} . -. \" activate new environment -. if !'\$1'' \{\ +. \" activate new environment . ev \$1 -. nr sp \n[\n[.ev]_sp] -. nr sq \n[\n[.ev]_sq] -. nr ti \n[\n[.ev]_ti] +. nr sp \n[@\n[.ev]_sp] +. nr sq \n[@\n[.ev]_sq] +. nr ti \n[@\n[.ev]_ti] . sp \n(spu -. if !'\*[_env]'\*[_penv]' .sp \n(squ +. if !'\*[%env]'\*[%penv]' .sp \n(squ . \} .. . -. \" _ec -- copy environment -.de _ec -. evc \$1 -. nr sp \n[\$1_sp] -. nr sq \n[\$1_sq] -. nr ti \n[\$1_ti] -.. -. -.\" _nr -- set default numeric value -.de _nr +.\" @nr -- set default numeric value +.de @nr . if \n[\$1]=0 .nr \$1 \$2 .. . -.\" _tf -- footer trap -.de _tf +.\" @tf -- footer trap +.de @tf . . \" print footer -. _E _m -. rt \n(.pu-\n(mbu \" return to correct position? +. (e @m +. rt \n(.pu-\n(mbu \" return to correct position if pushed down . sp \n(mbu-2v-24p . tl \*(tb ' bp .. . -.\" _th -- header trap -.de _th -. _E _m +.\" @th -- header trap +.de @th +. (e @m . rt 0 . sp 24p . tl \*(tt . rt 0 . sp \n(mtu -. _E \*[_env] +. (e \*[%env] . ns .. . -.\" _tn -- footnote trap -.de _tn +.\" @tn -- footnote trap +.de @tn . . \" override footer -. ch _tf +. ch @tf . . \" print collected footnotes -. _E _m +. (e @m ___________________ . br . sp 1p -. _E _f -. _n +. (e @f +. @n . br . . \" clear footnotes -. ch _tn -. nr _dn 0 -. rm _n +. ch @tn +. nr @dn 0 +. rm @n . . \" trigger and restore footer -. _tf -. wh -\n(mbu _tf +. @tf +. wh -\n(mbu @tf .. . . @@ -220,24 +225,26 @@ ___________________ .\" c -- constant-width font .de c . +. \" save original interword spacing +. nr _ss \n[.ss] +. . \" copy family and (relative) point size from l environment -. _E 0 -. nr _S \n(.s -. _E -. _E l -. ds _fam \n[.fam] -. nr _s \n(.s -. _E +. (e 0 +. nr _s0 \n(.s +. (e +. (e l +. ds _fl \n[.fam] +. nr _sl \n(.s +. (e . \&\$3\c -. fam \*[_fam] -. ps +(\n(_s-\n(_S)u -. nr _s \n[.ss] +. fam \*[_fl] +. ps +(\n[_sl]-\n[_s0])u . ss 7 \&\$1\c . fam . ps -. ss \n(_s +. ss \n[_ss] \&\$2 .. . @@ -263,7 +270,7 @@ ___________________ . \" block . el \{\ . br -. _e q +. @e q . ti \n(tiu . \} .. @@ -275,7 +282,7 @@ ___________________ .\" d -- date .de d . br -. _e d +. @e d . af mo 00 . af dy 00 . ie '\$1'' \n[year]-\n(mo-\n(dy @@ -287,33 +294,33 @@ ___________________ .de h . br . w h p -. _e h +. @e h . .. .\" l -- literal display .de l . br -. _e l +. @e l .. . .\" p -- paragraph .de p . br -. _e p -. if '\*[_penv]'p' .ti \n(tiu +. @e p +. if '\*[%penv]'p' .ti \n(tiu .. . .\" s -- subheading .de s . br . w s p -. _e s +. @e s .. . .\" t -- title .de t . br -. _e t +. @e t .. . . @@ -324,14 +331,14 @@ ___________________ . if !'\$1'' \&\$1\c . . \" increment and print number -. nr _n \n(_n+1 -\v'-.3m'\s'\En(.s*80/100'\n(_n\s0\v'.3m'\c +. nr @n \n(@n+1 +\v'-.3m'\s'\En(.s*80/100'\n(@n\s0\v'.3m'\c . . \" switch environment and capture footnote -. _E _f +. (e @f . ti 9p -. boxa _n -\v'-.3m'\s'\En(.s*80/100'\n(_n\s0\v'.3m'\h'2p'\c +. boxa @n +\v'-.3m'\s'\En(.s*80/100'\n(@n\s0\v'.3m'\h'2p'\c .. . .\" ) -- end footnote @@ -339,14 +346,14 @@ ___________________ . br \!.br . boxa -. _E \*[_env] +. (e \*[%env] . ie !'\$1'' \&\$1 . el \& . . \" print footnote at bottom of page -. ch _tn -. nr _dn +\n(dnu -. if !'\n(dn'0' .wh -\n[_dn]u-\n(mbu-12p _tn +. ch @tn +. nr @dn +\n(dnu +. if !'\n(dn'0' .wh -\n[@dn]u-\n(mbu-12p @tn .. . . \" w -- want space @@ -354,32 +361,33 @@ ___________________ . *w 0 \$@ .. .de *w -. nr s \$1 \" accumulated space -. length n \$2 \" number of lines in environment -. ds __e \$2 \" environment -. nr n -1 -. substring __e 0 0 -. -. \" add environment sp/sq -. nr s +\n[\*[__e]_sp] -. nr s +\n[\*[__e]_sq] -. -. \" add environment vs -. _E \*[__e] +. +. \" parse specification -> _s : accumulated space +. nr _s \$1 \" _e : environment name (e.g. eee -> e) +. ds _e \$2 \" _n : number of lines specified (e.g. eee -> 3) +. substring _e 0 0 +. length _n \$2 +. +. \" add environment spacing +. nr _s +\n[@\*(_e_sp] +. nr _s +\n[@\*(_e_sq] +. +. \" add environment line height (for each line) +. (e \*(_e . nr _v \n(.v -. _E -. nr s +(\nn*\n(_v) +. (e +. nr _s +(\n(_n*\n(_v) . shift 2 . -. \" request space or recurse -. ie \n(.$=0 \{\ -. nr S \ns-\n(_v+1u \" do not request too much -. if (\nSu)>\n(.tu \{\ +. \" recurse or request space if done +. ie \n(.$>0 .*w \n(_s \$@ +. el \{\ +. nr _s \n(_s-\n(_v+1u \" do not request too much +. if (\n(_su)>\n(.tu \{\ . br . bp . \} . \} -. el .*w \ns \$@ .. . .ec \" re-enable backslash escapes |