From 5d68d556eaa107fc01a67c661f600812a4a64e40 Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 5 Dec 2018 00:03:34 +0000 Subject: Minor tweaks --- src/lib/Bottom.hs | 2 +- src/lib/Config.hs | 5 ++++- 2 files changed, 5 insertions(+), 2 deletions(-) (limited to 'src/lib') diff --git a/src/lib/Bottom.hs b/src/lib/Bottom.hs index 1c70548..4bd6614 100644 --- a/src/lib/Bottom.hs +++ b/src/lib/Bottom.hs @@ -65,7 +65,7 @@ brightness = Brightness ["--", "-D", "intel_backlight"] 10 memory = Memory ["-t"," M", "-p", "2"] 20 config cs p = (baseConfig p) { - position = BottomSize C 100 24 + position = BottomSize C 100 defaultHeight , textOffset = 17 , commands = [ Run (uptime p) , Run brightness diff --git a/src/lib/Config.hs b/src/lib/Config.hs index 94b9211..4ab805d 100644 --- a/src/lib/Config.hs +++ b/src/lib/Config.hs @@ -1,9 +1,12 @@ -module Config (Palette, baseConfig, palette, (<~>)) where +module Config (Palette, baseConfig, palette, (<~>), defaultHeight) where import System.Environment (lookupEnv) import Xmobar +defaultHeight :: Int +defaultHeight = 24 + data Palette = Palette { pNormal :: String , pLow :: String , pHigh :: String -- cgit v1.2.3