diff options
Diffstat (limited to 'src/XMonad/Custom/Theme.hs')
-rw-r--r-- | src/XMonad/Custom/Theme.hs | 125 |
1 files changed, 0 insertions, 125 deletions
diff --git a/src/XMonad/Custom/Theme.hs b/src/XMonad/Custom/Theme.hs deleted file mode 100644 index 64b52a8..0000000 --- a/src/XMonad/Custom/Theme.hs +++ /dev/null @@ -1,125 +0,0 @@ --- | --- Module : XMonad.Custom.Theme --- Copyright : (c) 2018-2020 Azat Bahawi <azahi@teknik.io> --- License : BSD3-style (see LICENSE) --- Maintainer : Azat Bahawi <azahi@teknik.io> --- Stability : unstable --- Portability : unportable --- - -module XMonad.Custom.Theme - ( font - , black1 - , black2 - , red1 - , red2 - , green1 - , green2 - , yellow1 - , yellow2 - , blue1 - , blue2 - , magenta1 - , magenta2 - , cyan1 - , cyan2 - , white1 - , white2 - , colorN - , colorF - , gapBase - , gapFull - , border - , tabTheme - , promptTheme - , hotPromptTheme - ) where - -import Data.Char -import Data.Function -import Data.List -import Data.Ratio -import Graphics.X11.Xlib.Types -import XMonad.Layout.Decoration -import qualified XMonad.Prompt as P - -font :: String -font = "xft:tewi:style=Regular:size=8" -- TODO CJKのフォールバックフォントを追加する - -black1, black2 :: String -- TODO get variables from Xresources -(black1, black2) = ("#0b0806", "#2f2b2a") - --- | Red -red1, red2 :: String -(red1, red2) = ("#844d2c", "#a64848") - --- | Green -green1, green2 :: String -(green1, green2) = ("#57553a", "#897f5a") - --- | Yellow -yellow1, yellow2 :: String -(yellow1, yellow2) = ("#a17c38", "#c8b38d") - --- | Blue -blue1, blue2 :: String -(blue1, blue2) = ("#41434f", "#526274") - --- | Magenta -magenta1, magenta2 :: String -(magenta1, magenta2) = ("#6b4444", "#755c47") - --- | Cyan -cyan1, cyan2 :: String -(cyan1, cyan2) = ("#59664c", "#718062") - --- | White -white1, white2 :: String -(white1, white2) = ("#a19782", "#c1ab83") - -colorN, colorF :: String -colorN = black2 -colorF = white2 - -gapBase, gapFull :: Int -gapBase = 6 -gapFull = gapBase * 2 - -height, border :: Dimension -height = 12 * 2 -border = 1 - -tabTheme :: Theme -tabTheme = def { activeColor = black1 - , inactiveColor = black2 - , urgentColor = red1 - , activeBorderColor = white1 - , inactiveBorderColor = white2 - , urgentBorderColor = red2 - , activeTextColor = white1 - , inactiveTextColor = white2 - , urgentTextColor = red2 - , fontName = font - , decoHeight = height - } - -promptTheme, hotPromptTheme :: P.XPConfig -promptTheme = def - { P.font = font - , P.bgColor = black1 - , P.fgColor = white1 - , P.fgHLight = white2 - , P.bgHLight = black2 - , P.borderColor = white2 - , P.promptBorderWidth = border - , P.position = P.CenteredAt { P.xpCenterY = 3 % 10, P.xpWidth = 9 % 10 } - , P.height = height - , P.maxComplRows = Just 5 - , P.searchPredicate = isInfixOf `on` map toLower - , P.alwaysHighlight = True - } -hotPromptTheme = promptTheme { P.bgColor = black2 - , P.fgColor = white2 - , P.fgHLight = white1 - , P.bgHLight = black1 - } |