Update docs and HTML

Author: sharkdp

docs/Flare.md

@@ -282,6 +282,22 @@ radioGroup_ :: forall e a. a -> Array a -> (a -> String) -> UI e a
 
 Like `radioGroup`, but without a label.
 
+#### `color`
+
+``` purescript
+color :: forall e. Label -> Color -> UI e Color
+```
+
+Creates a color picker input field from a label and default `Color`.
+
+#### `color_`
+
+``` purescript
+color_ :: forall e. Color -> UI e Color
+```
+
+Like `color`, but without a label.
+
 #### `fieldset`
 
 ``` purescript

docs/Flare/Drawing.md

@@ -232,6 +232,16 @@ fontString :: Font -> String
 
 Turn a `Font` into a `String` which can be used with `Graphics.Canvas.setFont`.
 
+#### `fromHexString`
+
+``` purescript
+fromHexString :: String -> Maybe Color
+```
+
+Parse a hexadecimal RGB code of the form `#rgb` or `#rrggbb`, where the
+hexadecimal digits are of the format [0-9a-f] (case insensitive). Returns
+`Nothing` if the string is in a wrong format.
+
 #### `grayscale`
 
 ``` purescript
@@ -434,6 +444,17 @@ toHSLA :: Color -> { h :: Number, s :: Number, l :: Number, a :: Number }
 
 Convert a `Color` to its hue, saturation, lightness and alpha values.
 
+#### `toHexString`
+
+``` purescript
+toHexString :: Color -> String
+```
+
+Return a hexadecimal representation of the color in the form `#rrggbb`,
+where `rr`, `gg` and `bb` refer to hexadecimal digits corresponding to
+the RGB channel values between `00` and `ff`. The alpha channel is not
+represented.
+
 #### `toRGBA`
 
 ``` purescript

html/index.html

@@ -72,8 +72,8 @@ <h3>Example 6: Select box</h3>
 
         <h3>Example 7: Integration with Signals (Superformula)</h3>
 <pre>
-plot m n1 s time =
-      filled (fillColor (hsl 333.0 0.6 0.5)) $
+plot m n1 s col time =
+      filled (fillColor col) $
         path (map point angles)
 
       where point phi = { x: 100.0 + radius phi * cos phi
@@ -83,15 +83,16 @@ <h3>Example 7: Integration with Signals (Superformula)</h3>
             points = 400
             n2 = s + 3.0 * sin (0.005 * time)
             n3 = s + 3.0 * cos (0.005 * time)
-            radius phi = 20.0 * pow inner (- 1.0 / n1)
-              where inner = first + second
+            radius phi = 20.0 * pow expr (- 1.0 / n1)
+              where expr = first + second
                     first = pow (abs (cos (m * phi / 4.0))) n2
                     second = pow (abs (sin (m * phi / 4.0))) n3
 
-ui = plot <$> (numberSlider "m"  0.0 10.0 1.0  7.0)
-          <*> (numberSlider "n1" 1.0 10.0 0.1  4.0)
-          <*> (numberSlider "s"  4.0 16.0 0.1 14.0)
-          <*> lift animationFrame
+ui7 = plot <$> (numberSlider "m"  0.0 10.0 1.0  7.0)
+           <*> (numberSlider "n1" 1.0 10.0 0.1  4.0)
+           <*> (numberSlider "s"  4.0 16.0 0.1 14.0)
+           <*> (color "Color" (hsl 333.0 0.6 0.5))
+           <*> lift animationFrame
 </pre>
         <div id="controls7"></div>
         <canvas id="output7" width="200" height="200"></canvas>