(.require
 [library
  [lux (.except)
   ["$" documentation]
   [data
    ["[0]" text (.only \n)
     ["%" \\format (.only format)]]]
   [macro
    [syntax (.only syntax)]
    ["[0]" template]
    ["[0]" code (.only)
     ["<[1]>" \\parser]]]]]
 [\\library
  ["[0]" /]]
 ["[0]" /
  ["[1][0]" named]])

(def palette_documentation
  (syntax (_ [[_ name] <code>.symbol])
    (in (list (code.text (format "A " (text.replaced "_" "-" name) " palette."))))))

(`` (.def .public documentation
      (.List $.Module)
      ($.module /._
                ""
                [($.default /.of_rgb)
                 ($.default /.rgb)
                 ($.default /.equivalence)
                 ($.default /.hash)
                 ($.default /.black)
                 ($.default /.white)
                 ($.default /.addition)
                 ($.default /.subtraction)
                 ($.default /.hsl)
                 ($.default /.of_hsl)
                 ($.default /.hsb)
                 ($.default /.of_hsb)
                 ($.default /.cmyk)
                 ($.default /.of_cmyk)
                 ($.default /.gray_scale)
                 ($.default /.Spread)
                 ($.default /.Palette)
                 ($.default /.darker)
                 ($.default /.brighter)
                 ($.default /.saturated)
                 ($.default /.un_saturated)

                 ($.documentation /.RGB
                   "Red-Green-Blue color format.")

                 ($.documentation /.HSL
                   "Hue-Saturation-Lightness color format.")

                 ($.documentation /.CMYK
                   "Cyan-Magenta-Yellow-Key color format.")

                 ($.documentation /.HSB
                   "Hue-Saturation-Brightness color format.")

                 ($.documentation /.Color
                   "A color value, independent of color format.")

                 ($.documentation /.complement
                   "The opposite color."
                   [(complement color)])

                 ($.documentation /.interpolated
                   ""
                   [(interpolated ratio end start)])

                 ($.documentation /.analogous
                   (palette_documentation /.analogous)
                   [(analogous spread variations color)])

                 ($.documentation /.monochromatic
                   (palette_documentation /.monochromatic)
                   [(monochromatic spread variations color)])

                 ($.documentation /.Alpha
                   "The degree of transparency of a pigment.")

                 ($.documentation /.transparent
                   "The maximum degree of transparency.")

                 ($.documentation /.translucent
                   "The average degree of transparency.")

                 ($.documentation /.opaque
                   "The minimum degree of transparency.")

                 ($.documentation /.Pigment
                   "A color with some degree of transparency.")

                 (~~ (with_template [<name>]
                       [(`` ($.documentation <name>
                              (format "A "
                                      (text.replaced "_" "-" (~~ (template.text [<name>])))
                                      " color scheme.")))]

                       [/.triad]
                       [/.clash]
                       [/.split_complement]
                       [/.square]
                       [/.tetradic]
                       ))]
                [/named.documentation])))