module Drasil.Projectile.LabelledContent (
  labelledContent, figLaunch, sysCtxFig1
) where

import Language.Drasil
import Language.Drasil.Document
import Language.Drasil.Chunk.Concept.NamedCombinators (the)
import qualified Language.Drasil.Development as D

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

labelledContent :: [LabelledContent]
labelledContent :: [LabelledContent]
labelledContent = [LabelledContent
figLaunch, LabelledContent
sysCtxFig1]

resourcePath :: String
resourcePath :: Filepath
resourcePath = Filepath
"../../../../datafiles/projectile/"

figLaunch :: LabelledContent
figLaunch :: LabelledContent
figLaunch = Filepath -> RawContent -> LabelledContent
llccFig Filepath
"Launch" (RawContent -> LabelledContent) -> RawContent -> LabelledContent
forall a b. (a -> b) -> a -> b
$ Lbl -> Filepath -> MaxWidthPercent -> RawContent
figWithWidth (NPStruct -> Lbl
D.toSent (NPStruct -> Lbl) -> NPStruct -> Lbl
forall a b. (a -> b) -> a -> b
$ NP -> NPStruct
forall n a. NounPhrase n a => n -> Capitalization a
atStartNP (IdeaDict -> NP
forall t. NamedIdea t => t -> NP
the IdeaDict
physicalSystem))
  (Filepath
resourcePath Filepath -> Filepath -> Filepath
forall a. Semigroup a => a -> a -> a
<> Filepath
"Launch.jpg") MaxWidthPercent
70

sysCtxFig1 :: LabelledContent
sysCtxFig1 :: LabelledContent
sysCtxFig1 = Filepath -> RawContent -> LabelledContent
llccFig Filepath
"sysCtxDiag" (RawContent -> LabelledContent) -> RawContent -> LabelledContent
forall a b. (a -> b) -> a -> b
$ Lbl -> Filepath -> RawContent
fig (IdeaDict -> Lbl
forall n. NamedIdea n => n -> Lbl
titleize IdeaDict
sysCont)
  (Filepath
resourcePath Filepath -> Filepath -> Filepath
forall a. Semigroup a => a -> a -> a
<> Filepath
"SystemContextFigure.png")