module Example (main) where

import Prelude

import Container.Component (mkContainer)
import Data.Maybe (fromJust)
import Effect (Effect)
import Effect.Console (log)
import Partial.Unsafe (unsafePartial)
import React.Basic (JSX, element)
import React.Basic.DOM as ReactDOM
import Theme (fromTheme)
import Theme.Default (darkTheme)
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
  container <- mkContainer
  let appEl = element container { theme: fromTheme darkTheme, children: [] }

  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