1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
-- | Unparsing for MPD objects
module Unparse (Unparse(..)) where
import qualified Data.Map as M
import Network.MPD.Commands.Types
import Network.MPD.Util
class Unparse parsed where
unparse :: parsed -> String
instance Unparse a => Unparse (Maybe a) where
unparse Nothing = ""
unparse (Just x) = unparse x
instance Unparse Count where
unparse x = unlines
[ "songs: " ++ show (cSongs x)
, "playtime: " ++ show (cPlaytime x)
]
instance Unparse Device where
unparse x = unlines
[ "outputid: " ++ show (dOutputID x)
, "outputname: " ++ dOutputName x
, "outputenabled: " ++ showBool (dOutputEnabled x)
]
instance Unparse Song where
unparse s =
let fs = concatMap toF . M.toList $ sgTags s
id_ = maybe [] (\(Id n) -> ["Id: " ++ show n]) (sgId s)
idx = maybe [] (\n -> ["Pos: " ++ show n]) (sgIndex s)
lastModified = maybe [] (return . ("Last-Modified: " ++) . formatIso8601) (sgLastModified s)
in unlines $ ["file: " ++ (toString . sgFilePath) s]
++ ["Time: " ++ (show . sgLength) s]
++ fs
++ lastModified
++ id_
++ idx
where
toF (k, vs) = map (toF' k) vs
toF' k v = show k ++ ": " ++ toString v
instance Unparse Stats where
unparse s = unlines
[ "artists: " ++ show (stsArtists s)
, "albums: " ++ show (stsAlbums s)
, "songs: " ++ show (stsSongs s)
, "uptime: " ++ show (stsUptime s)
, "playtime: " ++ show (stsPlaytime s)
, "db_playtime: " ++ show (stsDbPlaytime s)
, "db_update: " ++ show (stsDbUpdate s)
]
instance Unparse Volume where
unparse (Volume x) = show x
instance Unparse Status where
unparse s = unlines $
[ "state: " ++ (case stState s of Playing -> "play"
Paused -> "pause"
_ -> "stop")
, "volume: " ++ maybe "-1" unparse (stVolume s)
, "volume: " ++ unparse (stVolume s)
, "repeat: " ++ showBool (stRepeat s)
, "random: " ++ showBool (stRandom s)
, "playlist: " ++ show (stPlaylistVersion s)
, "playlistlength: " ++ show (stPlaylistLength s)
, "xfade: " ++ show (stXFadeWidth s)
, "xfade: " ++ show (stXFadeWidth s)
, "audio: " ++ (let (x, y, z) = stAudio s in show x ++ ":" ++ show y ++
":" ++ show z)
, "single: " ++ showBool (stSingle s)
, "consume: " ++ showBool (stConsume s)
]
++ maybe [] (\n -> ["updating_db: " ++ show n]) (stUpdatingDb s)
++ maybe [] (\n -> ["song: " ++ show n]) (stSongPos s)
++ maybe [] (\n -> ["songid: " ++ show n]) (stSongID s)
++ maybe [] (\n -> ["error: " ++ show n]) (stError s)
++ maybe [] (\(x, y) -> ["time: " ++ show x ++ ":" ++ show y]) (stTime s)
++ maybe [] (\n -> ["bitrate: " ++ show n]) (stBitrate s)
|
