module Drasil.SWHS.References where

import Language.Drasil

import Data.Drasil.People (jBueche, fIncropera, dDewitt, tBergman, aLavine,
  mLightstone)

import Data.Drasil.Citations (koothoor2013, parnasClements1986, 
  smithEtAl2007, smithLai2005, smithKoothoor2016)

----------------------------
-- Section 9 : References --
----------------------------
citations :: BibRef
citations :: BibRef
citations = [Citation
bueche1986, Citation
incroperaEtAl2007, Citation
koothoor2013, Citation
lightstone2012,
             Citation
parnasClements1986, Citation
smithEtAl2007, Citation
smithLai2005, 
             Citation
smithKoothoor2016]

bueche1986, incroperaEtAl2007, lightstone2012 :: Citation

bueche1986 :: Citation
bueche1986 = People
-> String -> String -> Int -> [CiteField] -> String -> Citation
cBookA [Person
jBueche]
  String
"Introduction to Physics for Scientists"
  String
"McGraw Hill" Int
1986
  [Int -> CiteField
edition Int
4, String -> CiteField
address String
"New York City, New York"]
  String
"bueche1986"

incroperaEtAl2007 :: Citation
incroperaEtAl2007 = People
-> String -> String -> Int -> [CiteField] -> String -> Citation
cBookA [Person
fIncropera, Person
dDewitt, Person
tBergman, Person
aLavine]
  String
"Fundamentals of Heat and Mass Transfer"
  String
"John Wiley and Sons" Int
2007
  [Int -> CiteField
edition Int
6, String -> CiteField
address String
"Hoboken, New Jersey"]
  String
"incroperaEtAl2007"

lightstone2012 :: Citation
lightstone2012 = [CiteField] -> String -> Citation
cMisc [
  People -> CiteField
author [Person
mLightstone],
  String -> CiteField
title String
"Derivation of tank/pcm model",
  Int -> CiteField
year Int
2012,
  String -> CiteField
note String
"From Marilyn Lightstone's Personal Notes"]
  String
"lightstone2012"


uriReferences :: [Reference]
uriReferences :: [Reference]
uriReferences = [Reference
consThemESrc, Reference
latHtESrc, Reference
sensHtESrc]

consThemESrc :: Reference
consThemESrc :: Reference
consThemESrc = String -> String -> ShortName -> Reference
makeURI String
"consThemESrc"
  String
"http://www.efunda.com/formulae/heat_transfer/conduction/overview_cond.cfm" (ShortName -> Reference) -> ShortName -> Reference
forall a b. (a -> b) -> a -> b
$
  Sentence -> ShortName
shortname' (Sentence -> ShortName) -> Sentence -> ShortName
forall a b. (a -> b) -> a -> b
$ String -> Sentence
S String
"Fourier Law of Heat Conduction and Heat Equation"

latHtESrc :: Reference
latHtESrc :: Reference
latHtESrc = String -> String -> ShortName -> Reference
makeURI String
"latHtESrc" String
"http://en.wikipedia.org/wiki/Latent_heat" (ShortName -> Reference) -> ShortName -> Reference
forall a b. (a -> b) -> a -> b
$
  Sentence -> ShortName
shortname' (Sentence -> ShortName) -> Sentence -> ShortName
forall a b. (a -> b) -> a -> b
$ String -> Sentence
S String
"Definition of Latent Heat"

sensHtESrc :: Reference
sensHtESrc :: Reference
sensHtESrc = String -> String -> ShortName -> Reference
makeURI String
"sensHtESrc"
  String
"http://en.wikipedia.org/wiki/Sensible_heat" (ShortName -> Reference) -> ShortName -> Reference
forall a b. (a -> b) -> a -> b
$
  Sentence -> ShortName
shortname' (Sentence -> ShortName) -> Sentence -> ShortName
forall a b. (a -> b) -> a -> b
$ String -> Sentence
S String
"Definition of Sensible Heat"