diff options
Diffstat (limited to 'src/TopC.hs')
| -rw-r--r-- | src/TopC.hs | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/TopC.hs b/src/TopC.hs index fabbacf..46d45bc 100644 --- a/src/TopC.hs +++ b/src/TopC.hs @@ -15,8 +15,9 @@ topProcL p = TopProc (p <~> ["-t" diskIOL p = DiskIO [("/", "<totalbipat>"), ("/home", "<totalbipat>")] (diskArgs p) 10 -mpd a p t = - MPDX [ "-W", "12", "-b", "░", "-f", "▒", "-t", t, "--", "-p", p] 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 autoMPD light = AutoMPD [ "-T", "110", "-E", "…", "-W", "10", "-t" , @@ -38,11 +39,13 @@ musicMPRIS p = mpris p mprisName 180 -- music light = toggleMonitor "/tmp/mpris.st" musicPipe (pollMPD light) -- music p = toggleMonitor "/tmp/mpris.st" (pollMPD (pIsLight p)) (musicMPRIS p) -- music port = pollMPD port . pIsLight -music = concatMonitor (fni " \xf1bc ") - (mpd "mpd" "6600" "<remaining>") - (mpd "mopidy" "6669" "<ppos>/<plength> <remaining>") +music = concatMonitor " " + (mpd "mpd" "6600" "<statei> <remaining>" (fni "\xf001")) + (mpd "mopidy" "6669" "<statei> <ppos>/<plength> <remaining>" + (fni "\xf1bc")) + -- "https://wttr.in?format=" ++ fnn 3 "%c" ++ "+%t+%C+%w++" ++ fnn 1 "%m" -wttrURL = "https://wttr.in?format=" ++ fnn 2 "+%m+" ++ "+%t+%C+" ++ fn 5 "%w" +wttrURL = "https://wttr.in?format=" ++ fnn 2 "+%c+" ++ "+%t+%C+" ++ fn 5 "%w" where fnn n x = urlEncode ("<fn=" ++ show n ++ ">") ++ x ++ urlEncode "</fn>" encode c | c == ' ' = "+" @@ -103,7 +106,7 @@ config p = (baseConfig p) { ++ "|laTime| " } where dimi = fc (pDim p) . fni m = music - ma = dimi "\xf001" ++ " |" ++ alias m ++ "| " + ma = " |" ++ alias m ++ "| " -- w = (weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p) main :: IO () |