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