// Learn more about F# at http://fsharp.org

open System

open DocLib

let gitOwner = "fsprojects"

let gitHome = sprintf "%s/%s" "https://github.com" gitOwner

let gitName = "FSharpPlus"

let website = "/FSharpPlus"

let github_release_user = Environment.environVarOrDefault "github_release_user" gitOwner

let githubLink = sprintf "https://github.com/%s/%s" github_release_user gitName

let info =

[ "project-name", "FSharpPlus"

"project-author", "Gusty"

"project-summary", "F#+ is a base library for F#."

"project-github", githubLink

"project-nuget", "http://nuget.org/packages/FSharpPlus" ]

let release = ReleaseNotes.load "RELEASE_NOTES.md"

Target.create "CleanDocs" (fun _ ->

Shell.cleanDirs ["docs"]

let rootDir = __SOURCE_DIRECTORY__ @@ ".." @@ ".."

open Tools.Path

Target.create "Build" (fun _ ->

let root = website+"/"

FSFormatting.buildDocs (fun args ->

{ args with

OutputDirectory = output

ProjectParameters = ("root", root)::info

Projects = rootDir @@ "src/FSharpPlus/FSharpPlus.fsproj"

TargetPath = rootDir @@ "src/FSharpPlus/bin/Release/net45/FSharpPlus.dll"

SourceRepository = githubLink @@ "tree/master" }

)

open Plantuml

let plantUmlDiag = templates @@ "abstractions.plantuml"

let abstractions = output @@ "abstractions.html"

let plantUMLDiag = toUrl (System.IO.File.ReadAllText plantUmlDiag)

let abstractionsText = System.IO.File.ReadAllText abstractions

System.IO.File.WriteAllText (abstractions, abstractionsText.Replace ("{plantUMLDiag}", plantUMLDiag))

let main argv =

// Generate

// --------------------------------------------------------------------------------------

// Release Scripts

if Array.contains "ReleaseDocs" argv then

Target.create "ReleaseDocs" (fun _ ->

let tempDocsDir = rootDir @@ "temp/gh-pages"

Shell.cleanDir tempDocsDir

let repoUrl = Git.Config.remoteOriginUrl rootDir

Git.Repository.cloneSingleBranch rootDir repoUrl "gh-pages" tempDocsDir

let docDir = rootDir @@ "docs"

Shell.copyRecursive docDir tempDocsDir true |> Trace.tracefn "%A"

Git.Staging.stageAll tempDocsDir

Git.Commit.exec tempDocsDir (sprintf "Update generated documentation for version %s" release.NugetVersion)

Git.Branches.push tempDocsDir

)

Target.create "GenerateDocs" ignore

0 // return an integer exit code