diff options
Diffstat (limited to 'src/Top.hs')
-rw-r--r-- | src/Top.hs | 41 |
1 files changed, 12 insertions, 29 deletions
@@ -1,44 +1,27 @@ import Xmobar import Config - -topProc p = TopProc (p <~> ["-t" , "<mboth3> <mboth2> <mboth1> \ - \· <both3> <both2> <both1>" - , "-w", "10", "-L" , "10", "-H", "80"]) 15 - -wireless p = Wireless "wlp2s0" (p <~> ["-t" , "<essid> <quality>" - , "-W", "5", "-M", "15" , "-m", "2" - , "-L", "20", "-H", "80"]) 20 - -multiCPU p = MultiCpu (p <~> ["-t", "<autototal>" - , "-S", "on", "-b", " ", "-f", "*" - , "-c", " " , "-L", "30", "-H", "70" - , "-p", "3", "-a", "l"]) 10 - -cpuFreq p = CpuFreq (p <~> ["-t" , "<cpu0> <cpu1> <cpu2> <cpu3>" - , "-L", "1", "-H", "2", "-S", "Off" , "-d", "2"]) 50 - -dynNetwork p = DynNetwork (p <~> ["-t", "↑ <tx> ↓ <rx>" - , "-L", "20", "-H", "1024000" - , "-m", "5", "-W", "10", "-S", "Off"]) 10 +import Monitors config p = (baseConfig p) { position = TopSize C 100 defaultHeight , textOffset = defaultHeight - 8 , border = BottomB , commands = [ Run (topProc p) - , Run (wireless p) , Run (multiCPU p) , Run (cpuFreq p) - , Run (dynNetwork p) + , Run memory + , Run (diskU p) + , Run (diskIO p) + , Run (coreTemp p) + , Run kbd , Run XMonadLog - , Run (Network "tun0" ["-t", "<dev>:", "-x", ""] 20) - , Run (DateZone "%H" "en_US" "US/Pacific" "laTime" 10) - , Run (Date "%R" "datetime" 10) + , Run laTime + , Run localTime ] - , template = " |top| {|XMonadLog|}\ - \ |cpufreq| |multicpu| |dynnetwork|\ - \ <action=`toggle-nm-applet.sh `>|tun0||wlp2s0wi|</action>\ - \ |datetime| |laTime| " + , template = "|kbd| |memory| |top| {|XMonadLog|}\ + \ |cpufreq| |multicpu|\ + \ |coretemp| |diskio| |disku| \ + \ |datetime| |laTime| " } main :: IO () |