~singpolyma/post-part

ab1f49d502d876a6650d781939c4aef75cee7f3b — Stephen Paul Weber 3 years ago bbff0b2
3s on, 3s transition
2 files changed, 2 insertions(+), 2 deletions(-)

M Home.purs
M index.scss
M Home.purs => Home.purs +1 -1
@@ 56,7 56,7 @@ main = unsafePartial $ do
  win <- window
  doc <- HTMLDocument.toParentNode <$> Window.document win
  tickTockRef <- Ref.new Tick
  Timer.setInterval 10000 $ do
  Timer.setInterval 6000 $ do
    Just slideshow <- (HTMLElement.fromElement =<< _) <$>
      querySelector (QuerySelector "#slideshow img") doc
    slideshowStyle <- Style.style (Style.fromHTMLElement slideshow)

M index.scss => index.scss +1 -1
@@ 94,7 94,7 @@ img {
	img:first-of-type {
		position: absolute;
		opacity: 1;
		transition: opacity 2s;
		transition: opacity 3s;
	}
}