From 48c0e1ebcc0e6a7c9ae302f44c814508bfda7b6a Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 10 Dec 2018 01:36:46 +0000
Subject: Using the new Xmobar.configFromArgs

---
 src/lib/Config.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/lib/Config.hs')

diff --git a/src/lib/Config.hs b/src/lib/Config.hs
index 4ab805d..45904f4 100644
--- a/src/lib/Config.hs
+++ b/src/lib/Config.hs
@@ -5,7 +5,7 @@ import System.Environment (lookupEnv)
 import Xmobar
 
 defaultHeight :: Int
-defaultHeight = 24
+defaultHeight = 22
 
 data Palette = Palette { pNormal :: String
                        , pLow :: String
@@ -53,7 +53,8 @@ baseConfig p = defaultConfig {
   , borderColor = pBorder p
   , fgColor = (pForeground p)
   , bgColor = (pBackground p)
-  , border = FullBM 1
+  -- , border = FullBM 1
+  , border = NoBorder
   , alpha = (pAlpha p)
   , additionalFonts = []
   , overrideRedirect = True
-- 
cgit v1.2.3