From ccc2da11078a4d775159ac9ee6220ade3f8113a8 Mon Sep 17 00:00:00 2001
From: "Yann Esposito (Yogsototh)" <yann.esposito@gmail.com>
Date: Sun, 1 Mar 2020 18:40:15 +0100
Subject: [PATCH] Updated

---
 ui/assets/app.js      | 10 +++++-----
 ui/assets/index.html  |  2 +-
 ui/src/Solaryzed.purs | 13 ++++++++-----
 3 files changed, 14 insertions(+), 11 deletions(-)

diff --git a/ui/assets/app.js b/ui/assets/app.js
index 9253171..ec02992 100644
--- a/ui/assets/app.js
+++ b/ui/assets/app.js
@@ -11044,7 +11044,7 @@ var PS = {};
                   });
               });
           });
-      })) ])([ Halogen_HTML_Elements.span([ styleCol("b00") ])([ Halogen_HTML_Core.text("-- | Fibonnacci function") ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.span([ styleCol("b") ])([ Halogen_HTML_Core.text("fib") ]), Halogen_HTML_Elements.span([ styleCol("b0") ])([ Halogen_HTML_Core.text(" 0 = 1") ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.span([ styleCol("b") ])([ Halogen_HTML_Core.text("fib") ]), Halogen_HTML_Elements.span([ styleCol("b0") ])([ Halogen_HTML_Core.text(" 1 = 1") ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.span([ styleCol("b") ])([ Halogen_HTML_Core.text("fib") ]), Halogen_HTML_Elements.span([ styleCol("b0") ])([ Halogen_HTML_Core.text(" n = fib (n - 1) + fib (n - 2)") ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.br_, Halogen_HTML_Elements.span([ styleCol("y") ])([ Halogen_HTML_Core.text("HCSS") ]), Halogen_HTML_Elements.span([ styleCol("b") ])([ Halogen_HTML_Core.text(".") ]), Halogen_HTML_Elements.span([ styleCol("b0") ])([ Halogen_HTML_Core.text("style ") ]), Halogen_HTML_Elements.span([ styleCol("g") ])([ Halogen_HTML_Core.text("do") ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.span([ Halogen_HTML_CSS.style(CSS_Geometry.marginLeft(CSS_Size.em(1.0))) ])([ Halogen_HTML_Core.text(" ") ]), Halogen_HTML_Elements.span([ styleCol("yellow") ])([ Halogen_HTML_Core.text("HH") ]), Halogen_HTML_Elements.span([ styleCol("blue") ])([ Halogen_HTML_Core.text(".") ]), Halogen_HTML_Elements.span([ styleCol("base0") ])([ Halogen_HTML_Core.text("text ") ]), Halogen_HTML_Elements.span([ styleCol("cyan") ])([ Halogen_HTML_Core.text("\"base0\"") ]), Halogen_HTML_Elements.br_ ]);
+      })) ])([ Halogen_HTML_Elements.span([ styleCol("b00") ])([ Halogen_HTML_Core.text("-- | Fibonnacci function") ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.span([ styleCol("b") ])([ Halogen_HTML_Core.text("fib") ]), Halogen_HTML_Elements.span([ styleCol("b0") ])([ Halogen_HTML_Core.text(" 0 = 1") ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.span([ styleCol("b") ])([ Halogen_HTML_Core.text("fib") ]), Halogen_HTML_Elements.span([ styleCol("b0") ])([ Halogen_HTML_Core.text(" 1 = 1") ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.span([ styleCol("b") ])([ Halogen_HTML_Core.text("fib") ]), Halogen_HTML_Elements.span([ styleCol("b0") ])([ Halogen_HTML_Core.text(" n = fib (n - 1) + fib (n - 2)") ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.br_, Halogen_HTML_Elements.span([ styleCol("y") ])([ Halogen_HTML_Core.text("HCSS") ]), Halogen_HTML_Elements.span([ styleCol("b") ])([ Halogen_HTML_Core.text(".") ]), Halogen_HTML_Elements.span([ styleCol("b0") ])([ Halogen_HTML_Core.text("style ") ]), Halogen_HTML_Elements.span([ styleCol("g") ])([ Halogen_HTML_Core.text("do") ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.span([ Halogen_HTML_CSS.style(CSS_Geometry.marginLeft(CSS_Size.em(1.0))) ])([ Halogen_HTML_Core.text(" ") ]), Halogen_HTML_Elements.span([ styleCol("y") ])([ Halogen_HTML_Core.text("HH") ]), Halogen_HTML_Elements.span([ styleCol("b") ])([ Halogen_HTML_Core.text(".") ]), Halogen_HTML_Elements.span([ styleCol("b0") ])([ Halogen_HTML_Core.text("text ") ]), Halogen_HTML_Elements.span([ styleCol("c") ])([ Halogen_HTML_Core.text("\"base0\"") ]), Halogen_HTML_Elements.br_ ]);
       var mkLightCodeExample = Halogen_HTML_Elements.div([ Halogen_HTML_CSS.style(Control_Bind.discard(Control_Bind.discardUnit)(CSS_Stylesheet.bindStyleM)(CSS_Geometry.padding(CSS_Size.em(1.0))(CSS_Size.em(1.0))(CSS_Size.em(1.0))(CSS_Size.em(1.0)))(function () {
           return Control_Bind.discard(Control_Bind.discardUnit)(CSS_Stylesheet.bindStyleM)(CSS_Font.fontSize(CSS_Size.px(14.0)))(function () {
               return Control_Bind.discard(Control_Bind.discardUnit)(CSS_Stylesheet.bindStyleM)(CSS_Font.fontFamily([ "pt mono", "menlo" ])(new Data_NonEmpty.NonEmpty(CSS_String.fromString(CSS_Property.isStringValue)("monospace"), [  ])))(function () {
@@ -11070,11 +11070,11 @@ var PS = {};
       var mkDivColor = function (v) {
           return Halogen_HTML_Elements.div([ cssBackground(v.value1), Halogen_HTML_Properties.id_(v.value0) ])([ Halogen_HTML_Core.text(v.value0) ]);
       };
-      return Halogen_HTML_Elements.div([ Halogen_HTML_Properties.id_("container") ])([ Halogen_HTML_Elements.div([ Halogen_HTML_Properties.id_("selectors") ])([ Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.isPropInputType)(DOM_HTML_Indexed_InputType.InputColor.value), Halogen_HTML_Events.onValueChange(function (c) {
+      return Halogen_HTML_Elements.div([ Halogen_HTML_Properties.id_("container") ])([ Halogen_HTML_Elements.div([ Halogen_HTML_Properties.id_("selectors") ])([ Halogen_HTML_Core.text("Dark:"), Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.isPropInputType)(DOM_HTML_Indexed_InputType.InputColor.value), Halogen_HTML_Events.onValueChange(function (c) {
           return Data_Maybe.Just.create(new DarkChanged(Data_Maybe.fromMaybe(solbase03)(Color.fromHexString(c))));
-      }), Halogen_HTML_Properties.value(Color.toHexString(state.dark)) ]), Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.isPropInputType)(DOM_HTML_Indexed_InputType.InputColor.value), Halogen_HTML_Events.onValueChange(function (c) {
+      }), Halogen_HTML_Properties.value(Color.toHexString(state.dark)) ]), Halogen_HTML_Core.text(" Lioht:"), Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.isPropInputType)(DOM_HTML_Indexed_InputType.InputColor.value), Halogen_HTML_Events.onValueChange(function (c) {
           return Data_Maybe.Just.create(new LightChanged(Data_Maybe.fromMaybe(solbase03)(Color.fromHexString(c))));
-      }), Halogen_HTML_Properties.value(Color.toHexString(state.light)) ]), Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.isPropInputType)(DOM_HTML_Indexed_InputType.InputColor.value), Halogen_HTML_Events.onValueChange(function (c) {
+      }), Halogen_HTML_Properties.value(Color.toHexString(state.light)) ]), Halogen_HTML_Core.text(" Contrast:"), Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.isPropInputType)(DOM_HTML_Indexed_InputType.InputColor.value), Halogen_HTML_Events.onValueChange(function (c) {
           return Data_Maybe.Just.create(new AccentChanged(Data_Maybe.fromMaybe(solbase03)(Color.fromHexString(c))));
       }), Halogen_HTML_Properties.value(Color.toHexString(state.accent)) ]) ]), Halogen_HTML_Elements.div([ Halogen_HTML_Properties.id_("colors") ])(Data_Functor.map(Data_Functor.functorArray)(mkDivColor)(palette)), Halogen_HTML_Elements.div([ Halogen_HTML_Properties.id_("code") ])([ mkDarkCodeExample ]), Halogen_HTML_Elements.div([ Halogen_HTML_Properties.id_("code") ])([ mkLightCodeExample ]), Halogen_HTML_Elements.div([ Halogen_HTML_Properties.id_("css") ])(Data_Semigroup.append(Data_Semigroup.semigroupArray)([ Halogen_HTML_Elements.div([ Halogen_HTML_CSS.style(CSS_Font.color(cssCol("b0"))) ])([ Halogen_HTML_Core.text(":root {") ]) ])(Data_Semigroup.append(Data_Semigroup.semigroupArray)(Data_Functor.map(Data_Functor.functorArray)(mkCssColor)(palette))([ Halogen_HTML_Elements.div([ Halogen_HTML_CSS.style(CSS_Font.color(cssCol("b0"))) ])([ Halogen_HTML_Core.text("}") ]) ]))) ]);
   };
@@ -11122,7 +11122,7 @@ var PS = {};
               return $23;
           });
       };
-      throw new Error("Failed pattern match at Solaryzed (line 182, column 16 - line 185, column 56): " + [ v.constructor.name ]);
+      throw new Error("Failed pattern match at Solaryzed (line 185, column 16 - line 188, column 56): " + [ v.constructor.name ]);
   };
   var component = Halogen_Component.mkComponent({
       initialState: initialState,
diff --git a/ui/assets/index.html b/ui/assets/index.html
index a00d8df..0067638 100644
--- a/ui/assets/index.html
+++ b/ui/assets/index.html
@@ -4,7 +4,7 @@
         <meta charset="utf-8">
         <title>Solaryzed</title>
         <style>
-         html,body {background: #000;}
+         html,body {background: #000; color: #AAA;}
          #container {
              width: 800px;
              margin: 0 auto;
diff --git a/ui/src/Solaryzed.purs b/ui/src/Solaryzed.purs
index 4ea4d5e..b16dcfe 100644
--- a/ui/src/Solaryzed.purs
+++ b/ui/src/Solaryzed.purs
@@ -57,14 +57,17 @@ render state =
   [ HP.id_ "container" ]
   [ HH.div
     [ HP.id_ "selectors"]
-    [ HH.input [ HP.type_ InputColor
+    [ HH.text "Dark:"
+    , HH.input [ HP.type_ InputColor
                , HE.onValueChange \ c -> Just $ DarkChanged (fromMaybe solbase03 (fromHexString c))
                , HP.value (toHexString state.dark)
                ]
+    , HH.text " Lioht:"
     , HH.input [ HP.type_ InputColor
                , HE.onValueChange \ c -> Just $ LightChanged (fromMaybe solbase03 (fromHexString c))
                , HP.value (toHexString state.light)
                ]
+    , HH.text " Contrast:"
     , HH.input [ HP.type_ InputColor
                , HE.onValueChange \ c -> Just $ AccentChanged (fromMaybe solbase03 (fromHexString c))
                , HP.value (toHexString state.accent)
@@ -129,10 +132,10 @@ render state =
       , HH.span [ styleCol "g"][ HH.text "do"]
       , HH.br_
       , HH.span [ HCSS.style $ CSS.marginLeft (CSS.em 1.0) ] [ HH.text " " ]
-      , HH.span [ styleCol "yellow"][ HH.text "HH"]
-      , HH.span [ styleCol "blue"][ HH.text "."]
-      , HH.span [ styleCol "base0"][ HH.text "text "]
-      , HH.span [ styleCol "cyan"][ HH.text "\"base0\""]
+      , HH.span [ styleCol "y"][ HH.text "HH"]
+      , HH.span [ styleCol "b"][ HH.text "."]
+      , HH.span [ styleCol "b0"][ HH.text "text "]
+      , HH.span [ styleCol "c"][ HH.text "\"base0\""]
       , HH.br_
       ]
     mkLightCodeExample =