Preserve scroll context when posting a status.
This commit is contained in:
parent
2d0d5cd7b9
commit
547dfd770a
@ -176,7 +176,10 @@ update msg model =
|
||||
{ model | viewer = viewer } ! [ commands ]
|
||||
|
||||
SubmitDraft ->
|
||||
model ! [ Command.postStatus (List.head model.clients) <| toStatusRequestBody model.draft ]
|
||||
model
|
||||
! [ Command.postStatus (List.head model.clients) <|
|
||||
toStatusRequestBody model.draft
|
||||
]
|
||||
|
||||
LoadAccount accountId ->
|
||||
{ model
|
||||
|
@ -172,10 +172,7 @@ update msg model =
|
||||
draft =
|
||||
Update.Draft.empty
|
||||
in
|
||||
{ model | draft = draft }
|
||||
! [ Command.scrollColumnToTop "home-timeline"
|
||||
, Command.updateDomStatus draft.status
|
||||
]
|
||||
{ model | draft = draft } ! [ Command.updateDomStatus draft.status ]
|
||||
|
||||
StatusDeleted result ->
|
||||
case result of
|
||||
|
Loading…
Reference in New Issue
Block a user