From 9394e86a2ea44c29035630f54d276bd9712746c9 Mon Sep 17 00:00:00 2001
From: azahi <azahi@teknik.io>
Date: Sat, 29 Jun 2019 18:16:16 +0300
Subject: Replace alsa-mixer with external shell alternative

Modify fonts
Remove urgency hook
Remove selection notification
Decrease spacing and apply it to bars
Tweak colors
---
 src/XMonad/Custom/Theme.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'src/XMonad/Custom/Theme.hs')

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
-- 
cgit 1.4.1