Build.fsx

#r "nuget: FAKE, 5.16.0"
#r "nuget: Fake.Core.Target"
#r "nuget: Fake.DotNet.Cli, 6.0.0"
#r "nuget: Suave, 2.6.2"
#r "nuget: Fake.BuildServer.GitHubActions, 6.0.0"
#r "nuget: Argu, 6.2.4"
#r "nuget: FsHttp, 14.5.1"

open Fake.Core
open Fake.IO
open Fake.DotNet
open Fake.Core.TargetOperators
open Suave
open Suave.Filters
open Suave.Operators
open System.IO
open Argu
open FsHttp
open System.IO


type Arguments =
    | Action of action: string
    | Post of post: string
    
    interface IArgParserTemplate with
        member s.Usage =
            match s with
            | Action _ -> "Run or Deploy."
            | Post _ -> "file name of single post to render"

let parser = ArgumentParser.Create<Arguments>()

let args = parser.Parse (fsi.CommandLineArgs |> Array.skip 1)


let action = 
    match args.TryGetResult Action with
    | Some a -> a
    | None -> failwith "non action passed in. Please pass --action Run or --action Deploy"


let singlePostRender = 
    match args.TryGetResult Post with
    | Some p -> p
    | None -> ""

let runDir = 
        match action with 
        | "Deploy" -> "./docs"
        | "Run" -> "./local"
        | _ -> "./local"



let downloadFile url outputPath =
    async {
        let! response = 
            http {
                GET url
            }
            |> Request.sendAsync

        let content = response.content.ReadAsStringAsync().Result
        File.WriteAllText(outputPath, content)
        printfn "File downloaded and saved to %s" outputPath
    }


System.Environment.GetCommandLineArgs()
|> Array.skip 2 // 3 if run in interactive window.
|> Array.toList
|> Context.FakeExecutionContext.Create false "build.fsx"
|> Context.RuntimeContext.Fake
|> Context.setExecutionContext

Target.create "Clean" (fun _ ->
        Shell.cleanDir runDir |> ignore
)

Target.create "BuildModel" (fun _ ->
        Shell.cd "Model" |> ignore
        DotNet.exec id "build" "./Model.fsproj" |> ignore 
        Shell.cd ".."
)

Target.create "Render" (fun _ ->
       
        Shell.copyDir runDir "Server/images" (fun _ -> true) |> ignore
        Shell.copyFile runDir "Server/styles.css" |> ignore
        let arguments = sprintf "--project ./Server/Server.fsproj %s %s" runDir singlePostRender
        DotNet.exec id "run" arguments |> ignore 
)

Target.create "CompileJS" (fun _ ->
        let outDir = sprintf "--outDir .%s" runDir
        Shell.cd "Client"
        DotNet.exec id "fable" outDir |> ignore
        let gitIgnore = sprintf ".%s/.gitignore" outDir
        Shell.rm gitIgnore
        Shell.cd ".."
)

Target.create "Run" (fun _ ->
        
        let app = 
                choose [
                GET >=> path "/" >=> Files.file "local/index.html"
                GET >=> Files.browseHome            
                RequestErrors.NOT_FOUND "Page not found."  
                ]
       
        let config =
            {defaultConfig with homeFolder = Some (Path.GetFullPath "local") }
            
        startWebServer config app 
       
)

Target.create "Commit" (fun _ ->
        let filePath = "./docs/CNAME"
        let content = "harrymccarney.com"
        // Write the content to the file
        File.writeString false filePath content
        Shell.Exec("git", "add .") |> ignore
        Shell.Exec("git",  "commit -a -m \"deploying to github pages\"") |> ignore
)

Target.create "CreateRobots" (fun _ ->
        
        // Usage
        let url = "https://raw.githubusercontent.com/ai-robots-txt/ai.robots.txt/main/robots.txt"
        let outputPath = "./docs/robots.txt"

        downloadFile url outputPath |> Async.RunSynchronously
)

Target.create "Deploy" (fun _ ->
        Shell.Exec("git", "push") |> ignore
)

"Clean" ==> "BuildModel" ==> "Render" ==> "CompileJS" ==> "Run" 

"Clean" ==> "BuildModel" ==> "Render" ==> "CompileJS" ==> "CreateRobots" ==>"Commit" ==> "Deploy"

Target.runOrDefaultWithArguments action