git.iko.soy/rowtype-yoga/psfp
on c810fc0 help sign in
rowtype-yoga/psfp/components/src/Yoga/Theme.purs
90 lines 3.6 kB history raw
1module Theme where
3import Prelude
4import CSS (contrast, darken, isLight, lighten, rotateHue, toHexString)
5import Color (Color)
6import Data.Foldable (intercalate)
7import Data.Symbol (SProxy(..))
8import Record.Builder as RB
9import Theme.Types (Theme, CSSTheme)
11increaseContrast ∷ Color -> Color -> Color
12increaseContrast contrastWith = go 0
13 where
14 modify = if isLight contrastWith then darken else lighten
16 go i col =
17 if contrast contrastWith col >= 7.5 || i >= 20 then
18 col
19 else
20 go (i + 1) (modify 0.1 col)
22f ∷ ∀ fieldName. SProxy fieldName
23f = SProxy
25fromTheme ∷ Theme -> CSSTheme
26fromTheme theme =
27 RB.build
28 ( {- background -} RB.modify (f ∷ _ "backgroundColour") toHexString
29 >>> RB.insert (f ∷ _ "backgroundColourLighter")
30 (theme.backgroundColour # lighter >>> toHexString)
31 >>> RB.insert (f ∷ _ "backgroundColourLightest")
32 (theme.backgroundColour # lighter # lighter >>> toHexString)
33 >>> RB.insert (f ∷ _ "backgroundColourDarker")
34 (theme.backgroundColour # darker >>> toHexString)
35 >>> RB.insert (f ∷ _ "backgroundColourDarkest")
36 (theme.backgroundColour # darker # darker >>> toHexString)
37 >>> RB.modify (f ∷ _ "interfaceColour") toHexString
38 >>> RB.insert (f ∷ _ "interfaceColourLighter")
39 (theme.interfaceColour # lighter >>> toHexString)
40 >>> RB.insert (f ∷ _ "interfaceColourLightest")
41 (theme.interfaceColour # lighter >>> lighter >>> toHexString)
42 >>> RB.insert (f ∷ _ "interfaceColourDarker")
43 (theme.interfaceColour # darker >>> toHexString)
44 >>> RB.insert (f ∷ _ "interfaceColourDarkest")
45 (theme.interfaceColour # darker >>> darker >>> toHexString)
46 -- foreground
48 >>> RB.modify (f ∷ _ "textColour") toHexString
49 >>> RB.insert (f ∷ _ "textColourLighter")
50 (theme.textColour # lighter >>> toHexString)
51 >>> RB.insert (f ∷ _ "textColourLightest")
52 (theme.textColour # lighter >>> lighter >>> toHexString)
53 >>> RB.insert (f ∷ _ "textColourDarker")
54 (theme.textColour # darker >>> toHexString)
55 >>> RB.insert (f ∷ _ "textColourDarkest")
56 (theme.textColour # darker >>> darker >>> toHexString)
57 -- highlight
59 >>> RB.modify (f ∷ _ "highlightColour") toHexString
60 >>> RB.insert (f ∷ _ "highlightColourDark")
61 (theme.highlightColour # darken 0.2 # rotateHue (-10.0) # toHexString)
62 -- altHighlight
64 >>> RB.modify (f ∷ _ "altHighlightColour") toHexString
65 >>> RB.insert (f ∷ _ "altHighlightColourDark")
66 (theme.altHighlightColour # darken 0.2 # toHexString)
67 -- palette
69 >>> RB.modify (f ∷ _ "yellow") toHexString
70 >>> RB.modify (f ∷ _ "green") toHexString
71 >>> RB.modify (f ∷ _ "pink") toHexString
72 >>> RB.modify (f ∷ _ "orange") toHexString
73 >>> RB.modify (f ∷ _ "turquoise") toHexString
74 >>> RB.modify (f ∷ _ "red") toHexString
75 >>> RB.modify (f ∷ _ "blue") toHexString
76 -- fonts
78 >>> RB.modify (f ∷ _ "textFontFamily") (intercalate ",")
79 >>> RB.modify (f ∷ _ "headingFontFamily") (intercalate ",")
80 >>> RB.insert (f ∷ _ "isLight") isLightTheme
81 )
82 theme
83 where
84 isLightTheme = isLight theme.backgroundColour
86 lighter ∷ Color -> Color
87 lighter = if isLightTheme then lighten 0.04 else lighten 0.02
89 darker ∷ Color -> Color
90 darker = if isLightTheme then darken 0.01 else darken 0.01