tmac.sdisp - 9base - revived minimalist port of Plan 9 userland to Unix | |
git clone git://git.suckless.org/9base | |
Log | |
Files | |
Refs | |
README | |
LICENSE | |
--- | |
tmac.sdisp (864B) | |
--- | |
1 . \"DS - display. If .DS C, center; L, left-adjust; I, indent. | |
2 .de DS | |
3 .KS | |
4 .nf | |
5 .\\$1D \\$2 \\$1 | |
6 .ft 1 | |
7 .if !\\n(IF \{\ | |
8 . ps \\n(PS | |
9 . ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 8… | |
10 . ie \\n(VS>=41 .vs \\n(VSu | |
11 . el .vs \\n(VSp\} | |
12 .. | |
13 .de D | |
14 .ID \\$1 | |
15 .. | |
16 .de CD | |
17 .XD | |
18 .ce 1000 | |
19 .. | |
20 .de ID | |
21 .XD | |
22 .if t .in +0.5i | |
23 .if n .in +8 | |
24 .if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in \\n(OIu | |
25 .if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in +\\$1n | |
26 .. | |
27 .de LD | |
28 .XD | |
29 .. | |
30 .de XD | |
31 .nf | |
32 .nr OI \\n(.i | |
33 .sp \\n(DVu | |
34 .. | |
35 .de BD \" block display: save everything, then center it. | |
36 .XD | |
37 .nr BD 1 | |
38 .nf | |
39 .in \\n(OIu | |
40 .di DD | |
41 .. | |
42 . \"DE - display end | |
43 .de DE | |
44 .ce 0 | |
45 .if \\n(BD>0 .DF | |
46 .nr BD 0 | |
47 .in \\n(OIu | |
48 .KE | |
49 .sp \\n(DVu | |
50 .fi | |
51 .. | |
52 .de DF \" finish a block display to be recentered. | |
53 .di | |
54 .if \\n(dl>\\n(BD .nr BD \\n(dl | |
55 .if \\n(BD<\\n(.l .in (\\n(.lu-\\n(BDu)/2u | |
56 .nr EI \\n(.l-\\n(.i | |
57 .ta \\n(EIuR | |
58 .nf | |
59 .DD | |
60 .in \\n(OIu | |
61 .. |