diff --git a/src/Internal/Api/Sync/V1.elm b/src/Internal/Api/Sync/V1.elm index 3685c63..4f26038 100644 --- a/src/Internal/Api/Sync/V1.elm +++ b/src/Internal/Api/Sync/V1.elm @@ -596,7 +596,7 @@ presenceCoder = , description = [ "Events indicating users' presence" ] - , init = Ephemeral + , init = Presence } (Json.field.required { fieldName = "events" @@ -620,7 +620,7 @@ accountDataCoder = , description = [ "Account data events sent by the user in a given room using a different client." ] - , init = Ephemeral + , init = AccountData } (Json.field.required { fieldName = "events" diff --git a/src/Internal/Api/Sync/V2.elm b/src/Internal/Api/Sync/V2.elm new file mode 100644 index 0000000..6c55a29 --- /dev/null +++ b/src/Internal/Api/Sync/V2.elm @@ -0,0 +1,226 @@ +module Internal.Api.Sync.V2 exposing (..) + +{-| + + +# Sync V1 + +Given the complexity of the /sync endpoint, the JSON coders have been placed +in separate modules. Version 2 provides a valid JSON coder for the following +spec versions: + + - r0.4.0 : + +-- @docs coder + +-} +import Internal.Tools.StrippedEvent as StrippedEvent exposing (StrippedEvent) +import Internal.Api.Sync.V1 as V1 +import Internal.Tools.Json as Json +import Internal.Tools.Timestamp as Timestamp exposing (Timestamp) +import Internal.Values.User as User exposing (User) +import Internal.Values.Event as Event + +type alias RoomEvent = + { content : Json.Value + , eventId : String + , originServerTs : Timestamp + , sender : User + , stateKey : Maybe String + , eventType : String + , unsigned : Maybe Unsigned + } + + +roomEventCoder : Json.Coder RoomEvent +roomEventCoder = + Json.object7 + { name = "Event" + , description = + [ "Event describing a JSON object sent in a room." + ] + , init = RoomEvent + } + (Json.field.required + { fieldName = "content" + , toField = .content + , description = + [ "The content of this event. The fields in this object will vary depending on the type of event." + ] + , coder = Json.value + } + ) + (Json.field.required + { fieldName = "event_id" + , toField = .eventId + , description = + [ "The ID of this event, if applicable." + ] + , coder = Json.string + } + ) + (Json.field.required + { fieldName = "origin_server_ts" + , toField = .originServerTs + , description = + [ "Timestamp in milliseconds on originating homeserver when this event was sent." + ] + , coder = Timestamp.coder + } + ) + (Json.field.required + { fieldName = "sender" + , toField = .sender + , description = + [ "The MXID of the user who sent this event." + ] + , coder = User.coder + } + ) + (Json.field.optional.value + { fieldName = "state_key" + , toField = .stateKey + , description = + [ "This key will only be present for state events. A unique key which defines the overwriting semantics for this piece of room state." + ] + , coder = Json.string + } + ) + (Json.field.required + { fieldName = "type" + , toField = .eventType + , description = + [ "The type of event." + ] + , coder = Json.string + } + ) + (Json.field.optional.value + { fieldName = "unsigned" + , toField = .unsigned + , description = + [ "Information about this event which was not sent by the originating homeserver" + ] + , coder = unsignedCoder + } + ) + + +roomEventToUpdate : String -> RoomEvent -> Event.Event +roomEventToUpdate roomId e = + -- TODO: Use Recursion module for call stack safety + { content = e.content + , eventId = e.eventId + , originServerTs = e.originServerTs + , roomId = roomId + , sender = e.sender + , stateKey = e.stateKey + , eventType = e.eventType + , unsigned = + Maybe.map + (\(Unsigned u) -> + Event.UnsignedData + { age = Just u.age + , transactionId = u.transactionId + , redactedBecause = Maybe.map (roomEventToUpdate roomId) u.redactedBecause + , prevContent = u.prevContent + } + ) + e.unsigned + } + +type Unsigned + = Unsigned { age : Int, prevContent : Maybe Json.Value, redactedBecause : Maybe RoomEvent, transactionId : Maybe String } + + +unsignedCoder : Json.Coder Unsigned +unsignedCoder = + Json.object4 + { name = "Unsigned" + , description = + [ "Information about the event that doesn't originate from the original homeserver." + ] + , init = \a b c d -> Unsigned { age = a, prevContent = b, redactedBecause = c, transactionId = d } + } + (Json.field.required + { fieldName = "age" + , toField = \(Unsigned u) -> u.age + , description = + [ "Time in milliseconds since the event was sent." ] + , coder = Json.int + } + ) + (Json.field.optional.value -- Officially not supported in this spec version, but hey, what gives to try and look for it? + { fieldName = "prev_content" + , toField = \(Unsigned u) -> u.prevContent + , description = + [ "The previous content for this state. This will be present only for state events appearing in the timeline. If this is not a state event, or there is no previous content, this key will be missing." + ] + , coder = Json.value + } + ) + (Json.field.optional.value + { fieldName = "redacted_because" + , toField = \(Unsigned u) -> u.redactedBecause + , description = + [ "The event that redacted this event, if any." + ] + , coder = Json.lazy (\() -> roomEventCoder) + } + ) + (Json.field.optional.value + { fieldName = "transaction_id" + , toField = \(Unsigned u) -> u.transactionId + , description = + [ "The transaction ID set when this message was sent. This key will only be present for message events sent by the device calling this API." + ] + , coder = Json.string + } + ) + +type alias Presence = { events : List Event } + +presenceCoder : Json.Coder Presence +presenceCoder = + Json.object1 + { name = "Presence" + , description = + [ "Events indicating users' presence" + ] + , init = Presence + } + (Json.field.required + { fieldName = "events" + , toField = .events + , description = + [ "List of events" + ] + , coder = Json.list eventCoder + } + ) + +type alias AccountData = { events : List Event } + +accountDataCoder : Json.Coder AccountData +accountDataCoder = + Json.object1 + { name = "AccountData" + , description = + [ "Account data events sent by the user in a given room using a different client." + ] + , init = AccountData + } + (Json.field.required + { fieldName = "events" + , toField = .events + , description = + [ "List of events" + ] + , coder = Json.list eventCoder + } + ) + +type alias Event = StrippedEvent + +eventCoder : Json.Coder Event +eventCoder = StrippedEvent.coder