summaryrefslogtreecommitdiffhomepage
path: root/src/TopC.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/TopC.hs')
-rw-r--r--src/TopC.hs8
1 files changed, 6 insertions, 2 deletions
diff --git a/src/TopC.hs b/src/TopC.hs
index c178250..0a6d88f 100644
--- a/src/TopC.hs
+++ b/src/TopC.hs
@@ -6,9 +6,13 @@ import Music (mpris, gpmd, mpdt)
memoratio = Memory ["-t","<usedratio>%", "-p", "2", "-W", "3"] 20
topProcL p = TopProc (p <~> ["-t"
- , "<both1> <both2> <both3> <both4>"
+ , memTemp
++ " ยท <mboth1> <mboth2> <mboth3> <mboth4>"
, "-w", "12", "-L" , "10", "-H", "80"]) 15
+ where memTemp = if pIsLight p
+ then "<both1> <both2> <both3> <both4>"
+ else "<both1> <both2> <both3>"
+
diskIOL p = DiskIO [("/", "<totalbipat>"), ("/home", "<totalbipat>")]
(diskArgs p) 10
diskIOS p = DiskIO [("/", "<total>"), ("/home", "<total>")]
@@ -32,7 +36,7 @@ config p = (baseConfig p) {
, Run mopMon
, Run (thinkTemp p)
, Run (NamedXPropertyLog "_EMACS_LOG" "elog")
- , Run (cpu p)
+ , if pIsLight p then Run (cpu p) else Run (cpuBars p)
, Run memoratio
, Run (diskU p)
, Run (diskIOS p)