Matrix-Programs/Scylla
1
0
Fork 0
Code Issues 9 Pull Requests Releases Wiki Activity

Cleanup command code.

Browse Source
This commit is contained in:
Danila Fedorin 2018-12-14 00:04:41 -08:00
parent 78620c3b4f
commit 55f40d5a51
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/Main.elm
View File

@ -119,7 +119,7 @@ updateSyncResponse model r notify =
<| Result.map .nextBatch r <| Result.map .nextBatch r
syncCmd = sync nextBatch model.apiUrl token syncCmd = sync nextBatch model.apiUrl token
newUsers sr = List.filter (\s -> not <| Dict.member s model.userData) <| roomsUsers sr newUsers sr = List.filter (\s -> not <| Dict.member s model.userData) <| roomsUsers sr
newUserCommands sr = Cmd.batch newUserCmd sr = Cmd.batch
<| List.map (userData model.apiUrl <| List.map (userData model.apiUrl
<| Maybe.withDefault "" model.token) <| Maybe.withDefault "" model.token)
<| newUsers sr <| newUsers sr
@ -127,13 +127,14 @@ updateSyncResponse model r notify =
(\(s, e) -> e.originServerTs) (\(s, e) -> e.originServerTs)
(\(s, e) -> e.sender /= model.loginUsername) (\(s, e) -> e.sender /= model.loginUsername)
<| notificationEvents sr <| notificationEvents sr
notificationCommand sr = Maybe.withDefault Cmd.none notificationCmd sr = if notify
then Maybe.withDefault Cmd.none
<| Maybe.map (\(s, e) -> sendNotificationPort <| Maybe.map (\(s, e) -> sendNotificationPort
{ name = displayName model e.sender { name = displayName model e.sender
, text = notificationText e , text = notificationText e
, room = s , room = s
}) }) <| notification sr
<| notification sr else Cmd.none
roomMessages sr = case currentRoomId model of roomMessages sr = case currentRoomId model of
Just rid -> List.filter (((==) "m.room.message") << .type_) Just rid -> List.filter (((==) "m.room.message") << .type_)
<| Maybe.withDefault [] <| Maybe.withDefault []
@ -143,14 +144,17 @@ updateSyncResponse model r notify =
<| Maybe.andThen .join <| Maybe.andThen .join
<| sr.rooms <| sr.rooms
Nothing -> [] Nothing -> []
setScrollCommand sr = if List.isEmpty <| roomMessages sr then Cmd.none else Task.attempt ViewportAfterMessage (Browser.Dom.getViewportOf "events-wrapper") setScrollCmd sr = if List.isEmpty
<| roomMessages sr
then Cmd.none
else Task.attempt ViewportAfterMessage (Browser.Dom.getViewportOf "events-wrapper")
in in
case r of case r of
Ok sr -> ({ model | sync = mergeSyncResponse model.sync sr }, Cmd.batch Ok sr -> ({ model | sync = mergeSyncResponse model.sync sr }, Cmd.batch
[ syncCmd [ syncCmd
, newUserCommands sr , newUserCmd sr
, if notify then notificationCommand sr else Cmd.none , notificationCmd sr
, setScrollCommand sr , setScrollCmd sr
]) ])
_ -> (model, syncCmd) _ -> (model, syncCmd)