 |
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 |
