module Example (main) where

import Prelude

import Data.Maybe (fromJust)
import Effect (Effect)
import Effect.Console (log)
import Element (mkToggleButtonContainer)
import Partial.Unsafe (unsafePartial)
import React.Basic (JSX, element)
import React.Basic.DOM as ReactDOM
import Web.DOM.NonElementParentNode (getElementById) as DOM
import Web.HTML (window) as DOM
import Web.HTML.HTMLDocument (toNonElementParentNode) as DOM
import Web.HTML.Window (document) as DOM


main :: Effect Unit
main = do
  toggleButtonContainer <- mkToggleButtonContainer
  let appEl = element toggleButtonContainer {}

  if isServerSide
     then void (log (renderToString appEl))
     else void do
        window <- DOM.window
        document <- DOM.document window
        let node = DOM.toNonElementParentNode document
        elem <- DOM.getElementById "app" node
        let element' = unsafePartial (fromJust elem)
        ReactDOM.render appEl element'

foreign import isServerSide :: Boolean
foreign import renderToString :: JSX -> String