yogsototh/solaryzed
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use new shorter name I use in CSS

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2020-02-23 12:19:43 +00:00
parent 0cc8e21d72
commit 1f44953c96
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
ui/assets/app.js
View file

@ -1926,6 +1926,7 @@ var PS = {};
};
};
exports["length"] = length;
exports["take"] = take;
})(PS);
(function(exports) {
"use strict";
@ -10813,6 +10814,7 @@ var PS = {};
var Data_Foldable = $PS["Data.Foldable"];
var Data_Functor = $PS["Data.Functor"];
var Data_Maybe = $PS["Data.Maybe"];
var Data_String_CodePoints = $PS["Data.String.CodePoints"];
var Data_Tuple = $PS["Data.Tuple"];
var Halogen_Component = $PS["Halogen.Component"];
var Halogen_HTML_CSS = $PS["Halogen.HTML.CSS"];
@ -10854,7 +10856,7 @@ var PS = {};
var render = function (state) {
var palette = Solaryzed_Palette.genPalette(state.dark)(state.light)(state.accent);
var mkCssColor = function (v) {
return Halogen_HTML_Elements.div([ Halogen_HTML_CSS.style(CSS_Font.color(v.value1)), Halogen_HTML_Properties.id_(v.value0 + "-css") ])([ Halogen_HTML_Core.text("--" + (v.value0 + (": " + (Color.toHexString(v.value1) + ";")))) ]);
return Halogen_HTML_Elements.div([ Halogen_HTML_CSS.style(CSS_Font.color(v.value1)), Halogen_HTML_Properties.id_(v.value0 + "-css") ])([ Halogen_HTML_Core.text("--" + (Data_String_CodePoints.take(1)(v.value0) + (": " + (Color.toHexString(v.value1) + ";")))) ]);
};
var cssCol = function (colName) {
return Data_Maybe.fromMaybe(solbase03)(Data_Tuple.lookup(Data_Foldable.foldableArray)(Data_Eq.eqString)(colName)(palette));
@ -10942,7 +10944,7 @@ var PS = {};
return $23;
});
};
throw new Error("Failed pattern match at Solaryzed (line 170, column 16 - line 173, column 56): " + [ v.constructor.name ]);
throw new Error("Failed pattern match at Solaryzed (line 171, column 16 - line 174, column 56): " + [ v.constructor.name ]);
};
var component = Halogen_Component.mkComponent({
initialState: initialState,

3
ui/src/Solaryzed.purs
View file

@ -9,6 +9,7 @@ import Color (Color, lab, lch, toHexString, fromHexString)
import DOM.HTML.Indexed.InputType (InputType(InputColor,InputRange))
import Data.Maybe (fromMaybe,Maybe(..))
import Data.Tuple (Tuple(..),lookup)
import Data.String (take)
import Halogen as H
import Halogen.HTML as HH
import Halogen.HTML.CSS as HCSS
@ -93,7 +94,7 @@ render state =
[ HCSS.style $ do
CSS.color c
, HP.id_ (label <> "-css") ]
[ HH.text ("--" <> label <> ": " <> toHexString c <> ";") ]
[ HH.text ("--" <> (take 1 label) <> ": " <> toHexString c <> ";") ]
mkDarkCodeExample =
HH.div
[ HCSS.style $ do