diff options
Diffstat (limited to 'src/lib/Config.hs')
-rw-r--r-- | src/lib/Config.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/lib/Config.hs b/src/lib/Config.hs index b4db0b9..0cc4f8b 100644 --- a/src/lib/Config.hs +++ b/src/lib/Config.hs @@ -1,6 +1,6 @@ module Config ( Palette(..), baseConfig, palette, (<~>), (>~<), - mkArgs, defaultHeight, fc, fn) + mkArgs, defaultHeight, fc, fn, fni) where import System.Environment (lookupEnv) @@ -24,6 +24,7 @@ data Palette = Palette { pNormal :: String fc color thing = "<fc=" ++ color ++ ">" ++ thing ++ "</fc>" fn n thing = "<fn=" ++ show n ++ ">" ++ thing ++ "</fn>" +fni = fn 6 lightTheme :: IO Bool lightTheme = fmap (== Just "light") (lookupEnv "JAO_COLOR_SCHEME") @@ -61,7 +62,7 @@ darkPalette = Palette { pNormal = zenburnFg , pBorder = "black" -- zenburnBackLight , pForeground = zenburnFg , pBackground = doomBack -- zenburnBack - , pAlpha = 100 + , pAlpha = 0 , pIconRoot = icons "dark" , pIsLight = False } @@ -81,7 +82,8 @@ baseConfig p = defaultConfig { , "xft:Symbola-10" , "xft:Symbola-11" , "xft:Symbola-11" - , "xft:Hack-7"] + , "xft:Hack-7" + , "xft:FontAwesome-9"] , border = NoBorder , alpha = pAlpha p , overrideRedirect = True |