diff options
| author | Eduardo Julian | 2022-06-29 03:15:23 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-06-29 03:15:23 -0400 |
| commit | 664e02d1b5e5aa479869c4e17ec4128f5cfd04e2 (patch) | |
| tree | 7111d48d8a728ea30abfb6adb104425f61d65585 /stdlib/source/documentation/lux/world/output/video/resolution.lux | |
| parent | 5232f0701cd95f260005a65d220a361dd71b6b96 (diff) | |
New "parser" hierarchy. [Part 6]
Diffstat (limited to 'stdlib/source/documentation/lux/world/output/video/resolution.lux')
| -rw-r--r-- | stdlib/source/documentation/lux/world/output/video/resolution.lux | 86 |
1 files changed, 35 insertions, 51 deletions
diff --git a/stdlib/source/documentation/lux/world/output/video/resolution.lux b/stdlib/source/documentation/lux/world/output/video/resolution.lux index 97d312c77..6efada0de 100644 --- a/stdlib/source/documentation/lux/world/output/video/resolution.lux +++ b/stdlib/source/documentation/lux/world/output/video/resolution.lux @@ -1,7 +1,7 @@ (.require [library [lux (.except) - ["$" documentation (.only documentation:)] + ["$" documentation] [data ["[0]" text (.only \n) ["%" \\format (.only format)]]] @@ -10,56 +10,40 @@ [\\library ["[0]" /]]) -(documentation: /.Resolution - "A screen resolution.") +(`` (.def .public documentation + (.List $.Module) + ($.module /._ + "" + [($.default /.hash) + ($.default /.equivalence) -(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>)) - ".")))] + ($.documentation /.Resolution + "A screen resolution.") - [/.svga] - [/.wsvga] - [/.xga] - [/.xga+] - [/.wxga_16:9] - [/.wxga_5:3] - [/.wxga_16:10] - [/.sxga] - [/.wxga+] - [/.hd+] - [/.wsxga+] - [/.fhd] - [/.wuxga] - [/.wqhd] - [/.uhd_4k] - ) + (~~ (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>)) + ".")))] -(.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)] - [])) + [/.svga] + [/.wsvga] + [/.xga] + [/.xga+] + [/.wxga_16:9] + [/.wxga_5:3] + [/.wxga_16:10] + [/.sxga] + [/.wxga+] + [/.hd+] + [/.wsxga+] + [/.fhd] + [/.wuxga] + [/.wqhd] + [/.uhd_4k] + ))] + []))) |