death-socket/DeathSocketCLI/Commands.fs

namespace Commands

    module ConsoleCommands =
        open System
        open DeathSocket.GridPainter
        open Validation
        open System.IO
        open Console.Waterworks

        let showEndOfCommandMessage = "[INFO.] Task completed."

        let test () = "[SUCCESS] Death Socket is working."

        let help () = CW_Liaison().RequestHelpDocumentation("Commands")

        let exit () = Environment.Exit (Environment.ExitCode)

        let ``add-default`` imgPath newPath =
            try
                printfn "[INFO.] Adding default grid to image..."
                buildDefaultSpec imgPath newPath
                |> applyGrid
                |> Async.RunSynchronously
                showEndOfCommandMessage
            with
            | :? FileNotFoundException as ex -> "[ERROR] No file was found at " + ex.FileName
            | :? ArgumentException as ex -> "[ERROR] Invalid argument: " + ex.Message
            | _ as ex -> ex.Message

        let ``add-grid`` imgPath numRows numColumns pWidth colour newPath =
            try
                printfn "[INFO.] Adding grid to image..."
                buildSpec imgPath numRows numColumns pWidth colour newPath
                |> applyGrid
                |> Async.RunSynchronously
                showEndOfCommandMessage
            with
            | :? FileNotFoundException as ex -> "[ERROR] No file was found at " + ex.FileName
            | :? ArgumentException as ex -> "[ERROR] Invalid argument: " + ex.Message
            | _ as ex -> ex.Message

        let ``list-colours`` () =
            printfn "[INFO.] Listing available colours..."
            for item in colourList do
                printfn "%s" item.Key
            showEndOfCommandMessage