From e58bf332a6e533a31d96beecd6662b9c13395f65 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 19 Dec 2018 03:58:33 +0000
Subject: Border tweaks

---
 src/Top.hs        | 1 +
 src/lib/Bottom.hs | 1 +
 src/lib/Config.hs | 8 ++++----
 3 files changed, 6 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/Top.hs b/src/Top.hs
index ad5da5a..fb1136d 100644
--- a/src/Top.hs
+++ b/src/Top.hs
@@ -24,6 +24,7 @@ dynNetwork p = DynNetwork (p <~> ["-t", "↑ <tx> ↓ <rx>"
 config p = (baseConfig p) {
   position = TopSize C 100 defaultHeight
   , textOffset = defaultHeight - 8
+  , border = BottomB
   , commands = [ Run (topProc p)
                , Run (wireless p)
                , Run (multiCPU p)
diff --git a/src/lib/Bottom.hs b/src/lib/Bottom.hs
index 3ca31e1..34ce86a 100644
--- a/src/lib/Bottom.hs
+++ b/src/lib/Bottom.hs
@@ -68,6 +68,7 @@ config cs p = (baseConfig p) {
   position = BottomSize C 100 defaultHeight
   , textOffset = defaultHeight - 6
   , textOffsets = [defaultHeight - 5]
+  , border = TopB
   , commands = [ Run (uptime p)
                , Run brightness
                , Run (weather "EGPH") -- LEGE, LEBL, KCV0
diff --git a/src/lib/Config.hs b/src/lib/Config.hs
index 45904f4..4b4f160 100644
--- a/src/lib/Config.hs
+++ b/src/lib/Config.hs
@@ -5,7 +5,7 @@ import System.Environment (lookupEnv)
 import Xmobar
 
 defaultHeight :: Int
-defaultHeight = 22
+defaultHeight = 24
 
 data Palette = Palette { pNormal :: String
                        , pLow :: String
@@ -25,7 +25,7 @@ lightPalette = Palette { pNormal = "black"
                        , pLow = "#4d4d4d"
                        , pHigh = "#a0522d"
                        , pFont = "xft:Source Code Pro Medium-9"
-                       , pBorder = "grey70"
+                       , pBorder = "grey80"
                        , pForeground = "#000000"
                        , pBackground = "white"
                        , pAlpha = 0
@@ -58,9 +58,9 @@ baseConfig p = defaultConfig {
   , alpha = (pAlpha p)
   , additionalFonts = []
   , overrideRedirect = True
-  , lowerOnStart = True
-  , allDesktops = True
+  , lowerOnStart = False
   , hideOnStart = False
+  , allDesktops = True
   , persistent = True
   , sepChar = "|"
   , alignSep = "{}"
-- 
cgit v1.2.3