2018-12-08 13:49:30 -08:00
|
|
|
module Scylla.Model exposing (..)
|
|
|
|
import Scylla.Api exposing (..)
|
2019-10-09 12:42:33 -07:00
|
|
|
import Scylla.Room exposing (getLocalDisplayName)
|
2019-09-11 01:11:08 -07:00
|
|
|
import Scylla.Sync exposing (SyncResponse, HistoryResponse)
|
2019-09-10 23:24:47 -07:00
|
|
|
import Scylla.ListUtils exposing (findFirst)
|
|
|
|
import Scylla.Room exposing (OpenRooms)
|
2019-10-09 12:52:59 -07:00
|
|
|
import Scylla.UserData exposing (UserData, getSenderName)
|
2019-09-10 18:15:28 -07:00
|
|
|
import Scylla.Sync.Rooms exposing (JoinedRoom)
|
2019-10-04 21:24:32 -07:00
|
|
|
import Scylla.Sync.Push exposing (Ruleset)
|
2019-09-10 23:24:47 -07:00
|
|
|
import Scylla.Sync.AccountData exposing (AccountData, directMessagesDecoder)
|
2018-12-08 15:06:14 -08:00
|
|
|
import Scylla.Login exposing (LoginResponse, Username, Password)
|
2018-12-14 00:02:15 -08:00
|
|
|
import Scylla.Route exposing (Route(..), RoomId)
|
2019-02-25 19:54:54 -08:00
|
|
|
import Scylla.Messages exposing (..)
|
2018-12-17 16:18:47 -08:00
|
|
|
import Scylla.Storage exposing (..)
|
2018-12-20 22:01:09 -08:00
|
|
|
import Scylla.Markdown exposing (..)
|
2018-12-08 13:49:30 -08:00
|
|
|
import Browser.Navigation as Nav
|
2018-12-14 00:02:15 -08:00
|
|
|
import Browser.Dom exposing (Viewport)
|
2018-12-13 14:06:15 -08:00
|
|
|
import Url.Builder
|
2018-12-08 17:15:35 -08:00
|
|
|
import Dict exposing (Dict)
|
2018-12-17 19:56:50 -08:00
|
|
|
import Time exposing (Posix)
|
2018-12-20 17:03:26 -08:00
|
|
|
import File exposing (File)
|
2019-08-31 23:03:57 -07:00
|
|
|
import Json.Decode as Decode
|
2018-12-08 13:49:30 -08:00
|
|
|
import Browser
|
|
|
|
import Http
|
|
|
|
import Url exposing (Url)
|
|
|
|
|
|
|
|
type alias Model =
|
|
|
|
{ key : Nav.Key
|
2018-12-08 19:09:20 -08:00
|
|
|
, route : Route
|
2018-12-08 13:49:30 -08:00
|
|
|
, token : Maybe ApiToken
|
2018-12-08 15:06:14 -08:00
|
|
|
, loginUsername : Username
|
|
|
|
, loginPassword : Password
|
2018-12-08 13:49:30 -08:00
|
|
|
, apiUrl : ApiUrl
|
2019-09-11 00:52:42 -07:00
|
|
|
, accountData : AccountData
|
|
|
|
, nextBatch : String
|
2018-12-08 17:15:35 -08:00
|
|
|
, errors : List String
|
2019-02-25 19:54:54 -08:00
|
|
|
, roomText : Dict RoomId String
|
|
|
|
, sending : Dict Int (RoomId, SendingMessage)
|
2018-12-09 23:38:43 -08:00
|
|
|
, transactionId : Int
|
2018-12-27 00:12:48 -08:00
|
|
|
, connected : Bool
|
2019-05-19 13:42:22 -07:00
|
|
|
, searchText : String
|
2019-09-10 23:24:47 -07:00
|
|
|
, rooms : OpenRooms
|
2018-12-08 13:49:30 -08:00
|
|
|
}
|
|
|
|
|
|
|
|
type Msg =
|
2018-12-08 15:06:14 -08:00
|
|
|
ChangeApiUrl ApiUrl -- During login screen: the API URL (homeserver)
|
|
|
|
| ChangeLoginUsername Username -- During login screen: the username
|
|
|
|
| ChangeLoginPassword Password -- During login screen: the password
|
|
|
|
| AttemptLogin -- During login screen, login button presed
|
|
|
|
| TryUrl Browser.UrlRequest -- User attempts to change URL
|
2018-12-13 14:06:15 -08:00
|
|
|
| OpenRoom String -- We try open a room
|
2018-12-08 19:09:20 -08:00
|
|
|
| ChangeRoute Route -- URL changes
|
2018-12-09 23:38:43 -08:00
|
|
|
| ChangeRoomText String String -- Change to a room's input text
|
|
|
|
| SendRoomText String -- Sends a message typed into a given room's input
|
2019-03-15 18:01:26 -07:00
|
|
|
| SendRoomTextResponse Int (Result Http.Error String) -- A send message response finished
|
2018-12-14 00:02:15 -08:00
|
|
|
| ViewportAfterMessage (Result Browser.Dom.Error Viewport) -- A message has been received, try scroll (maybe)
|
|
|
|
| ViewportChangeComplete (Result Browser.Dom.Error ()) -- We're done changing the viewport.
|
2018-12-13 01:46:57 -08:00
|
|
|
| ReceiveFirstSyncResponse (Result Http.Error SyncResponse) -- HTTP, Sync has finished
|
2018-12-08 15:06:14 -08:00
|
|
|
| ReceiveSyncResponse (Result Http.Error SyncResponse) -- HTTP, Sync has finished
|
2018-12-17 02:40:39 -08:00
|
|
|
| ReceiveLoginResponse ApiUrl (Result Http.Error LoginResponse) -- HTTP, Login has finished
|
2018-12-17 19:56:50 -08:00
|
|
|
| ReceiveUserData Username (Result Http.Error UserData) -- HTTP, receive user data
|
|
|
|
| ReceiveCompletedReadMarker (Result Http.Error ()) -- HTTP, read marker request completed
|
2018-12-17 19:39:37 -08:00
|
|
|
| ReceiveCompletedTypingIndicator (Result Http.Error ()) -- HTTP, typing indicator request completed
|
2019-08-31 23:03:57 -07:00
|
|
|
| ReceiveStoreData Decode.Value -- We are send back a value on request from localStorage.
|
2018-12-17 19:56:50 -08:00
|
|
|
| TypingTick Posix -- Tick for updating the typing status
|
2018-12-19 21:52:07 -08:00
|
|
|
| History RoomId -- Load history for a room
|
|
|
|
| ReceiveHistoryResponse RoomId (Result Http.Error HistoryResponse) -- HTTP, receive history
|
2019-09-07 17:06:23 -07:00
|
|
|
| SendImages RoomId -- Image selection triggered
|
|
|
|
| SendFiles RoomId -- File selection triggered
|
|
|
|
| ImagesSelected RoomId File (List File) -- Images to send selected
|
|
|
|
| FilesSelected RoomId File (List File) -- Files to send selected
|
|
|
|
| ImageUploadComplete RoomId File (Result Http.Error String) -- Image has been uploaded
|
|
|
|
| FileUploadComplete RoomId File (Result Http.Error String) -- File has been uploaded
|
|
|
|
| SendImageResponse (Result Http.Error String) -- Server responded to image
|
|
|
|
| SendFileResponse (Result Http.Error String) -- Server responded to file
|
|
|
|
| ReceiveMarkdown MarkdownResponse -- Markdown was rendered
|
|
|
|
| DismissError Int -- User dismisses error
|
|
|
|
| AttemptReconnect -- User wants to reconnect to server
|
|
|
|
| UpdateSearchText String -- Change search text in room list
|
2018-12-08 13:49:30 -08:00
|
|
|
|
2018-12-13 14:06:15 -08:00
|
|
|
roomUrl : String -> String
|
|
|
|
roomUrl s = Url.Builder.absolute [ "room", s ] []
|
|
|
|
|
|
|
|
loginUrl : String
|
|
|
|
loginUrl = Url.Builder.absolute [ "login" ] []
|
2018-12-14 00:02:15 -08:00
|
|
|
|
|
|
|
currentRoomId : Model -> Maybe RoomId
|
|
|
|
currentRoomId m = case m.route of
|
|
|
|
Room r -> Just r
|
|
|
|
_ -> Nothing
|
2019-10-09 12:42:33 -07:00
|
|
|
|
|
|
|
roomLocalDisplayName : Model -> RoomId -> Username -> String
|
|
|
|
roomLocalDisplayName m rid u =
|
|
|
|
case Dict.get rid m.rooms of
|
|
|
|
Just rd -> getLocalDisplayName rd u
|
2019-10-09 12:52:59 -07:00
|
|
|
_ -> getSenderName u
|