diff options
Diffstat (limited to 'src/lib/Music.hs')
| -rw-r--r-- | src/lib/Music.hs | 40 |
1 files changed, 25 insertions, 15 deletions
diff --git a/src/lib/Music.hs b/src/lib/Music.hs index 0fdb87c..3d298df 100644 --- a/src/lib/Music.hs +++ b/src/lib/Music.hs @@ -3,7 +3,7 @@ module Music where import Xmobar import Monitors import qualified Bottom -import Config (defaultHeight) +import Config (defaultHeight, pIsLight) import GMPDP (GMPDP(..)) mpris client width = @@ -11,7 +11,7 @@ mpris client width = ["-t", " <fn=0><tracknumber>\ \ <title> <fc=sienna4><artist></fc>\ \ <album> <length></fn>" - , "-T", show width, "-E", "...", "-M", "100", "-x", ""] 10 + , "-T", show width, "-E", "…", "-M", "100", "-x", ""] 10 mprisConfig client p = Bottom.config [Run (mpris client 165)] "|mpris2|" p @@ -19,24 +19,34 @@ mpd = MPD [ "-W", "12", "-b", "░", "-f", "▒", "-t" , " <lapsed> <fc=honeydew3><fn=5><bar></fn></fc>"] 10 -- fn=5 -autoMPD l = AutoMPD [ "-T", l, "-E", "...", "-W", "10", "-t" - , "<length> <ppos>/<plength> \ - \<fn=0><fc=darkolivegreen><title></fc></fn> \ - \<fn=0><album></fn> \ - \<fn=0><fc=dodgerblue4><artist></fc> \ - \<fc=burlywood4><composer></fc> <date></fn>"] - -mpdConfig p = (Bottom.config [Run mpd, Run (autoMPD "150")] "|mpd| |autompd|" p) +mpdt light = + if light + then "<ppos>/<plength> \ + \<fn=0><fc=darkolivegreen><title></fc></fn> \ + \<fn=0><fc=dodgerblue4><artist></fc> \ + \<fn=0><album></fn> \ + \<fc=burlywood4><composer></fc> <date></fn>" + else "<ppos>/<plength> \ + \<fn=0><fc=darkseagreen4><title></fc></fn> \ + \<fn=0><fc=darkslategray4><artist></fc> \ + \<fn=0><fc=burlywood4><album></fc></fn> \ + \<composer> <date></fn>" + +autoMPD l lgt = + AutoMPD [ "-T", l, "-E", "…", "-W", "10", "-t", "<length> " ++ mpdt lgt] + +mpdConfig p = + (Bottom.config [Run mpd, Run (autoMPD "150" (pIsLight p))] "|mpd| |autompd|" p) { textOffsets = [defaultHeight - 7, defaultHeight - 6] } -compMPD = concatMonitor " " mpd (autoMPD "150") -alt x = altMonitor (mpris x 165) compMPD +compMPD p = concatMonitor " " mpd (autoMPD "150" (pIsLight p)) +alt x p = altMonitor (mpris x 165) (compMPD p) gpmd = Run (GMPDP "gmpdp") -config cl = +config cl p = if cl == "mpd" - then mpdConfig - else Bottom.config [Run (alt cl)] "|mpris2_mpd_autompd|" + then mpdConfig p + else Bottom.config [Run (alt cl p)] "|mpris2_mpd_autompd|" p |