module Drasil.SWHS.LabelledContent (
  labelledContent, sysCntxtFig, figTank
) where

import Language.Drasil hiding (organization, section, variable)
import qualified Language.Drasil.Sentence.Combinators as S

import Data.Drasil.Concepts.Documentation as Doc (sysCont)

import Drasil.SWHS.Concepts (sWHT)
import Drasil.SWHS.Unitals (htFluxC, htFluxP)

resourcePath :: String
resourcePath :: String
resourcePath = String
"../../../../datafiles/swhs/"

labelledContent :: [LabelledContent]
labelledContent :: [LabelledContent]
labelledContent = [LabelledContent
sysCntxtFig, LabelledContent
figTank]

sysCntxtFig :: LabelledContent
sysCntxtFig :: LabelledContent
sysCntxtFig = String -> RawContent -> LabelledContent
llccFig String
"SysCon"
  (RawContent -> LabelledContent) -> RawContent -> LabelledContent
forall a b. (a -> b) -> a -> b
$ Lbl -> String -> RawContent
fig (IdeaDict -> Lbl
forall n. NamedIdea n => n -> Lbl
titleize IdeaDict
sysCont)
  (String -> RawContent) -> String -> RawContent
forall a b. (a -> b) -> a -> b
$ String
resourcePath String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
"SystemContextFigure.png"

figTank :: LabelledContent
figTank :: LabelledContent
figTank = String -> RawContent -> LabelledContent
llccFig String
"Tank" (RawContent -> LabelledContent) -> RawContent -> LabelledContent
forall a b. (a -> b) -> a -> b
$ Lbl -> String -> RawContent
fig (
  [Lbl] -> Lbl
foldlSent_ [ConceptChunk -> Lbl
forall n. NamedIdea n => n -> Lbl
atStart ConceptChunk
sWHT Lbl -> Lbl -> Lbl
`sC` String -> Lbl
S String
"with", UnitalChunk -> Lbl
forall n. NamedIdea n => n -> Lbl
phrase UnitalChunk
htFluxC Lbl -> Lbl -> Lbl
`S.of_`
  UnitalChunk -> Lbl
forall c. (HasUID c, HasSymbol c) => c -> Lbl
ch UnitalChunk
htFluxC Lbl -> Lbl -> Lbl
`S.and_` UnitalChunk -> Lbl
forall n. NamedIdea n => n -> Lbl
phrase UnitalChunk
htFluxP Lbl -> Lbl -> Lbl
`S.of_` UnitalChunk -> Lbl
forall c. (HasUID c, HasSymbol c) => c -> Lbl
ch UnitalChunk
htFluxP])
  (String -> RawContent) -> String -> RawContent
forall a b. (a -> b) -> a -> b
$ String
resourcePath String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
"Tank.png"