build.fsx

// --------------------------------------------------------------------------------------
// FAKE build script 
// --------------------------------------------------------------------------------------

#load ".fake/build.fsx/intellisense.fsx"
#if !FAKE
    #r "netstandard"
#endif

open Fake.Tools
open Fake.Core
open Fake.DotNet
open Fake.IO
open Fake.IO.FileSystemOperators
open Fake.IO.Globbing.Operators
open System.IO
open Microsoft.AspNetCore.Builder
open Microsoft.AspNetCore.Hosting
open System.Threading
// --------------------------------------------------------------------------------------
// Provide project-specific details below
// --------------------------------------------------------------------------------------

// Git configuration (used for publishing documentation in gh-pages branch)
// The profile where the project is posted 
let gitHome = "https://github.com/fsprojects"
// The name of the project on GitHub
let gitName = "FSharp.Control.Reactive"

let docsDir = Path.GetFullPath "docs"

// --------------------------------------------------------------------------------------
// The rest of the file includes standard build steps 
// --------------------------------------------------------------------------------------

// Read additional information from the release notes document

let release = ReleaseNotes.load  "RELEASE_NOTES.md"

// --------------------------------------------------------------------------------------
// Clean build results & restore NuGet packages

Target.create "CleanDocs" (fun _ ->
    Shell.cleanDir "docs/output"
)

// --------------------------------------------------------------------------------------
// Generate the documentation

Target.create "GenerateDocs" (fun _ ->
    
    let githubLink = "https://github.com/fsprojects/FSharp.Control.Reactive"
    let root = "/FSharp.Control.Reactive"
    // Paths with template/source/output locations

    let content    = docsDir @@ "content"
    let output     = docsDir @@ "output"
    let outputContent = output @@ "content"
    let outputReference = output @@ "reference"
    let files      = docsDir @@ "files"
    let templates  = docsDir @@ "tools/templates"
    let formatting = Path.GetFullPath "packages/build/FSharp.Formatting.CommandTool"
    let docTemplate = formatting @@ "templates/docpage.cshtml"

    // Where to look for *.csproj templates (in this order)
    let layoutRoots = [ templates; formatting @@ "templates"
                        formatting @@ "templates/reference" ]
    let info =
      [ "root", root
        "project-name", "FSharp.Control.Reactive"
        "project-author", "Ryan Riley, Steffen Forkmann, and Jared Hester"
        "project-summary", "A F#-friendly wrapper for the Reactive Extensions."
        "project-github", "https://github.com/fsprojects/FSharp.Control.Reactive"
        "project-nuget", "https://www.nuget.org/packages/FSharp.Control.Reactive" ]

    Shell.copyDir output files FileFilter.allFiles
    Directory.ensure outputContent
    Shell.copyDir outputContent (formatting @@ "styles") FileFilter.allFiles         
    FSFormatting.createDocs (fun s ->
        { s with
            Source = content
            OutputDirectory = output
            Template = docTemplate
            ProjectParameters = info
            LayoutRoots = layoutRoots })

    Directory.ensure outputReference
    let dlls =
        !! "src/FSharp.Control.*/bin/Release/**/FSharp.Control.Reactive*.dll"
        |> Seq.distinctBy Path.GetFileName
        |> List.ofSeq
    let libDirs =
        dlls
        |> Seq.map Path.GetDirectoryName
        |> Seq.distinct
        |> List.ofSeq

    dlls
    |> FSFormatting.createDocsForDlls (fun s ->
        { s with
            OutputDirectory = outputReference
            LayoutRoots =  layoutRoots
            LibDirs = libDirs
            ProjectParameters = info
            SourceRepository = githubLink @@ "tree/master" })
)

Target.create "HostDocs" (fun _ ->
    let configureApp (app:IApplicationBuilder) = 
       app.UseFileServer(FileServerOptions(EnableDefaultFiles = true))
       |> ignore
    let port = 8081
    let directory = docsDir @@ "output"
    let host = 
        WebHostBuilder()
            .UseWebRoot(directory)
            .UseContentRoot(directory)
            .PreferHostingUrls(false)
            .UseKestrel(fun o -> o.ListenLocalhost(port))
            .Configure(System.Action<IApplicationBuilder> configureApp)
            .Build()
    use cts =  new CancellationTokenSource()        
    host.RunAsync(cts.Token) |> ignore
    let psi = System.Diagnostics.ProcessStartInfo(sprintf "http://localhost:%d/index.html" port)
    psi.UseShellExecute <- true
    System.Diagnostics.Process.Start (psi) |> ignore
    Trace.traceImportant "Press any key to stop."
    System.Console.ReadKey() |> ignore
    cts.Cancel()   
)

// --------------------------------------------------------------------------------------
// Release Scripts

Target.create "ReleaseDocs" (fun _ ->
    let tempDocsDir = "temp/gh-pages"
    Shell.cleanDir tempDocsDir
    Git.Repository.cloneSingleBranch "" (gitHome + "/" + gitName + ".git") "gh-pages" tempDocsDir

    Shell.copyRecursive "docs/output" 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
)

// --------------------------------------------------------------------------------------
// Run all targets by default. Invoke 'build <Target>' to override

Target.create "All" (fun _ ->
    Target.listAvailable()
)

open Fake.Core.TargetOperators

"CleanDocs"
  ==> "GenerateDocs"
  ==> "ReleaseDocs"

Target.runOrDefault "All"