blob: 808bc1a42bab7a6ab8698dddb5c209022977f185 (
plain)
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
|
(.module:
[library
[lux "*"
["$" documentation {"+" [documentation:]}]
[control
["<>" parser
["<[0]>" code]]]
[data
["[0]" text {"+" [\n]}
["%" format {"+" [format]}]]]
[macro
["[0]" template]]]]
[\\library
["[0]" /]])
(documentation: /.Resolution
"A screen resolution.")
(template [<name>]
[(documentation: <name>
(let [name (|> (template.text [<name>])
(text.replaced "/" " ")
(text.replaced "_" " ")
text.upper_cased)]
(format name " resolution: "
(%.nat (value@ /.#width <name>))
"x" (%.nat (value@ /.#height <name>))
".")))]
[/.svga]
[/.wsvga]
[/.xga]
[/.xga+]
[/.wxga/16:9]
[/.wxga/5:3]
[/.wxga/16:10]
[/.sxga]
[/.wxga+]
[/.hd+]
[/.wsxga+]
[/.fhd]
[/.wuxga]
[/.wqhd]
[/.uhd_4k]
)
(.def: .public documentation
(.List $.Module)
($.module /._
""
[..Resolution
..svga
..wsvga
..xga
..xga+
..wxga/16:9
..wxga/5:3
..wxga/16:10
..sxga
..wxga+
..hd+
..wsxga+
..fhd
..wuxga
..wqhd
..uhd_4k
($.default /.hash)
($.default /.equivalence)]
[]))
|
