{-# LANGUAGE TemplateHaskell #-}

-- | User presences
module Calamity.Types.Model.Presence.Presence (
  Presence (..),
  ClientStatus (..),
) where

import Calamity.Internal.Utils
import {-# SOURCE #-} Calamity.Types.Model.Guild.Guild
import Calamity.Types.Model.Presence.Activity
import Calamity.Types.Model.User
import Calamity.Types.Snowflake
import Data.Aeson ((.:), (.:?))
import qualified Data.Aeson as Aeson
import Data.Text (Text)
import Optics.TH
import TextShow.TH

data Presence = Presence
  { Presence -> Snowflake User
user :: Snowflake User
  , Presence -> Snowflake Guild
guildID :: Snowflake Guild
  , Presence -> StatusType
status :: StatusType
  , Presence -> [Activity]
activities :: [Activity]
  , Presence -> ClientStatus
clientStatus :: ClientStatus
  }
  deriving (Presence -> Presence -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Presence -> Presence -> Bool
$c/= :: Presence -> Presence -> Bool
== :: Presence -> Presence -> Bool
$c== :: Presence -> Presence -> Bool
Eq, Int -> Presence -> ShowS
[Presence] -> ShowS
Presence -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Presence] -> ShowS
$cshowList :: [Presence] -> ShowS
show :: Presence -> String
$cshow :: Presence -> String
showsPrec :: Int -> Presence -> ShowS
$cshowsPrec :: Int -> Presence -> ShowS
Show)
  deriving (HasID User) via HasIDField "user" Presence
  deriving (HasID Guild) via HasIDField "guildID" Presence

instance Aeson.FromJSON Presence where
  parseJSON :: Value -> Parser Presence
parseJSON = forall a. String -> (Object -> Parser a) -> Value -> Parser a
Aeson.withObject String
"Presence" forall a b. (a -> b) -> a -> b
$ \Object
v -> do
    Object
u :: Aeson.Object <- Object
v forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"user"

    Snowflake User
-> Snowflake Guild
-> StatusType
-> [Activity]
-> ClientStatus
-> Presence
Presence
      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
u forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"id"
      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
v forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"guild_id"
      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
v forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"status"
      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
v forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"activities"
      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
v forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"client_status"

data ClientStatus = ClientStatus
  { ClientStatus -> Maybe Text
desktop :: Maybe Text
  , ClientStatus -> Maybe Text
mobile :: Maybe Text
  , ClientStatus -> Maybe Text
web :: Maybe Text
  }
  deriving (ClientStatus -> ClientStatus -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ClientStatus -> ClientStatus -> Bool
$c/= :: ClientStatus -> ClientStatus -> Bool
== :: ClientStatus -> ClientStatus -> Bool
$c== :: ClientStatus -> ClientStatus -> Bool
Eq, Int -> ClientStatus -> ShowS
[ClientStatus] -> ShowS
ClientStatus -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ClientStatus] -> ShowS
$cshowList :: [ClientStatus] -> ShowS
show :: ClientStatus -> String
$cshow :: ClientStatus -> String
showsPrec :: Int -> ClientStatus -> ShowS
$cshowsPrec :: Int -> ClientStatus -> ShowS
Show)
  deriving ([ClientStatus] -> Encoding
[ClientStatus] -> Value
ClientStatus -> Encoding
ClientStatus -> Value
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [ClientStatus] -> Encoding
$ctoEncodingList :: [ClientStatus] -> Encoding
toJSONList :: [ClientStatus] -> Value
$ctoJSONList :: [ClientStatus] -> Value
toEncoding :: ClientStatus -> Encoding
$ctoEncoding :: ClientStatus -> Encoding
toJSON :: ClientStatus -> Value
$ctoJSON :: ClientStatus -> Value
Aeson.ToJSON) via CalamityToJSON ClientStatus

instance CalamityToJSON' ClientStatus where
  toPairs :: forall kv. KeyValue kv => ClientStatus -> [Maybe kv]
toPairs ClientStatus {Maybe Text
web :: Maybe Text
mobile :: Maybe Text
desktop :: Maybe Text
$sel:web:ClientStatus :: ClientStatus -> Maybe Text
$sel:mobile:ClientStatus :: ClientStatus -> Maybe Text
$sel:desktop:ClientStatus :: ClientStatus -> Maybe Text
..} =
    [ Key
"desktop" forall v kv. (ToJSON v, KeyValue kv) => Key -> Maybe v -> Maybe kv
.?= Maybe Text
desktop
    , Key
"mobile" forall v kv. (ToJSON v, KeyValue kv) => Key -> Maybe v -> Maybe kv
.?= Maybe Text
mobile
    , Key
"web" forall v kv. (ToJSON v, KeyValue kv) => Key -> Maybe v -> Maybe kv
.?= Maybe Text
web
    ]

instance Aeson.FromJSON ClientStatus where
  parseJSON :: Value -> Parser ClientStatus
parseJSON = forall a. String -> (Object -> Parser a) -> Value -> Parser a
Aeson.withObject String
"ClientStatus" forall a b. (a -> b) -> a -> b
$ \Object
v ->
    Maybe Text -> Maybe Text -> Maybe Text -> ClientStatus
ClientStatus
      forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
v forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"desktop"
      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
v forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"mobile"
      forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
v forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
.:? Key
"web"

$(deriveTextShow ''ClientStatus)
$(deriveTextShow ''Presence)
$(makeFieldLabelsNoPrefix ''Presence)
$(makeFieldLabelsNoPrefix ''ClientStatus)