Introduction
Introduction Statistics Contact Development Disclaimer Help
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
You are viewing proxied material from bitreich.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.