module Drasil.Website.GettingStarted where

import Language.Drasil


-- * Getting Started Section

gettingStartedSec :: Reference -> Reference -> Reference -> Reference -> Reference -> Reference -> Section
gettingStartedSec :: Reference
-> Reference
-> Reference
-> Reference
-> Reference
-> Reference
-> Section
gettingStartedSec  Reference
quickstartWiki Reference
newWorkspaceSetupWiki Reference
contribGuideWiki Reference
workflowWiki Reference
createProjWiki Reference
debuggingWiki = 
    Sentence -> [Contents] -> [Section] -> Reference -> Section
section Sentence
gettingStartedTitle -- Section title
    [Sentence -> Contents
mkParagraph Sentence
gettingStartedIntro] -- Section introduction
    [Reference -> Section
quickStartSec Reference
quickstartWiki, Reference -> Section
newWorkspaceSec Reference
newWorkspaceSetupWiki, Reference -> Reference -> Section
contribGuideWorkflowSec Reference
contribGuideWiki 
    Reference
workflowWiki, Reference -> Section
createOwnProjectSec Reference
createProjWiki, Reference -> Section
debuggingDrasilSec Reference
debuggingWiki] -- Subsections
    forall a b. (a -> b) -> a -> b
$ String -> Sentence -> Reference
makeSecRef String
"GettingStarted" forall a b. (a -> b) -> a -> b
$ String -> Sentence
S String
"GettingStarted" -- Section Reference

-- | Getting started section title.
gettingStartedTitle :: Sentence
gettingStartedTitle :: Sentence
gettingStartedTitle = String -> Sentence
S String
"Getting Started"

-- | Getting started section introduction.
gettingStartedIntro :: Sentence
gettingStartedIntro :: Sentence
gettingStartedIntro = String -> Sentence
S String
""

-- | Quick Start subsection.
quickStartSec :: Reference -> Section
quickStartSec :: Reference -> Section
quickStartSec Reference
quickstartWiki = 
  Sentence -> [Contents] -> [Section] -> Reference -> Section
section Sentence
quickStartTitle -- Title
  [Sentence -> Contents
mkParagraph forall a b. (a -> b) -> a -> b
$ Reference -> Sentence
quickStartDesc Reference
quickstartWiki] -- Contents
  [] forall a b. (a -> b) -> a -> b
$ String -> Sentence -> Reference
makeSecRef String
"QuickStart" forall a b. (a -> b) -> a -> b
$ String -> Sentence
S String
"QuickStart" -- Section reference

-- | Quick Start subsection title.
quickStartTitle :: Sentence
quickStartTitle :: Sentence
quickStartTitle = String -> Sentence
S String
"Quick Start"

-- | Link to Quick Start Wiki.
quickStartDesc :: Reference -> Sentence
quickStartDesc :: Reference -> Sentence
quickStartDesc Reference
quickstartWiki = String -> Sentence
S String
"Navigate to the" Sentence -> Sentence -> Sentence
+:+ forall r.
(HasUID r, HasRefAddress r, HasShortName r) =>
r -> Sentence -> Sentence
namedRef Reference
quickstartWiki (String -> Sentence
S String
"Quick Start Guide") 
  Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"to see what Drasil can do."

-- | New workspace subsection.
newWorkspaceSec :: Reference -> Section
newWorkspaceSec :: Reference -> Section
newWorkspaceSec Reference
newWorkspaceSetupWiki = 
  Sentence -> [Contents] -> [Section] -> Reference -> Section
section Sentence
newWorkspaceTitle -- Title
  [Sentence -> Contents
mkParagraph forall a b. (a -> b) -> a -> b
$ Reference -> Sentence
newWorkspaceDesc Reference
newWorkspaceSetupWiki] -- Contents
  [] forall a b. (a -> b) -> a -> b
$ String -> Sentence -> Reference
makeSecRef String
"NewWorkspace" forall a b. (a -> b) -> a -> b
$ String -> Sentence
S String
"NewWorkspace" -- Section reference

-- | New workspace subsection title.
newWorkspaceTitle :: Sentence
newWorkspaceTitle :: Sentence
newWorkspaceTitle = String -> Sentence
S String
"New Workspace Setup"

-- | Link to new workspace Wiki.
newWorkspaceDesc :: Reference -> Sentence
newWorkspaceDesc :: Reference -> Sentence
newWorkspaceDesc Reference
newWorkspaceSetupWiki = String -> Sentence
S String
"Workspace recommendations are available in the" Sentence -> Sentence -> Sentence
+:+ forall r.
(HasUID r, HasRefAddress r, HasShortName r) =>
r -> Sentence -> Sentence
namedRef 
  Reference
newWorkspaceSetupWiki (String -> Sentence
S String
"New Workspace Setup") Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"page."

-- | Contributor's Guide and Workflow subsection.
contribGuideWorkflowSec :: Reference -> Reference -> Section
contribGuideWorkflowSec :: Reference -> Reference -> Section
contribGuideWorkflowSec Reference
contribGuideWiki Reference
workflowWiki = 
  Sentence -> [Contents] -> [Section] -> Reference -> Section
