module Drasil.PDController.LabelledContent (
    labelledContent, gsdSysContextFig, sysFigure
) where

import Language.Drasil
import Language.Drasil.Chunk.Concept.NamedCombinators
import qualified Language.Drasil.Development as D

import Data.Drasil.Concepts.Documentation (sysCont, physicalSystem)

labelledContent :: [LabelledContent]
labelledContent :: [LabelledContent]
labelledContent = [LabelledContent
gsdSysContextFig, LabelledContent
sysFigure]

gsdSysContextFig :: LabelledContent
gsdSysContextFig :: LabelledContent
gsdSysContextFig
  = Reference -> RawContent -> LabelledContent
llcc (String -> Reference
makeFigRef String
"systemContextDiag") (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
"../../../../datafiles/pdcontroller/Fig_SystemContext.png"

sysFigure :: LabelledContent
sysFigure :: LabelledContent
sysFigure
  = Reference -> RawContent -> LabelledContent
llcc (String -> Reference
makeFigRef String
"pidSysDiagram") (RawContent -> LabelledContent) -> RawContent -> LabelledContent
forall a b. (a -> b) -> a -> b
$
      Lbl -> String -> MaxWidthPercent -> RawContent
figWithWidth (NPStruct -> Lbl
D.toSent (NPStruct -> Lbl) -> NPStruct -> Lbl
forall a b. (a -> b) -> a -> b
$ NP -> NPStruct
forall n. NounPhrase n => n -> NPStruct
atStartNP (NP -> NPStruct) -> NP -> NPStruct
forall a b. (a -> b) -> a -> b
$ IdeaDict -> NP
forall t. NamedIdea t => t -> NP
the IdeaDict
physicalSystem)
        String
"../../../../datafiles/pdcontroller/Fig_PDController.png"
        MaxWidthPercent
70