aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/documentation/lux/world/output/video/resolution.lux
blob: 3595c16249a9c09870d844f534a13d3086f48a47 (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
(.require
 [library
  [lux (.except)
   ["$" documentation]
   [data
    ["[0]" text (.only \n)
     ["%" \\format (.only format)]]]
   [meta
    [macro
     ["[0]" template]]]]]
 [\\library
  ["[0]" /]])

(`` (def .public documentation
      (List $.Documentation)
      (list ($.module /._
                      "")

            ($.definition /.hash)
            ($.definition /.equivalence)

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

            (,, (with_template [<name>]
                  [($.definition <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]
                  ))
            )))