ADD focused border color
This commit is contained in:
parent
010c094a0c
commit
81a9f621da
|
@ -98,6 +98,8 @@ main = do
|
||||||
, logHook = myLoghook h
|
, logHook = myLoghook h
|
||||||
, clickJustFocuses = False
|
, clickJustFocuses = False
|
||||||
, focusFollowsMouse = False
|
, focusFollowsMouse = False
|
||||||
|
, normalBorderColor = T.bordersColor
|
||||||
|
, focusedBorderColor = T.selectedBordersColor
|
||||||
}
|
}
|
||||||
|
|
||||||
spawnPipe' :: MonadIO m => String -> m (ProcessID, Handle)
|
spawnPipe' :: MonadIO m => String -> m (ProcessID, Handle)
|
||||||
|
|
17
lib/Theme.hs
17
lib/Theme.hs
|
@ -24,7 +24,7 @@ fgColor :: String
|
||||||
fgColor = "#2c2c2c"
|
fgColor = "#2c2c2c"
|
||||||
|
|
||||||
bordersColor :: String
|
bordersColor :: String
|
||||||
bordersColor = darken' 0.85 bgColor
|
bordersColor = darken' 0.3 bgColor
|
||||||
|
|
||||||
warningColor :: String
|
warningColor :: String
|
||||||
warningColor = "#ffca28"
|
warningColor = "#ffca28"
|
||||||
|
@ -38,6 +38,9 @@ selectedFgColor = "#ffffff"
|
||||||
selectedBgColor :: String
|
selectedBgColor :: String
|
||||||
selectedBgColor = "#3399ff"
|
selectedBgColor = "#3399ff"
|
||||||
|
|
||||||
|
selectedBordersColor :: String
|
||||||
|
selectedBordersColor = "#006cd9"
|
||||||
|
|
||||||
backdropBaseColor :: String
|
backdropBaseColor :: String
|
||||||
backdropBaseColor = baseColor
|
backdropBaseColor = baseColor
|
||||||
|
|
||||||
|
@ -57,9 +60,17 @@ darken' wt = sRGB24show . darken wt . sRGB24read
|
||||||
|
|
||||||
-- Fonts
|
-- 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
|
data ThemeFont = ThemeFont
|
||||||
{ family :: String
|
{ family :: String
|
||||||
|
|
Loading…
Reference in New Issue