build.fs

open System.IO
open Fake.Core
open Fake.DotNet
open Fake.IO
open Fake.IO.Globbing.Operators

let execContext = Context.FakeExecutionContext.Create false "build.fsx" []
Context.setExecutionContext (Context.RuntimeContext.Fake execContext)

/// The output directory for release ZIPs
let releasePath = "releases"

/// The path to the main project
let projectPath = "src/MyWebLog"

/// The path and name of the main project
let projName = $"{projectPath}/MyWebLog.fsproj"

/// The version being packaged (extracted from appsettings.json)
let version =
    let settings   = File.ReadAllText $"{projectPath}/appsettings.json"
    let generator  = settings.Substring (settings.IndexOf "\"Generator\":")
    let appVersion = generator.Replace("\"Generator\": \"", "")
    let appVersion = appVersion.Substring (0, appVersion.IndexOf "\"")
    appVersion.Split ' ' |> Array.last
    
/// Zip a theme distributed with myWebLog
let zipTheme (name : string) (_ : TargetParameter) =
    let path = $"src/{name}-theme"
    !! $"{path}/**/*"
    |> Zip.filesAsSpecs path
    |> Seq.filter (fun (_, name) -> not (name.EndsWith ".zip"))
    |> Zip.zipSpec $"{releasePath}/{name}-theme.zip"

/// Frameworks supported by this build
let frameworks = [ "net6.0"; "net7.0"; "net8.0" ]

/// Publish the project for the given runtime ID    
let publishFor rid (_ : TargetParameter) =
    frameworks
    |> List.iter (fun fwk ->
        DotNet.publish
            (fun opts ->
                { opts with Runtime = Some rid; SelfContained = Some false; NoLogo = true; Framework = Some fwk })
            projName)

/// Package published output for the given runtime ID
let packageFor rid (_ : TargetParameter) =
    frameworks
    |> List.iter (fun fwk ->
        let path = $"{projectPath}/bin/Release/{fwk}/%s{rid}/publish"
        let prodSettings = $"{path}/appsettings.Production.json"
        if File.exists prodSettings then File.delete prodSettings
        [   !! $"{path}/**/*"
            |> Zip.filesAsSpecs path
            |> Seq.map (fun (orig, dest) ->
                orig, if dest.StartsWith "MyWebLog" then dest.Replace ("MyWebLog", "myWebLog") else dest)
            Seq.singleton ($"{releasePath}/admin-theme.zip", "admin-theme.zip")
            Seq.singleton ($"{releasePath}/default-theme.zip", "default-theme.zip")
        ]
        |> Seq.concat
        |> Zip.zipSpec $"{releasePath}/myWebLog-{version}.{fwk}.{rid}.zip")


Target.create "Clean" (fun _ ->
    !! "src/**/bin"
    ++ "src/**/obj"
    |> Shell.cleanDirs 
    Shell.cleanDir releasePath
)

Target.create "Build" (fun _ ->
    DotNet.build (fun opts -> { opts with NoLogo = true }) projName
)

Target.create "ZipAdminTheme"   (zipTheme "admin")
Target.create "ZipDefaultTheme" (zipTheme "default")

Target.create "PublishWindows" (publishFor "win-x64")
Target.create "PackageWindows" (packageFor "win-x64")

Target.create "PublishLinux" (publishFor "linux-x64")
Target.create "PackageLinux" (packageFor "linux-x64")

Target.create "RepackageLinux" (fun _ ->
    let workDir = $"{releasePath}/linux"
    frameworks
    |> List.iter (fun fwk ->
        let zipArchive = $"{releasePath}/myWebLog-{version}.{fwk}.linux-x64.zip"
        let sh command args = 
            CreateProcess.fromRawCommand command args
            |> CreateProcess.redirectOutput
            |> Proc.run
            |> ignore
        Shell.mkdir workDir
        Zip.unzip workDir zipArchive
        Shell.cd workDir
        sh "chmod" [ "+x"; "./myWebLog" ]
        sh "tar" [ "cfj"; $"../myWebLog-{version}.{fwk}.linux-x64.tar.bz2"; "." ]
        Shell.cd "../.."
        Shell.rm zipArchive)
    Shell.rm_rf workDir
)

Target.create "All" ignore

Target.create "RemoveThemeArchives" (fun _ ->
    Shell.rm $"{releasePath}/admin-theme.zip"
    Shell.rm $"{releasePath}/default-theme.zip"
)

Target.create "CI" ignore

open Fake.Core.TargetOperators

let dependencies = [
    "Clean"
      ==> "All"

    "Clean"
      ?=> "Build"
      ==> "All"

    "Clean"
      ?=> "ZipDefaultTheme"
      ==> "All"

    "Clean"
      ?=> "ZipAdminTheme"
      ==> "All"

    "Build"
      ==> "PublishWindows"
      ==> "All"

    "Build"
      ==> "PublishLinux"
      ==> "All"

    "PublishWindows"
      ==> "PackageWindows"
      ==> "All"

    "PublishLinux"
      ==> "PackageLinux"
      ==> "All"

    "PackageLinux"
      ==> "RepackageLinux"
      ==> "All"

    "All"
      ==> "RemoveThemeArchives"
      ==> "CI"
]

[<EntryPoint>]
let main args =
    try
        match args with
        | [| target |] -> Target.runOrDefault target
        | _ -> Target.runOrDefault "All"
        0
    with e ->
        printfn "%A" e
        1