-
Notifications
You must be signed in to change notification settings - Fork 0
/
test40.satyh
40 lines (38 loc) · 1.2 KB
/
test40.satyh
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
@require: list
@require: table
let font-latin-bold = (`ipaexg`, 1., 0.)
let make-okutsuke-page ctx-doc title date author email publisher =
let ctx-title =
ctx-doc
|> set-font Latin font-latin-bold
|> set-font-size 32pt
|> set-paragraph-margin 8pt 8pt
|> set-every-word-break inline-fil inline-fil
in
let ctx =
ctx-doc
|> set-font-size 20pt
|> set-paragraph-margin 8pt 8pt
|> set-every-word-break inline-fil inline-fil
in
let leftf ctx it =
line-break false false ctx
(read-inline ctx it ++ inline-fil)
in
let okutsuke =
leftf ctx { \tabular(fun t -> (
let (c, l, r) = (t#c, t#l, t#r) in
let m = t#m in
let e = t#e in
[[l {発行日}; l (embed-string date)];
[l {サークル}; l (embed-string author)];
[l {連絡先}; l (embed-string email)];
[l {印刷所}; l (embed-string publisher)];]
))(fun xs ys -> ([])); }
in
[
block-skip 10cm;
leftf ctx (embed-string title);
okutsuke;
clear-page;
] |> List.fold-left (+++) block-nil