Don't auto scroll when already scrolled ahead

Fixes #294
srid · Jul 20, 2020 · 8ef3cb5 · 8ef3cb5
1 parent 7de3350
commit 8ef3cb5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/neuron/src/lib/Neuron/Web/Widget/AutoScroll.hs b/neuron/src/lib/Neuron/Web/Widget/AutoScroll.hs
@@ -24,5 +24,5 @@ marker elemId offsetPx = do
 script :: DomBuilder t m => Text -> m ()
 script markerId = do
   let s =
-        "document.getElementById(\"" <> markerId <> "\").scrollIntoView({behavior: \"smooth\", block: \"start\"});"
+        "if (window.scrollY == 0) { document.getElementById(\"" <> markerId <> "\").scrollIntoView({behavior: \"smooth\", block: \"start\"}); }"
   el "script" $ text s