diff options
| author | jao <jao@gnu.org> | 2018-12-10 01:36:46 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2018-12-10 01:36:46 +0000 |
| commit | 48c0e1ebcc0e6a7c9ae302f44c814508bfda7b6a (patch) | |
| tree | d6a4ff080420e2e36fe1db68c51f4dfb30069169 /src/lib/Config.hs | |
| parent | 0b8f1901f6e955fb1f0f42b0b6b598bbf8a2ae12 (diff) | |
| download | xmobar-config-48c0e1ebcc0e6a7c9ae302f44c814508bfda7b6a.tar.gz xmobar-config-48c0e1ebcc0e6a7c9ae302f44c814508bfda7b6a.tar.bz2 | |
Using the new Xmobar.configFromArgs
Diffstat (limited to 'src/lib/Config.hs')
| -rw-r--r-- | src/lib/Config.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 |