Latex-Macros/keyboard.typ at main · Akari202/Latex-Macros · 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
#import "keyboard-layouts.typ": (
  colemak-dh, qwerty, tarmak-dh-five, tarmak-dh-four, tarmak-dh-one, tarmak-dh-six, tarmak-dh-three,
  tarmak-dh-two,
)

#let draw-keyboard(
  keymap: qwerty,
  unit: 1cm,
  diff: none,
  hide-number-row: true,
  show-title: true,
  mark-home: true,
  style: (
    thickness: 0.5pt,
    paint: black,
  ),
) = {
  import "@preview/cetz:0.5.2"
  cetz.canvas({
    cetz.draw.set-style(stroke: style)
    import cetz.draw: *

    let ansi = (
      (13, 1.0),
      (1, 2.0),
      (1, 1.5),
      (12, 1.0),
      (1, 1.5),
      (1, 1.75),
      (11, 1.0),
      (1, 2.25),
      (1, 2.25),
      (10, 1.0),
      (1, 2.75),
      (3, 1.25),
      (1, 6.25),
      (4, 1.25),
    )

    let fit-to-width(body, width) = context {
      let max-text-size = 22pt * (unit / 1cm)
      let min-text-size = 4pt

      let content-size = measure(body)
      if content-size.width > 0pt {
        let ratio = (width * unit) / content-size.width * 0.9
        let clamped-text-size = calc.max(
          calc.min(
            ratio * text.size,
            max-text-size,
          ),
          min-text-size,
        )

        set text(size: clamped-text-size)
        body
      } else {
        body
      }
    }

    let key(width: 1, paint: style.paint, body) = {
      content(
        (rel: (0.5 * width * unit, -0.5 * unit), update: false),
        anchor: "center",
        fit-to-width(
          text(
            fill: paint,
            body,
          ),
          width,
        ),
      )
      rect((rel: (0, -unit)), (rel: (width * unit, unit)))
    }

    if show-title {
      content(
        (rel: (0.5 * 15 * unit, 0.5), update: false),
        anchor: "center",
        text(size: 22pt * (unit / 1cm), keymap.at(0)),
      )
    }

    let x-position = 0
    let index = 1
    for i in ansi {
      for _ in range(i.at(0)) {
        if not (hide-number-row and index < 15) {
          let width = i.at(1)
          let keycode = keymap.at(index)
          key(
            width: width,
            paint: if diff != none and diff.at(index) != keycode { red } else { style.paint },
            if mark-home and (index == 36 or index == 33) { underline(keycode) } else { keycode },
          )
          x-position += width
        }
        index += 1
      }
      if x-position >= 15 {
        content((rel: (-x-position * unit, -unit)), [])
        x-position = 0
      }
    }
  })
}