new macroset - tgtimes - The Gopher Times
(HTM) git clone git://bitreich.org/tgtimes git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/tgtimes
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) Tags
(DIR) README
---
(DIR) commit e949c8baeec9d882a94d42134451f7a58aa6553b
(DIR) parent 5baf3c188cd22ec54f6c57d39fb83503b878a101
(HTM) Author: glenda <glenda@9front.local>
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(-)
---
(DIR) 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
(DIR) 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
(DIR) 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