ADD focused border color

bin/xmonad.hs

@@ -98,6 +98,8 @@ main = do
           , logHook = myLoghook h
           , clickJustFocuses = False
           , focusFollowsMouse = False
+          , normalBorderColor = T.bordersColor
+          , focusedBorderColor = T.selectedBordersColor
           }
 
 spawnPipe' :: MonadIO m => String -> m (ProcessID, Handle)

lib/Theme.hs

@@ -24,7 +24,7 @@ fgColor :: String
 fgColor = "#2c2c2c"
 
 bordersColor :: String
-bordersColor = darken' 0.85 bgColor
+bordersColor = darken' 0.3 bgColor
 
 warningColor :: String
 warningColor = "#ffca28"
@@ -38,6 +38,9 @@ selectedFgColor = "#ffffff"
 selectedBgColor :: String
 selectedBgColor = "#3399ff"
 
+selectedBordersColor :: String
+selectedBordersColor = "#006cd9"
+
 backdropBaseColor :: String
 backdropBaseColor = baseColor
 
@@ -57,9 +60,17 @@ darken' wt = sRGB24show . darken wt . sRGB24read
 
 -- Fonts
 
-data Slant = Roman | Italic | Oblique deriving (Eq, Show)
+data Slant = Roman
+    | Italic
+    | Oblique
+    deriving (Eq, Show)
 
-data Weight = Light | Medium | Demibold | Bold | Black deriving (Eq, Show)
+data Weight = Light
+    | Medium
+    | Demibold
+    | Bold
+    | Black
+    deriving (Eq, Show)
 
 data ThemeFont = ThemeFont
     { family    :: String