diff options
| author | azahi <azahi@teknik.io> | 2019-06-29 18:16:16 +0300 |
|---|---|---|
| committer | azahi <azahi@teknik.io> | 2019-06-29 18:16:16 +0300 |
| commit | 9394e86a2ea44c29035630f54d276bd9712746c9 (patch) | |
| tree | 765f36c517f1e99169741990d1923722d9515882 /src/XMonad/Custom/Theme.hs | |
| parent | Bump version 0.15.3 (diff) | |
Replace alsa-mixer with external shell alternative
Modify fonts Remove urgency hook Remove selection notification Decrease spacing and apply it to bars Tweak colors
Diffstat (limited to 'src/XMonad/Custom/Theme.hs')
| -rw-r--r-- | src/XMonad/Custom/Theme.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/XMonad/Custom/Theme.hs b/src/XMonad/Custom/Theme.hs index d25cb55..2860b91 100644 --- a/src/XMonad/Custom/Theme.hs +++ b/src/XMonad/Custom/Theme.hs @@ -44,6 +44,7 @@ import Data.List import Graphics.X11.Xlib.Types import XMonad.Layout.Decoration import qualified XMonad.Prompt as P +import Data.Ratio font :: String font = "xft:tewi:style=Regular:size=8" -- TODO CJKのフォールバックフォントを追加する @@ -92,7 +93,7 @@ colorN = black2 colorF = white2 gapBase, gapFull :: Int -gapBase = 12 +gapBase = 6 gapFull = gapBase * 2 height, border :: Dimension @@ -123,9 +124,13 @@ promptTheme = def , P.bgHLight = black2 , P.borderColor = white2 , P.promptBorderWidth = border - , P.position = P.Bottom + , 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 |