{-# LANGUAGE
    OverloadedStrings
  , ExtendedDefaultRules
  , FlexibleContexts
  #-}

module Pages.Home where

import Application.Types

import Lucid
import Data.Url
import qualified Data.Text as T

import Control.Monad.Reader.Class


homeContent :: ( Monad m
               , MonadReader Env m
               ) => HtmlT (AbsoluteUrlT T.Text m) ()
homeContent = do
  leader
  profile
  mountain
  services


leader :: ( Monad m
          , MonadReader Env m
          ) => HtmlT (AbsoluteUrlT T.Text m) ()
leader =
  div_ [ id_ "leader"
       , class_ "row"] $
    div_ [class_ "column sixteen wide"] $ do
      h1_ [class_ "ui huge header inverted"] $ do
        "Clark Mining Tech"
        div_ [class_ "sub header"] "Delivering Business Value though Technology"

profile :: ( Monad m
           , MonadReader Env m
           ) => HtmlT (AbsoluteUrlT T.Text m) ()
profile =
  div_ [ id_ "profile"
       , class_ "row"] $
    div_ [class_ "column sixteen wide"] $ do
      h2_ [class_ "ui center aligned header"] "Profile"
      div_ [class_ "ui divider"] ""
      img_ [ id_ "profile-image"
           , class_ "ui small left floated image"
           , src_ "/images/lawrence.jpg"]
      p_ [] "The path of the righteous man is beset on all sides by the iniquities of the selfish and the tyranny of evil men. Blessed is he who, in the name of charity and good will, shepherds the weak through the valley of darkness, for he is truly his brother's keeper and the finder of lost children. And I will strike down upon thee with great vengeance and furious anger those who would attempt to poison and destroy My brothers. And you will know My name is the Lord when I lay My vengeance upon thee."
      p_ [] "My money's in that office, right? If she start giving me some bullshit about it ain't there, and we got to go someplace else and get it, I'm gonna shoot you in the head then and there. Then I'm gonna shoot that bitch in the kneecaps, find out where my goddamn money is. She gonna tell me too. Hey, look at me when I'm talking to you, motherfucker. You listen: we go in there, and that nigga Winston or anybody else is in there, you the first motherfucker to get shot. You understand?"
      h3_ [class_ "ui left aligned header"] "A List of Stuff"
      ul_ [] $ do
        li_ [] "One Thing"
        li_ [] "Two Thing"
        li_ [] "Three Thing"

mountain :: ( Monad m
            , MonadReader Env m
            ) => HtmlT (AbsoluteUrlT T.Text m) ()
mountain =
  div_ [ id_ "mountain"
       , class_ "row"] $
    div_ [class_ "column sixteen wide"] $
      div_ [class_ "ui grid stackable"] $ do
        div_ [class_ "row"] $
          div_ [class_ "column sixteen wide"] $ do
            h2_ [class_ "ui center aligned header"] "Another Headline"
            -- div_ [class_ "ui divider"] ""
        div_ [class_ "two column row fuzzy-bg"] $ do
          div_ [class_ "column"] $ do
            p_ [] "Normally, both your asses would be dead as fucking fried chicken, but you happen to pull this shit while I'm in a transitional period so I don't wanna kill you, I wanna help you. But I can't give you this case, it don't belong to me. Besides, I've already been through too much shit this morning over this case to hand it over to your dumb ass."
          div_ [class_ "column"] $ do
            p_ [] "Well, the way they make shows is, they make one show. That show's called a pilot. Then they show that show to the people who make shows, and on the strength of that one show they decide if they're going to make more shows. Some pilots get picked and become television programs. Some don't, become nothing. She starred in one of the ones that became nothing."

services :: ( Monad m
            , MonadReader Env m
            ) => HtmlT (AbsoluteUrlT T.Text m) ()
services =
  div_ [ id_ "services"
       , class_ "row stackable"] $ do
    div_ [class_ "column sixteen wide"] $ do
      h2_ [class_ "ui center aligned header"] "Service Offerings"
      div_ [class_ "ui divider"] ""
    col1
    col2
  where
    col1 =
      div_ [class_ "column eight wide left aligned"] $ do
        h3_ [] "Private equity placement in technology growth companies"
        ul_ [] $ do
          li_ [] "Market assessments"
          li_ [] "Value proposition development"
          li_ [] "Value-based marketing strategies"
        h3_ [] "Technology audits"
        h3_ [] "Technology business case evaluations/development"
        h3_ [] "Enterprise Mining Technology Strategy [EMTS] development"
    col2 =
      div_ [class_ "column eight wide left aligned"] $ do
        h3_ [] "Technology implementation"
        ul_ [] $ do
          li_ [] "Personnel and equipment tracking systems"
          li_ [] "Underground wired and wireless networks"
          li_ [] "Mine planning software systems"
          li_ [] "Grade control and reconciliation systems"
          li_ [] "Mobile LiDAR-based underground excavation mapping"
        h3_ [] "Solution sustainability programs"
        ul_ [] $ do
          li_ [] "Implementation planning"
          li_ [] "Change management strategies"
          li_ [] "Executive engagement"
        h3_ [] "Value stream analysis"
