Add scrollto margin

unisonweb · Aug 15, 2024 · 6eb3626 · 6eb3626
1 parent ca13d55
commit 6eb3626
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/Lib/ScrollTo.elm b/src/Lib/ScrollTo.elm
@@ -6,6 +6,11 @@ import Task
 
 scrollTo : msg -> String -> String -> Cmd msg
 scrollTo doneMsg containerId targetId =
+ scrollTo_ doneMsg containerId targetId 0
+
+
+scrollTo_ : msg -> String -> String -> Float -> Cmd msg
+scrollTo_ doneMsg containerId targetId marginTop =
  Task.sequence
  [ Dom.getElement targetId |> Task.map (.element >> .y)
  , Dom.getElement containerId |> Task.map (.element >> .y)
@@ -15,7 +20,7 @@ scrollTo doneMsg containerId targetId =
  (\ys ->
  case ys of
  elY :: viewportY :: viewportScrollTop :: [] ->
- Dom.setViewportOf containerId 0 (viewportScrollTop + (elY - viewportY))
+ Dom.setViewportOf containerId 0 (viewportScrollTop + (elY - viewportY) - marginTop)
  |> Task.onError (\_ -> Task.succeed ())
 
  _ ->