new macroset - tgtimes - The Gopher Times | |
git clone git://bitreich.org/tgtimes git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws… | |
Log | |
Files | |
Refs | |
Tags | |
README | |
--- | |
commit e949c8baeec9d882a94d42134451f7a58aa6553b | |
parent 5baf3c188cd22ec54f6c57d39fb83503b878a101 | |
Author: glenda <[email protected]> | |
Date: Thu, 21 Oct 2021 01:28:33 +0000 | |
new macroset | |
Diffstat: | |
A mkfile | 15 +++++++++++++++ | |
A mknews | 18 ++++++++++++++++++ | |
A tmac/tmac.w | 171 +++++++++++++++++++++++++++++… | |
3 files changed, 204 insertions(+), 0 deletions(-) | |
--- | |
diff --git a/mkfile b/mkfile | |
@@ -0,0 +1,15 @@ | |
+default:V: current | |
+ | |
+current:V: | |
+ cd current | |
+ mk all | |
+ | |
+publish:V: | |
+ rm current/mkfile # no change after publication | |
+ mv current `{date -f YYYY-MM-DD} | |
+ mkdir -p current | |
+ echo '<../mknews' >current/mkfile | |
+ touch current/newspaper.mw | |
+ | |
+bind:V: | |
+ bind -a tmac /sys/lib/tmac | |
diff --git a/mknews b/mknews | |
@@ -0,0 +1,18 @@ | |
+ps='<< /PageSize [287 500] >> setpagedevice' | |
+ | |
+all:V: newspaper.ps newspaper.pdf newspaper.txt | |
+ | |
+view:V: newspaper.mw | |
+ troff -mw $prereq | proof | |
+ | |
+clean:V: | |
+ rm -f *.ps *.pdf *.txt | |
+ | |
+%.txt: %.mw | |
+ nroff -mw $prereq | col -xb >$target | |
+ | |
+%.ps: %.mw | |
+ troff -mw $prereq | dpost -P $ps >$target | |
+ | |
+%.pdf: %.ps | |
+ ps2pdf $prereq >$target | |
diff --git a/tmac/tmac.w b/tmac/tmac.w | |
@@ -0,0 +1,171 @@ | |
+.\"neWspaper macro set looking like -ms | |
+. | |
+.\"shared macros | |
+. | |
+.de #- \"horizontal ruler | |
+. #R | |
+. ad c | |
+. in 0 | |
+. ti 0 | |
+. sp 0 | |
+. if \\n(.Au=0 \l'\\n($Wu+\\n($Mu─' | |
+. if \\n(.Au=1 \l'\\n($Wu_' | |
+. if \\n(.Au=1 .sp 1v | |
+. #R | |
+. nr $S 1 | |
+.. | |
+.de #> \"reduce right margin | |
+. ad r | |
+. ll \\n($Lu+1n | |
+.. | |
+. | |
+.de #< \"reduce left margin | |
+. po \\n($Mu-1n | |
+.. | |
+. | |
+.de #R \"reset | |
+. ps 10p | |
+. vs 12p | |
+. ft 1 | |
+. in 0 | |
+. mc | |
+. rs | |
+. po \\n($Mu | |
+. ll \\n($Lu | |
+. ad b | |
+. fi | |
+.. | |
+. | |
+.de #P \"terminate a paragraph | |
+. #R | |
+. #D | |
+. rm #D | |
+. it | |
+. if \\n(.Au=0 .ne \\$1 \"at least $1 lines below or break page | |
+. if \\n($Su=0 .sp 0.6v | |
+. nr $S 0 | |
+.. | |
+. | |
+.de #B \"bottom of page trap | |
+. | |
+. if \\n(.A=0 \{ . | |
+. #E | |
+. bp | |
+. sp \\n($Mu | |
+. \} | |
+.. | |
+. | |
+.de #E \"expand footnotes | |
+. ev 1 | |
+. nf \"[nt]roff requirement? | |
+. #F \"include acumulated footnotes | |
+. rm #F \"flush accumulated footnotes | |
+. ev | |
+. nr $F 0 \"reset footnote number | |
+. nr $B (-\\n($Mu) \"reset bottom position | |
+. ch #B \\n($Bu \"refresh bottom trap | |
+.. | |
+. | |
+.\"front-end looking like -ms | |
+. | |
+.de TL \"title | |
+. #R | |
+. ps 23p | |
+. ft 3 | |
+. ad c | |
+. sp 3v | |
+.. | |
+. | |
+.de AB \"abstract beginning | |
+. #P 3v | |
+. #- | |
+. ft 2 | |
+.. | |
+. | |
+.de AE \"abstract end | |
+. #- | |
+. #R | |
+.. | |
+. | |
+.de SH \"section heading | |
+. #P 20v | |
+. if \\n(.A=1 .#E \"if nroff, expand footnotes | |
+. sp 2v | |
+. | |
+. da #D | |
+. #- | |
+. da | |
+. | |
+. #> | |
+\\$1 | |
+. sp -1 | |
+. #R | |
+. | |
+. ps 17p | |
+. vs 17p | |
+. ft 3 | |
+. #< | |
+.. | |
+. | |
+.de PP \"paragraph | |
+. #P 4v | |
+.. | |
+. | |
+.de IP \"indented paragraph | |
+. #P 4v | |
+. in 2m | |
+. ta 2m | |
+\\$1\t | |
+.. | |
+. | |
+.de QP \"start quoted paragraph | |
+. #P 4v | |
+. in 1n | |
+. ti -1n | |
+>> | |
+.. | |
+. | |
+.de LP \"literal formatting paragraph | |
+. #P 5v | |
+. ft 5u | |
+. cs 5u | |
+. ps 8p | |
+. vs 8p | |
+. in 1n | |
+. nf | |
+. na | |
+.. | |
+. | |
+.de FS \"footnote start | |
+. nr $F \\n($Fu+1u | |
+[\\n($F] | |
+. da #F | |
+. ev 1 | |
+. if \\n($Fu=1u \{ . | |
+\l'20n' | |
+. br | |
+. in 1n | |
+. \} | |
+[\\n($F] | |
+.. | |
+. | |
+.de FE \"footnote end | |
+. br | |
+. ev | |
+. di | |
+. nr $B (\\n($Bu-\\n(dnu-1v) | |
+. ch #B \\n($Bu-1v | |
+.. | |
+. | |
+.\"initialize | |
+. | |
+.if \n(.Au=0 .nr $W 4i \"paper width in troff | |
+.if \n(.Au=1 .nr $W 60m \"paper width in nroff | |
+.if \n(.Au=0 .nr $H 7i \"paper height in troff | |
+.if \n(.Au=1 .nr $H 500i \"paper height in nroff | |
+.nr $M 0.2i \"page margins | |
+.nr $L \n($Wu-\n($Mu-\n($Mu \"line length | |
+.nr $B -\n($Mu | |
+. | |
+.pl \n($Hu | |
+.wh \n($B #B \"trap for bottom of page |