Corrected backgrounds

This commit is contained in:
Serĉanto de Scio 2020-01-26 00:18:18 +10:00
parent 561ca37b67
commit 0d06762a86
Signed by: sercanto
GPG key ID: A4122FF3971B6865

View file

@ -31,7 +31,9 @@ import Termonad.Config.Colour
, createColour , createColour
, createColourExtension , createColourExtension
, defaultColourConfig , defaultColourConfig
, foregroundColour, palette , backgroundColour
, foregroundColour
, palette
) )
import Termonad.Config.Vec (Vec((:*), EmptyVec), N8) import Termonad.Config.Vec (Vec((:*), EmptyVec), N8)
@ -58,13 +60,14 @@ solarizedDark =
defaultColourConfig defaultColourConfig
-- Set the default foreground colour of text of the terminal. -- Set the default foreground colour of text of the terminal.
{ foregroundColour = Set (createColour 131 148 150) -- base0 { foregroundColour = Set (createColour 131 148 150) -- base0
, backgroundColour = Set (createColour 0 43 54) -- base03
-- Set the extended palette that has 2 Vecs of 8 Solarized palette colours -- Set the extended palette that has 2 Vecs of 8 Solarized palette colours
, palette = ExtendedPalette solarizedDark1 solarizedDark2 , palette = ExtendedPalette solarizedDark1 solarizedDark2
} }
where where
solarizedDark1 :: Vec N8 (AlphaColour Double) solarizedDark1 :: Vec N8 (AlphaColour Double)
solarizedDark1 = solarizedDark1 =
createColour 0 43 54 -- base03, background createColour 7 54 66 -- base02, background highlights
:* createColour 220 50 47 -- red :* createColour 220 50 47 -- red
:* createColour 133 153 0 -- green :* createColour 133 153 0 -- green
:* createColour 181 137 0 -- yellow :* createColour 181 137 0 -- yellow
@ -76,7 +79,7 @@ solarizedDark =
solarizedDark2 :: Vec N8 (AlphaColour Double) solarizedDark2 :: Vec N8 (AlphaColour Double)
solarizedDark2 = solarizedDark2 =
createColour 7 54 66 -- base02, background highlights createColour 0 43 54 -- base03, background
:* createColour 203 75 22 -- orange :* createColour 203 75 22 -- orange
:* createColour 88 110 117 -- base01, comments / secondary text :* createColour 88 110 117 -- base01, comments / secondary text
:* createColour 131 148 150 -- base0, body text / default code / primary content :* createColour 131 148 150 -- base0, body text / default code / primary content
@ -92,6 +95,7 @@ solarizedLight =
defaultColourConfig defaultColourConfig
-- Set the default foreground colour of text of the terminal. -- Set the default foreground colour of text of the terminal.
{ foregroundColour = Set (createColour 101 123 131) -- base00 { foregroundColour = Set (createColour 101 123 131) -- base00
, backgroundColour = Set (createColour 253 246 227) -- base3
-- Set the extended palette that has 2 Vecs of 8 Solarized palette colours -- Set the extended palette that has 2 Vecs of 8 Solarized palette colours
, palette = ExtendedPalette solarizedLight1 solarizedLight2 , palette = ExtendedPalette solarizedLight1 solarizedLight2
} }
@ -125,7 +129,7 @@ fontConf :: FontConfig
fontConf = fontConf =
defaultFontConfig defaultFontConfig
{ fontFamily = "Droid Sans Mono Dotted for Powerline" { fontFamily = "Droid Sans Mono Dotted for Powerline"
, fontSize = FontSizePoints 8 , fontSize = FontSizePoints 6
} }
main :: IO () main :: IO ()