flewkey
/
tooty
1
0
Fork 0
Code Releases Activity

Add scrollIntoView port (#129) 

* Add scrollIntoView port

* Fix js formatting

* @n1k0's review
This commit is contained in:
Vincent Jousse 2017-05-04 08:31:58 +02:00 committed by GitHub
parent bff92549a2
commit 9b8293554f
5 changed files with 39 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
public/index.html
View File

@ -17,16 +17,20 @@
<body>
<script src="app.js"></script>
<script>
const app = Elm.Main.fullscreen({
client: JSON.parse(localStorage.getItem("tooty.client")),
registration: JSON.parse(localStorage.getItem("tooty.registration"))
});
app.ports.saveClient.subscribe(json => {
localStorage.setItem("tooty.client", json);
});
app.ports.saveRegistration.subscribe(json => {
localStorage.setItem("tooty.registration", json);
});
app.ports.setStatus.subscribe(function(data) {
var element = document.getElementById(data.id);
if (element) {
@ -35,6 +39,16 @@
element.focus();
}
});
app.ports.scrollIntoView.subscribe(function(id) {
requestAnimationFrame(function() {
var element = document.getElementById(id);
if (element) {
element.scrollIntoView(true);
}
});
});
</script>
</body>
</html>

6
src/Command.elm
View File

@ -26,6 +26,7 @@ module Command
, focusId
, scrollColumnToTop
, scrollColumnToBottom
, scrollToThreadStatus
, searchAccounts
)
@ -329,3 +330,8 @@ scrollColumnToTop column =
scrollColumnToBottom : String -> Cmd Msg
scrollColumnToBottom column =
Task.attempt (always NoOp) <| Dom.Scroll.toBottom column
scrollToThreadStatus : String -> Cmd Msg
scrollToThreadStatus cssId =
Ports.scrollIntoView <| "thread-status-" ++ cssId

2
src/Model.elm
View File

@ -524,7 +524,7 @@ processMastodonEvent msg model =
case result of
Ok context ->
{ model | currentView = ThreadView (Thread status context) }
! [ Command.scrollColumnToBottom "thread" ]
! [ Command.scrollToThreadStatus <| toString status.id ]
Err error ->
{ model

11
src/Ports.elm
View File

@ -1,4 +1,10 @@
port module Ports exposing (saveRegistration, saveClient, setStatus)
port module Ports
exposing
( saveRegistration
, scrollIntoView
, saveClient
, setStatus
)
port saveRegistration : String -> Cmd msg
@ -8,3 +14,6 @@ port saveClient : String -> Cmd msg
port setStatus : { id : String, status : String } -> Cmd msg
port scrollIntoView : String -> Cmd msg

9
src/View/Status.elm
View File

@ -188,8 +188,15 @@ statusEntryView context className currentUser status =
_ ->
""
liAttributes =
[ class <| "list-group-item " ++ className ++ " " ++ nsfwClass ]
++ if context == "thread" then
[ id <| "thread-status-" ++ (toString status.id) ]
else
[]
in
li [ class <| "list-group-item " ++ className ++ " " ++ nsfwClass ]
li liAttributes
[ Lazy.lazy2 statusView context status
, Lazy.lazy2 statusActionsView status currentUser
]