Start working on Matrix data models.

This commit is contained in:
Danila Fedorin 2018-12-08 00:50:31 -08:00
parent 0066c6476b
commit 8bc4ba83bc
2 changed files with 225 additions and 1 deletions

View File

@ -6,13 +6,14 @@
"elm-version": "0.19.0",
"dependencies": {
"direct": {
"NoRedInk/elm-json-decode-pipeline": "1.0.0",
"elm/browser": "1.0.1",
"elm/core": "1.0.2",
"elm/html": "1.0.0",
"elm/json": "1.1.2",
"elm/url": "1.0.0"
},
"indirect": {
"elm/json": "1.1.2",
"elm/time": "1.0.0",
"elm/virtual-dom": "1.0.2"
}

223
src/Scylla/Sync.elm Normal file
View File

@ -0,0 +1,223 @@
module Scylla.Sync exposing (..)
import Dict exposing (Dict)
import Json.Decode as Decode exposing (Decoder, int, string, float, list, value, dict, bool)
import Json.Decode.Pipeline exposing (required, optional)
-- General Events
type alias Event =
{ content : Decode.Value
, type_ : String
}
eventDecoder : Decoder Event
eventDecoder =
Decode.succeed Event
|> required "content" value
|> required "type" string
type alias EventContent =
{ avatarUrl : String
, displayname : String
, membership : String
, isDirect : Bool
-- , thirdPartyInvite : Invite
, unsigned : UnsignedData
}
eventContentDecoder : Decoder EventContent
eventContentDecoder =
Decode.succeed EventContent
|> required "avatar_url" string
|> required "displayname" string
|> required "membership" string
|> required "is_direct" bool
-- |> required "third_party_invite" inviteDecoder
|> required "unsigned" unsignedDataDecoder
type alias State =
{ events : List StateEvent
}
-- Unsigned Data
type alias UnsignedData =
{ age : Int
, redactedBecause : Event
, transactionId : String
}
unsignedDataDecoder : Decoder UnsignedData
unsignedDataDecoder =
Decode.succeed UnsignedData
|> required "age" int
|> required "redacted_because" eventDecoder
|> required "transaction_id" string
-- State
stateDecoder : Decoder State
stateDecoder =
Decode.succeed State
|> required "events" (list stateEventDecoder)
type alias StateEvent =
{ content : Decode.Value
, type_ : String
, eventId : String
, sender : String
, originServerTs : Int
, unsigned : UnsignedData
, prevContent : EventContent
, stateKey : String
}
stateEventDecoder : Decoder StateEvent
stateEventDecoder =
Decode.succeed StateEvent
|> required "required" value
|> required "type" string
|> required "event_id" string
|> required "sender" string
|> required "origin_server_ts" int
|> required "unsigned" unsignedDataDecoder
|> required "prev_content" eventContentDecoder
|> required "sate_key" string
-- Rooms
type alias Rooms =
{ join : Dict String JoinedRoom
, invite : Dict String InvitedRoom
, leave : Dict String LeftRoom
}
roomsDecoder : Decoder Rooms
roomsDecoder =
Decode.succeed Rooms
|> required "join" (dict joinedRoomDecoder)
|> required "invite" (dict invitedRoomDecoder)
|> required "leave" (dict leftRoomDecoder)
type alias JoinedRoom =
{ state : State
, timeline : Timeline
, ephemeral : Ephemeral
, accountData : AccountData
, unreadNotifications : UnreadNotificationCounts
}
joinedRoomDecoder : Decoder JoinedRoom
joinedRoomDecoder =
Decode.succeed JoinedRoom
|> required "state" stateDecoder
|> required "timeline" timelineDecoder
|> required "ephemeral" ephemeralDecoder
|> required "account_data" accountDataDecoder
|> required "unread_notifications" unreadNotificationCountsDecoder
-- Joined Room Data
type alias Timeline =
{ events : List RoomEvent
, limited : Bool
, prevBatch : String
}
timelineDecoder =
Decode.succeed Timeline
|> required "events" (list roomEventDecoder)
|> required "limited" bool
|> required "prev_batch" string
type alias RoomEvent =
{ content : Decode.Value
, type_ : String
, eventId : String
, sender : String
, originServerTs : Int
, unsigned : UnsignedData
}
roomEventDecoder : Decoder RoomEvent
roomEventDecoder =
Decode.succeed RoomEvent
|> required "content" value
|> required "type" string
|> required "event_id" string
|> required "sender" string
|> required "origin_server_ts" int
|> required "unsigned" unsignedDataDecoder
type alias Ephemeral =
{ events : List Event
}
ephemeralDecoder : Decoder Ephemeral
ephemeralDecoder =
Decode.succeed Ephemeral
|> required "events" (list eventDecoder)
type alias AccountData =
{ events : List Event
}
accountDataDecoder : Decoder AccountData
accountDataDecoder =
Decode.succeed AccountData
|> required "events" (list eventDecoder)
type alias UnreadNotificationCounts =
{ highlightCount : Int
, notificationCount : Int
}
unreadNotificationCountsDecoder : Decoder UnreadNotificationCounts
unreadNotificationCountsDecoder =
Decode.succeed UnreadNotificationCounts
|> required "highlight_count" int
|> required "notification_count" int
-- Invited Room Data
type alias InvitedRoom =
{ inviteState : InviteState
}
invitedRoomDecoder : Decoder InvitedRoom
invitedRoomDecoder =
Decode.succeed InvitedRoom
|> required "invite_state" inviteStateDecoder
type alias InviteState =
{ events : List StrippedState
}
inviteStateDecoder : Decoder InviteState
inviteStateDecoder =
Decode.succeed InviteState
|> required "events" (list strippedStateDecoder)
type alias StrippedState =
{ content : EventContent
, stateKey : String
, type_ : String
, sender : String
}
strippedStateDecoder : Decoder StrippedState
strippedStateDecoder =
Decode.succeed StrippedState
|> required "content" eventContentDecoder
|> required "state_key" string
|> required "type" string
|> required "sender" string
-- Left Room Data
type alias LeftRoom =
{ state : State
, timeline : Timeline
, accountData : AccountData
}
leftRoomDecoder : Decoder LeftRoom
leftRoomDecoder =
Decode.succeed LeftRoom
|> required "state" stateDecoder
|> required "timeline" timelineDecoder
|> required "account_data" accountDataDecoder