module Network.XMPP.IM.Presence
(
presAvailable
, presUnavailable
, presAway
, presXa
, presChat
, presDND
) where
import Network.XMPP.Types
presAvailable :: String
-> Stanza
presAvailable status = Presence Nothing Nothing "" Default Available status (Just 0) []
presUnavailable :: String -> Stanza
presUnavailable status = mkPresenceU Available status
presAway :: String -> Stanza
presAway status = mkPresenceD Away status
presXa :: String -> Stanza
presXa status = mkPresenceD XAway status
presChat :: String -> Stanza
presChat status = mkPresenceD FreeChat status
presDND :: String -> Stanza
presDND status = mkPresenceD DND status
mkPresence :: PresenceType -> ShowType -> String -> Stanza
mkPresence typ showType status =
Presence Nothing
Nothing
""
typ
showType
status
(Just 0)
[]
mkPresenceD = mkPresence Default
mkPresenceU = mkPresence Unavailable