diff options
| author | Delapouite <delapouite@gmail.com> | 2016-03-01 13:08:05 +0100 |
|---|---|---|
| committer | Delapouite <delapouite@gmail.com> | 2016-03-01 13:08:05 +0100 |
| commit | d2b16c9b7fb1507aff44f301fef9109320895456 (patch) | |
| tree | f4d1edd50bf57e2121138cff45fb8e7d39f6794e /src | |
| parent | f276cde8ff47b29d9eff77a6b8857319a9742db3 (diff) | |
| download | xmobar-d2b16c9b7fb1507aff44f301fef9109320895456.tar.gz xmobar-d2b16c9b7fb1507aff44f301fef9109320895456.tar.bz2 | |
feat(MPD): add <date> support in template
Diffstat (limited to 'src')
| -rw-r--r-- | src/Plugins/Monitors/MPD.hs | 4 |
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 |