stdlib/source/documentation/lux/world/output/video/resolution.lux


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

(.require
 [library
  [lux (.except)
   ["$" documentation]
   [data
    ["[0]" text (.only \n)
     ["%" \\format (.only format)]]]
   [macro
    ["[0]" template]]]]
 [\\library
  ["[0]" /]])

(`` (.def .public documentation
      (.List $.Module)
      ($.module /._
                ""
                [($.default /.hash)
                 ($.default /.equivalence)

                 ($.documentation /.Resolution
                   "A screen resolution.")

                 (~~ (with_template [<name>]
                       [($.documentation <name>
                          (let [name (|> (template.text [<name>])
                                         (text.replaced "_" " ")
                                         text.upper_cased)]
                            (format name " resolution: "
                                    (%.nat (the /.#width <name>))
                                    "x" (%.nat (the /.#height <name>))
                                    ".")))]

                       [/.svga]
                       [/.wsvga]
                       [/.xga]
                       [/.xga+]
                       [/.wxga_16:9]
                       [/.wxga_5:3]
                       [/.wxga_16:10]
                       [/.sxga]
                       [/.wxga+]
                       [/.hd+]
                       [/.wsxga+]
                       [/.fhd]
                       [/.wuxga]
                       [/.wqhd]
                       [/.uhd_4k]
                       ))]
                [])))