module Drasil.SWHS.MetaConcepts where

import Language.Drasil
import Drasil.Metadata (materialEng)
import Drasil.SWHS.Concepts (phsChgMtrl)

progName :: CI
progName :: CI
progName = String -> NP -> String -> [IdeaDict] -> CI
commonIdeaWithDict String
"swhsName"   (String -> String -> NP
nounPhrase String
"solar water heating system"
  String
"solar water heating systems") String
"SWHS" [IdeaDict
materialEng]

progName' :: CI
-- Nounphrase'' hack to get nounPhraseSP words to accept
-- nounPhrases instead of strings
-- Another capitalization hack.
progName' :: CI
progName' = String -> NP -> String -> [UID] -> CI
commonIdea String
"swhsPCM" (Sentence
-> Sentence -> CapitalizationRule -> CapitalizationRule -> NP
nounPhrase''
  (String -> Sentence
S String
"solar water heating systems" Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"incorporating" Sentence -> Sentence -> Sentence
+:+ CI -> Sentence
forall c. Idea c => c -> Sentence
short CI
phsChgMtrl)
  (String -> Sentence
S String
"solar water heating systems" Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"incorporating" Sentence -> Sentence -> Sentence
+:+ CI -> Sentence
forall c. Idea c => c -> Sentence
short CI
phsChgMtrl)
  CapitalizationRule
CapFirst CapitalizationRule
CapWords)
  String
"SWHS"
  []