diff options
| author | jao <jao@gnu.org> | 2018-12-05 00:03:34 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2018-12-05 00:03:34 +0000 |
| commit | 5d68d556eaa107fc01a67c661f600812a4a64e40 (patch) | |
| tree | 04844b8ee864acd377cbbde5fbb90e9fc082e72a /src | |
| parent | 1cc4f0c1924e20fad7018307c549cee445afbaf7 (diff) | |
| download | xmobar-config-5d68d556eaa107fc01a67c661f600812a4a64e40.tar.gz xmobar-config-5d68d556eaa107fc01a67c661f600812a4a64e40.tar.bz2 | |
Minor tweaks
Diffstat (limited to 'src')
| -rw-r--r-- | src/Top.hs | 6 | ||||
| -rw-r--r-- | src/lib/Bottom.hs | 2 | ||||
| -rw-r--r-- | src/lib/Config.hs | 5 |
3 files changed, 7 insertions, 6 deletions
@@ -21,18 +21,16 @@ dynNetwork p = DynNetwork (p <~> ["-t", "↑ <tx> ↓ <rx>" , "-L", "20", "-H", "1024000" , "-m", "5", "-W", "10", "-S", "Off"]) 10 -network p = Network "tun0" ["-t", "<dev>:", "-x", ""] 20 - config p = (baseConfig p) { - position = Static {xpos=1, ypos=1, width=1920, height=24} + position = TopSize C 100 defaultHeight , textOffset = 16 , commands = [ Run (topProc p) , Run (wireless p) , Run (multiCPU p) , Run (cpuFreq p) , Run (dynNetwork p) - , Run (network p) , Run XMonadLog + , Run (Network "tun0" ["-t", "<dev>:", "-x", ""] 20) , Run (DateZone "%H" "en_US" "US/Pacific" "laTime" 10) , Run (Date "%R" "datetime" 10) ] 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","<available> 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 |