section Sentence
contribGuideWorkflowTitle -- Title
  [Sentence -> Contents
mkParagraph forall a b. (a -> b) -> a -> b
$ Reference -> Reference -> Sentence
contribGuideWorkflowDesc Reference
contribGuideWiki Reference
workflowWiki] -- Contents
  [] forall a b. (a -> b) -> a -> b
$ String -> Sentence -> Reference
makeSecRef String
"ContribGuideWorkflow" forall a b. (a -> b) -> a -> b
$ String -> Sentence
S String
"ContribGuideWorkflow" -- Section reference

-- | Contributor's Guide and Workflow title.
contribGuideWorkflowTitle :: Sentence
contribGuideWorkflowTitle :: Sentence
contribGuideWorkflowTitle = String -> Sentence
S String
"Contributor's Guide and Workflow"

-- | Link to Contributor's Guide and Workflow Wiki.
contribGuideWorkflowDesc :: Reference -> Reference -> Sentence
contribGuideWorkflowDesc :: Reference -> Reference -> Sentence
contribGuideWorkflowDesc Reference
contribGuideWiki Reference
workflowWiki = String -> Sentence
S String
"If you are interested in contributing to the \
  \project, please look at the" Sentence -> Sentence -> Sentence
+:+ forall r.
(HasUID r, HasRefAddress r, HasShortName r) =>
r -> Sentence -> Sentence
namedRef Reference
contribGuideWiki (String -> Sentence
S String
"Contributor's Guide") Sentence -> Sentence -> Sentence
+:+ String -> Sentence
SString
" as well as the" 
  Sentence -> Sentence -> Sentence
+:+ forall r.
(HasUID r, HasRefAddress r, HasShortName r) =>
r -> Sentence -> Sentence
namedRef Reference
workflowWiki (String -> Sentence
S String
"Workflow") Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"page."

-- | Creating Your Own Project subsection.
createOwnProjectSec :: Reference -> Section
createOwnProjectSec :: Reference -> Section
createOwnProjectSec Reference
createProjWiki = 
  Sentence -> [Contents] -> [Section] -> Reference -> Section
section Sentence
createOwnProjectTitle -- Title
  [Sentence -> Contents
mkParagraph forall a b. (a -> b) -> a -> b
$ Reference -> Sentence
createOwnProjectDesc Reference
createProjWiki] -- Contents
  [] forall a b. (a -> b) -> a -> b
$ String -> Sentence -> Reference
makeSecRef String
"OwnProject" forall a b. (a -> b) -> a -> b
$ String -> Sentence
S String
"OwnProject" -- Section reference

-- | Creating Your Own Project title.
createOwnProjectTitle :: Sentence
createOwnProjectTitle :: Sentence
createOwnProjectTitle = String -> Sentence
S String
"Creating Your Own Project"

-- | Link to Creating Your Own Project Wiki.
createOwnProjectDesc :: Reference -> Sentence
createOwnProjectDesc :: Reference -> Sentence
createOwnProjectDesc Reference
createProjWiki = String -> Sentence
S String
"If you are interested in creating your own project in Drasil, \
  \please look at the" Sentence -> Sentence -> Sentence
+:+ forall r.
(HasUID r, HasRefAddress r, HasShortName r) =>
r -> Sentence -> Sentence
namedRef Reference
createProjWiki (String -> Sentence
S String
"Creating Your Project in Drasil") Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"page."

-- | Debugging Drasil subsection.
debuggingDrasilSec :: Reference -> Section
debuggingDrasilSec :: Reference -> Section
debuggingDrasilSec Reference
debuggingWiki = 
  Sentence -> [Contents] -> [Section] -> Reference -> Section
section Sentence
debuggingDrasilTitle -- Title
  [Sentence -> Contents
mkParagraph forall a b. (a -> b) -> a -> b
$ Reference -> Sentence
debuggingDrasilDesc Reference
debuggingWiki] -- Contents
  [] forall a b. (a -> b) -> a -> b
$ String -> Sentence -> Reference
makeSecRef String
"DebuggingDrasil" forall a b. (a -> b) -> a -> b
$ String -> Sentence
S String
"DebuggingDrasil" -- Section reference

-- | Debugging Drasil title.
debuggingDrasilTitle :: Sentence
debuggingDrasilTitle :: Sentence
debuggingDrasilTitle = String -> Sentence
S String
"Debugging Drasil"

-- | Debugging Drasil Wiki.
debuggingDrasilDesc :: Reference -> Sentence
debuggingDrasilDesc :: Reference -> Sentence
debuggingDrasilDesc Reference
debuggingWiki = String -> Sentence
S String
"Debugging information can be found in the" Sentence -> Sentence -> Sentence
+:+ forall r.
(HasUID r, HasRefAddress r, HasShortName r) =>
r -> Sentence -> Sentence
namedRef 
  Reference
debuggingWiki (String -> Sentence
S String
"Debugging in Drasil") Sentence -> Sentence -> Sentence
+:+ String -> Sentence
S String
"page."