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 = Reference -> RawContent -> LabelledContent
llcc (String -> Reference
makeFigRef 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 = Reference -> RawContent -> LabelledContent
llcc (String -> Reference
makeFigRef 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"