Use FlareDoc

Author: sharkdp

.gitignore

@@ -4,4 +4,4 @@
 /output/
 /.psci*
 /src/.webpack.js
-test.js
+html/test.js

bower.json

@@ -15,6 +15,6 @@
   },
   "devDependencies": {
     "purescript-test-unit": "^4.1.0",
-    "purescript-flarecheck": "^0.2.2"
+    "purescript-flaredoc": "^0.1.0"
   }
 }

flarecheck.css renamed to html/flarecheck.css

@@ -23,10 +23,10 @@ <h1>purescript-color</h1>
     </ul>
 
     <a name="color"></a><h2>Module Color</h2>
-    <div id="tests"></div>
+    <div id="doc-color"></div>
 
     <a name="scheme-md"></a><h2>Module Color.Scheme.MaterialDesign</h2>
-    <div id="tests-md"></div>
+    <div id="doc-scheme-md"></div>
 
     <script type="text/javascript" src="test.js"></script>
   </body>

index.html renamed to html/index.html

@@ -131,7 +131,7 @@ toRGBA (HSLA h s l a) = { r, g, b, a }
          | 4.0 <= h' && h' < 5.0 = { r: x  , g: 0.0, b: chr }
          | otherwise             = { r: chr, g: 0.0, b: x   }
 
--- The CSS representation of the color in the form `hsl(..)` or `hsla(...)`.
+-- | The CSS representation of the color in the form `hsl(..)` or `hsla(...)`.
 cssStringHSLA :: Color -> String
 cssStringHSLA (HSLA h s l a) =
   if a == 1.0

html/purescript-colors.json

@@ -1,14 +1,15 @@
 module Test.Interactive where
 
 import Prelude
-import Test.FlareCheck
 
 import Text.Smolder.Markup as H
 import Text.Smolder.Markup ((!), text)
 import Text.Smolder.HTML as H
 import Text.Smolder.HTML.Attributes as HA
 import Text.Smolder.Renderer.String as H
 
+import Test.FlareDoc
+
 import Color
 import Color.Scheme.MaterialDesign
 
@@ -42,31 +43,38 @@ instance flammableInt255 :: Flammable Int255 where
   spark = Int255 <$> intSlider "Int" 0 255 100
 
 main = do
-  flareCheck "hsla" (id :: TColor -> _)
-  flareCheck "rgba :: Int -> Int -> Int -> Number -> Color" $
-    (\(Int255 r) (Int255 g) (Int255 b) (Number1 a) -> TColor (rgba r g b a))
-  flareCheck "cssStringHSLA :: Color -> String" (\(TColor c) -> cssStringHSLA c)
-  flareCheck "greyscale :: Number -> Color" (\(Number1 s) -> TColor (grayscale s))
-  flareCheck "complementary :: Color -> Color" (\(TColor c) -> TColor (complementary c))
-  flareCheck "lighten :: Number -> Color -> Color" (\(Number1 a) (TColor c) -> TColor (lighten a c))
-  flareCheck "darken :: Number -> Color -> Color" (\(Number1 a) (TColor c) -> TColor (darken a c))
+  withPackage "purescript-colors.json" $ \dict -> do
+    let doc :: forall t. Interactive t => String -> t -> _
+        doc = flareDoc' "doc-color" dict "Color"
+
+    doc "hsla" (id :: TColor -> _)
+    doc "rgba" $
+      (\(Int255 r) (Int255 g) (Int255 b) (Number1 a) -> TColor (rgba r g b a))
+    doc "cssStringHSLA" (\(TColor c) -> cssStringHSLA c)
+    doc "grayscale" (\(Number1 s) -> TColor (grayscale s))
+    doc "complementary" (\(TColor c) -> TColor (complementary c))
+    doc "lighten" (\(Number1 a) (TColor c) -> TColor (lighten a c))
+    doc "darken" (\(Number1 a) (TColor c) -> TColor (darken a c))
+
+    let docmd :: forall t. Interactive t => String -> t -> _
+        docmd = flareDoc' "doc-scheme-md" dict "Color.Scheme.MaterialDesign"
 
-  flareCheck' "tests-md" "red" (TColor red)
-  flareCheck' "tests-md" "pink" (TColor pink)
-  flareCheck' "tests-md" "purple" (TColor purple)
-  flareCheck' "tests-md" "deepPurple" (TColor deepPurple)
-  flareCheck' "tests-md" "indigo" (TColor indigo)
-  flareCheck' "tests-md" "blue" (TColor blue)
-  flareCheck' "tests-md" "lightBlue" (TColor lightBlue)
-  flareCheck' "tests-md" "cyan" (TColor cyan)
-  flareCheck' "tests-md" "teal" (TColor teal)
-  flareCheck' "tests-md" "green" (TColor green)
-  flareCheck' "tests-md" "lightGreen" (TColor lightGreen)
-  flareCheck' "tests-md" "lime" (TColor lime)
-  flareCheck' "tests-md" "yellow" (TColor yellow)
-  flareCheck' "tests-md" "amber" (TColor amber)
-  flareCheck' "tests-md" "orange" (TColor orange)
-  flareCheck' "tests-md" "deepOrange" (TColor deepOrange)
-  flareCheck' "tests-md" "brown" (TColor brown)
-  flareCheck' "tests-md" "grey" (TColor grey)
-  flareCheck' "tests-md" "blueGrey" (TColor blueGrey)
+    docmd "red" (TColor red)
+    docmd "pink" (TColor pink)
+    docmd "purple" (TColor purple)
+    docmd "deepPurple" (TColor deepPurple)
+    docmd "indigo" (TColor indigo)
+    docmd "blue" (TColor blue)
+    docmd "lightBlue" (TColor lightBlue)
+    docmd "cyan" (TColor cyan)
+    docmd "teal" (TColor teal)
+    docmd "green" (TColor green)
+    docmd "lightGreen" (TColor lightGreen)
+    docmd "lime" (TColor lime)
+    docmd "yellow" (TColor yellow)
+    docmd "amber" (TColor amber)
+    docmd "orange" (TColor orange)
+    docmd "deepOrange" (TColor deepOrange)
+    docmd "brown" (TColor brown)
+    docmd "grey" (TColor grey)
+    docmd "blueGrey" (TColor blueGrey)