font and color improvements

1 files changed, 9 insertions, 6 deletions

diff --git a/xmonad.hs b/xmonad.hs
index 5095fa5..48f89af 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -33,16 +33,19 @@ import XMonad.Util.EZConfig (additionalKeys)
 data Colors = Colors
   { foreground :: String
   , background :: String
+  , highlight :: String
   }
 
 lightTheme = Colors
-  { foreground = "#67b11d"
+  { highlight = "#67b11d"
   , background = "#fbf8ef"
+  , foreground = "#655370"
   }
 
 darkTheme = Colors
-  { foreground = "#5d4d7a"
+  { highlight = "#5d4d7a"
   , background = "#292b2e"
+  , foreground = "#b2b2b2"
   }
 
 getColorsFromXtheme :: IO Colors
@@ -108,10 +111,10 @@ addSpace = spacingRaw
   True
 
 myTabCfg theme = def
-  { fontName = "xft:mononoki:size=10:ant"
-  , activeBorderColor = foreground theme
+  { fontName = "xft:Fira Sans:size=10:ant"
+  , activeBorderColor = highlight theme
   , inactiveBorderColor = background theme
-  , activeColor = foreground theme
+  , activeColor = highlight theme
   , inactiveColor = background theme
   }
 
@@ -142,7 +145,7 @@ myConf theme = additionalKeys c (insKeys c)
   where c = def
           { modMask = mod4Mask -- ^ super instead of alt
           , normalBorderColor = background theme
-          , focusedBorderColor = foreground theme
+          , focusedBorderColor = highlight theme
           , borderWidth = 3
           , manageHook = manageDocks <+> manageHook def
           , layoutHook = myLayout theme