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

import Language.Drasil
import qualified Language.Drasil.Sentence.Combinators as S

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

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


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

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

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 (ConceptChunk -> Lbl
forall n. NamedIdea n => n -> Lbl
atStart ConceptChunk
sWHT Lbl -> Lbl -> Lbl
`sC` String -> Lbl
S String
"with" Lbl -> Lbl -> Lbl
+:+ ConceptChunk -> Lbl
forall n. NamedIdea n => n -> Lbl
phrase ConceptChunk
htFlux Lbl -> Lbl -> Lbl
+:+
  String -> Lbl
S String
"from" Lbl -> Lbl -> Lbl
+:+ ConceptChunk -> Lbl
forall n. NamedIdea n => n -> Lbl
phrase ConceptChunk
coil Lbl -> Lbl -> Lbl
`S.of_` UnitalChunk -> Lbl
forall c. (HasUID c, HasSymbol c) => c -> Lbl
ch UnitalChunk
htFluxC)
  (String -> RawContent) -> String -> RawContent
forall a b. (a -> b) -> a -> b
$ String
resourcePath String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
"TankWaterOnly.png"

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"