{-# LANGUAGE OverloadedStrings #-}

module Web.Views.Workflow where

import Model.CoreTypes
import Web.Routes
import Web.Utils
import Web.Views.CenteredSplit
import Web.Views.Header
import Web.Views.NavButtonOpen

import Text.Blaze.Html5 ((!))
import qualified Text.Blaze.Html5 as H
import qualified Text.Blaze.Html5.Attributes as A
import Web.Spock.Safe ((<//>))

workflowAction :: PortfolioAction ctx a
workflowAction = blaze $ baseHeader "Workflow" workflowBase

workflowBase :: H.Html
workflowBase =
    H.div ! A.class_ "white f f-col black-text p4" $ do
        H.header $ do
            navBtn
            headerView "Workflow" "They see me ricin', they hatin'"
        H.main ! A.class_ "container" $ do
            H.div $ H.h3 "General utilities"
            H.div ! A.class_ "f f-row f-g3 f-sb fi-center" $ do
                let wallpaper = H.img ! A.style "width:80%;margin:auto;" ! A.src (toHref (miscImagesR <//> "/low_50/workflow_1.jpg")) ! A.class_ "f f-w fi-center"
                    description =
                        H.ul ! A.class_ "p4" $ do
                            H.li "Arch"
                            H.li "Vim"
                            H.li "Tmux"
                            H.li "i3wm"
                            H.li "dmenu"
                H.div wallpaper
                H.div description
