Templates-XCPC/theme.typ at main · EmptyDust/Templates-XCPC · GitHub

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
// theme.typ — 视觉层：全书的字体、版面、代码、目录样式
// 用法：#import "theme.typ": * 然后 #show: theme

// 章序号（两位补零，Montserrat）：章首巨号、目录、页眉三处共用同一计数。
// counter(heading) 会被 ==/=== 一起步进，不可用；numbering("01", n) 的
// "0" 是字面前缀不是补零（10→"010"），故按元素位置计数后手动补零。
#let chapter-num(el) = context {
  let i = query(heading.where(level: 1)).position(h => h.location() == el.location())
  let s = str(i + 1)
  if s.len() < 2 { s = "0" + s }
  text(font: "Montserrat", s)
}

#let theme(doc) = {
  set page(
    paper: "a4",
    margin: (x: 36pt, top: 40pt, bottom: 44pt),
    // 页眉 running head：偶数页当前节/小节名、奇数页章号+章名；起章页与首章之前无页眉。
    // 起章页不放页眉——页眉取的是 here() 之前最后一个章标题，章首会顶着上一章的章名。
    header: context {
      let heads = query(heading.where(level: 1))
      if heads.any(h => h.location().page() == here().page()) { return }
      let past = query(heading.where(level: 1).before(here()))
      if past.len() == 0 { return }
      let even = calc.even(counter(page).get().first())
      let cur = past.last()
      align(if even { left } else { right }, text(8.5pt, fill: luma(90), if even {
        // 取页首前最近的节/小节；本章尚无小节时回退到章名。
        query(selector(heading).before(here())).filter(h => h.level <= 3).last().body
      } else {
        [#chapter-num(cur)#h(0.45em)#cur.body]
      }))
    },
  )
  set text(
    font: ("Noto Serif", "Noto Serif CJK SC"),
    size: 9.5pt,
    lang: "zh",
    region: "cn",
  )
  set par(justify: true, leading: 0.45em)

  // 公式：TeX Gyre Termes Math，笔画粗细与正文一致
  show math.equation: set text(font: "TeX Gyre Termes Math")

  // ---- 标题层级：章 level 1（另起一页），节 level 2，小节 level 3 ----
  // 必须保留 `it`（heading 元素），只改 set text 的话目录/书签才能挂上 PDF 目的地。
  // 写成 text(it.body) 会丢掉 heading，outline 点了跳不过去。
  show heading.where(level: 1): it => {
    pagebreak(weak: true)
    v(0.4em)
    // 章号：place 到页面右上角，不占流式高度——行盒自带下降部空隙，进流排版
    // 会让数字底边悬在细线上方、顶边也够不高。底边压到标题细线附近，
    // 顶边伸进起章页空置的页眉带（页眉规则见上）。dy 按渲染实测微调。
    // 字体 Montserrat Black：海报几何无衬线。灰度 luma(230) 做光学补偿。勿换回 mono。
    context {
      place(top + right, dy: -11pt,
        text(size: 64pt, weight: 900, fill: luma(230), chapter-num(it)))
    }
    // 间距显式接管（绝对 pt）：标题细线距纸顶约 29.0mm。
    // block 的 above 在页首会塌缩，页首间距必须用强 v()。
    v(7.5pt)
    block(below: 6pt, {
      set text(17pt, weight: "bold")
      it
    })
    line(length: 100%, stroke: 0.4pt + black)
    v(0.6em)
  }
  show heading.where(level: 2): it => {
    v(0.9em)
    set text(11.8pt, weight: "bold")
    it
    v(0.25em)
  }
  show heading.where(level: 3): it => {
    v(0.7em)
    set text(10.6pt, weight: "bold")
    it
    v(0.2em)
  }

  // ---- 代码 ----
  set raw(theme: "export/book-mono.tmTheme")
  // 内置语法集不含 powershell，vendor 一份极简定义
  set raw(syntaxes: "export/powershell.sublime-syntax")
  // JetBrains Mono 有连字（<= → ≤）。syntect 高亮分段会绕过 ligatures: false，
  // 必须关 OpenType 特性本身
  show raw: set text(ligatures: false, features: (liga: 0, clig: 0, calt: 0, dlig: 0))
  // 代码块：不写 size，沿用 raw 内置的 0.8em（相对正文）
  show raw.where(block: true): set text(
    font: ("JetBrains Mono", "Noto Sans Mono CJK SC", "Noto Serif CJK SC"),
  )
  show raw.where(block: true): it => block(
    fill: luma(245),
    inset: (x: 8pt, y: 7pt),
    width: 100%,
    breakable: true,
    {
      set par(justify: false, leading: 0.5em)
      it
    },
  )
  // 行内代码：等宽 + 浅色下划线，extent 原生延伸
  // raw 默认自带 0.8em 缩小；1.125 × 0.8 = 0.9，行内代码字号为正文的 0.9 倍
  show raw.where(block: false): set text(font: ("JetBrains Mono", "Noto Sans Mono CJK SC", "Noto Serif CJK SC"), size: 1.125em)
  show raw.where(block: false): it => underline(
    offset: 2.2pt,
    extent: 0.8pt,
    stroke: 0.8pt + luma(180),
    it,
  )

  // 引用块：左边条
  show quote.where(block: true): it => {
    v(0.2em)
    block(
      stroke: (left: 1.6pt + luma(195)),
      inset: (left: 0.9em, y: 0.1em),
      it.body,
    )
    v(0.2em)
  }

  // 表格：booktabs 三线（顶线、栏头线、底线），无竖线
  set table(
    stroke: (x, y) => (
      top: if y == 0 { 0.7pt + black }
           else if y == 1 { 0.4pt + black }
           else { none },
      left: none,
      right: none,
      bottom: none,
    ),
    inset: 0.45em,
  )
  show table: it => block(stroke: (bottom: 0.7pt + black), inset: 0pt, it)
  show table.cell.where(y: 0): strong

  // 链接不染色，只保留继承色
  show link: it => text(fill: luma(17), it)

  // 图片：比栏宽 80% 大的缩到 80%，小图保持原始尺寸
  show image: it => layout(size => {
    let w = measure(it).width
    if w > size.width * 0.8 { set image(width: 80%); it } else { it }
  })

  // 目录条目：章条目带 Montserrat 章号（与章首巨号同计数）。entry 无 body/page 字段，
  // 手工重建 编号+标题｜点线(it.fill)｜页码 三栏，整行链接到章标题。
  show outline.entry.where(level: 1): it => {
    set text(weight: "bold")
    link(it.element.location(), grid(
      columns: (auto, 1fr, auto),
      [#chapter-num(it.element)#h(0.5em)#it.element.body],
      text(fill: black, box(it.fill)),
      text(fill: black, [#str(counter(page).at(it.element.location()).first())]),
    ))
  }

  doc
}