summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/Monitors/MPD.hs
diff options
context:
space:
mode:
authorDelapouite <delapouite@gmail.com>2016-03-01 13:08:05 +0100
committerDelapouite <delapouite@gmail.com>2016-03-01 13:08:05 +0100
commitd2b16c9b7fb1507aff44f301fef9109320895456 (patch)
treef4d1edd50bf57e2121138cff45fb8e7d39f6794e /src/Plugins/Monitors/MPD.hs
parentf276cde8ff47b29d9eff77a6b8857319a9742db3 (diff)
downloadxmobar-d2b16c9b7fb1507aff44f301fef9109320895456.tar.gz
xmobar-d2b16c9b7fb1507aff44f301fef9109320895456.tar.bz2
feat(MPD): add <date> support in template
Diffstat (limited to 'src/Plugins/Monitors/MPD.hs')
-rw-r--r--src/Plugins/Monitors/MPD.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Plugins/Monitors/MPD.hs b/src/Plugins/Monitors/MPD.hs
index 0efceb1..0676e64 100644
--- a/src/Plugins/Monitors/MPD.hs
+++ b/src/Plugins/Monitors/MPD.hs
@@ -26,7 +26,7 @@ mpdConfig = mkMConfig "MPD: <state>"
[ "bar", "vbar", "ipat", "state", "statei", "volume", "length"
, "lapsed", "remaining", "plength", "ppos", "flags", "file"
, "name", "artist", "composer", "performer"
- , "album", "title", "track", "genre"
+ , "album", "title", "track", "genre", "date"
]
data MOpts = MOpts
@@ -126,7 +126,7 @@ parseSong (Right Nothing) = return $ repeat ""
parseSong (Right (Just s)) =
let str sel = maybe "" (intercalate ", " . map M.toString) (M.sgGetTag sel s)
sels = [ M.Name, M.Artist, M.Composer, M.Performer
- , M.Album, M.Title, M.Track, M.Genre ]
+ , M.Album, M.Title, M.Track, M.Genre, M.Date ]
fields = M.toString (M.sgFilePath s) : map str sels
in mapM showWithPadding fields