{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE PartialTypeSignatures #-}

module Web.Views.Index where

import Model.CoreTypes
import Web.Utils
import Web.Routes as R
import Web.Views.DiamondButton

import Text.Blaze.Html5 ((!))
import qualified Text.Blaze.Html5 as H
import qualified Text.Blaze.Html5.Attributes as A

indexAction :: PortfolioAction ctx a
indexAction = blaze $ baseHeader "Index" indexBase

indexBase :: H.Html
indexBase =
    H.div ! A.class_ "white black-text" $
        H.main $
            H.div ! A.class_ "full f f-col f-sa center" $ do
                H.div ! A.class_ "f-g1 f f-center fi-center" $
                    H.h5 $ H.blockquote "I wanna make the world a better place /s"
                H.div ! A.class_ "f-g5 f f-center f-col fi-center" $ do
                    H.h5 $ H.em "Linux enthusiast"
                    H.h1 "Tom Lebreux"
                H.div ! A.class_ "f f-row f-center f-g1 fi-center" $
                    diamondBtn (A.href $ toHref R.aboutR) "Press here"
