diff options
| author | jao <jao@gnu.org> | 2020-06-20 16:34:55 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2020-06-20 16:34:55 +0100 |
| commit | 11594e20fa6e5bfe8f268325b3fe8f53583fd02f (patch) | |
| tree | 698fef82f9d2313476ddc5e19d345c2901fd7450 | |
| parent | c3c81cf5e642b0ad80b56458b8c1cd4eea10ddd8 (diff) | |
| download | xmobar-config-11594e20fa6e5bfe8f268325b3fe8f53583fd02f.tar.gz xmobar-config-11594e20fa6e5bfe8f268325b3fe8f53583fd02f.tar.bz2 | |
clean-ups
| -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 |