diff options
| -rw-r--r-- | src/TopC.hs | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/src/TopC.hs b/src/TopC.hs index 1adef23..12fb0de 100644 --- a/src/TopC.hs +++ b/src/TopC.hs @@ -14,18 +14,12 @@ mpd = MPD [ "-W", "12", "-b", "░", "-f", "▒", "-t", " <remaining>"] 10 autoMPD light = AutoMPD [ "-T", "110", "-E", "…", "-W", "10", "-t" , " <remaining> " ++ mpdt light] -ompd light = +pollMPD light = MPD [ "-T", "120", "-W", "10", "-E", "…", "-t", tm, "--", "-p", "6600"] 20 where tm = " <remaining> " ++ mpdt light -compMPD light = concatMonitor " " mpd (autoMPD light) -mpn = "spotifyd" --- music light = toggleMonitor "/tmp/mpris.st" (mpris mpn 120) (autoMPD light) --- music = ompd --- music l = toggleMonitor "/tmp/mpris.st" (ompd l) (mpris mpn 120) --- musicPipe = MarqueePipeReader "/tmp/music" (20, 10, "..") "musicpipe" musicPipe = PipeReader "/tmp/music" "musicpipe" -music l = toggleMonitor "/tmp/mpris.st" musicPipe (ompd l) +music light = toggleMonitor "/tmp/mpris.st" musicPipe (autoMPD light) -- <fn=1> 💡 </fn> config p = (baseConfig p) { @@ -72,10 +66,9 @@ config p = (baseConfig p) { ++ fc "grey60" "|diskio|" ++ " |disku| " ++ " |EGPH| " ++ fn 2 "🕓 " ++ "|datetime| |laTime| " - } where m = music (pIsLight p) -- ompd (pIsLight p) -- (mpris mpn 120) -- + } where m = music (pIsLight p) ma = alias m w = (weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p) main :: IO () -main = - palette >>= configFromArgs . config >>= xmobar +main = palette >>= configFromArgs . config >>= xmobar |