diff options
Diffstat (limited to 'src/TopC.hs')
-rw-r--r-- | src/TopC.hs | 33 |
1 files changed, 15 insertions, 18 deletions
diff --git a/src/TopC.hs b/src/TopC.hs index c8bc447..0d78929 100644 --- a/src/TopC.hs +++ b/src/TopC.hs @@ -11,16 +11,14 @@ topProcL p = TopProc (p <~> ["-t" , "-w", "12", "-L" , "10", "-H", "80"]) 15 diskIOL p = DiskIO [("/", "<totalbipat>"), ("/home", "<totalbipat>")] (diskArgs p) 10 +diskIOS p = DiskIO [("/", "<total>"), ("/home", "<total>")] + (diskArgs p) 10 +mpd a p i = + MPDX [ "-W", "12", "-b", "░", "-f", "▒", "-t", "<statei> <remaining>" + , "--", "-p", p, "-P", fni "\xf144", "-Z", fni i, "-S", fni i] 20 a -mpd a p t i = - MPDX [ "-W", "12", "-b", "░", "-f", "▒", "-t", t - , "--", "-p", p, "-P", fni "\xf144", "-Z", i, "-S", i] 20 a - -music = concatMonitor " " m ms - where m = mpd "mpd" "6600" "<statei> <remaining>" icm - ms = mpd "mopidy" "6669" "<statei> <ppos>/<plength> <remaining>" ics - icm = fni "\xf001" - ics = fni "\xf1bc" +mpdMon = mpd "mpd" "6600" "\xf001" +mopMon = mpd "mopidy" "6669" "\xf1bc" config p = (baseConfig p) { position = TopSize C 100 (defaultHeight - 1) @@ -30,13 +28,14 @@ config p = (baseConfig p) { defaultHeight - 8, defaultHeight - 8] , border = FullB , commands = [ Run (topProcL p) - , Run m + , Run mpdMon + , Run mopMon , Run (thinkTemp p) , Run (NamedXPropertyLog "_EMACS_LOG" "elog") - , Run (cpuBars p) + , Run (cpu p) , Run memoratio , Run (diskU p) - , Run (diskIOL p) + , Run (diskIOS p) , Run brightness' , Run (kbd p) , Run (iconBatt p) @@ -53,15 +52,15 @@ config p = (baseConfig p) { ++ "|batt0| " ++ dimi "\xf26c" ++ " |bright| " ++ "<action=`toggle-app.sh nm-applet`> |proton0||wlp1s0wi|</action>" - ++ " |dynnetwork| " ++ "<action=`toggle-app.sh pasystray`>" ++ " |default:Master| " ++ dimi "\xf130" ++ " |default:Capture|" ++ "</action> " - ++ ma + ++ "|mpd| |mopidy|" ++ " |EGPH| " - ++ " {} " ++ fc (pHigh p) "|elog|" + ++ " {} " ++ "|kbd| " + ++ " |dynnetwork| " ++ "|multicpu| " ++ "|multicoretemp| " ++ " |top| " @@ -70,9 +69,7 @@ config p = (baseConfig p) { ++ " |datetime| " ++ "|laTime| " } where dimi = fc (pDim p) . fni - m = music - ma = " |" ++ alias m ++ "| " - w = (weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p) + w = weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p main :: IO () main = palette >>= configFromArgs . config >>= xmobar |