|
|
|
@ -7,6 +7,7 @@
|
|
|
|
|
open Console.Waterworks.Attributes |
|
|
|
|
open SmoulderingBeachBall.Services |
|
|
|
|
open Validation |
|
|
|
|
open System.IO |
|
|
|
|
|
|
|
|
|
let showEndOfCommandMessage = "[INFO.] Execution completed." |
|
|
|
|
|
|
|
|
@ -19,10 +20,21 @@
|
|
|
|
|
|
|
|
|
|
[<ListCommand>] |
|
|
|
|
[<Parameters "none">] |
|
|
|
|
[<Description "Displays a list of available commands provided by this porgram.">] |
|
|
|
|
[<Description "Displays a list of available commands provided by this program.">] |
|
|
|
|
[<Usage "help">] |
|
|
|
|
let help () = CW_Liaison().RequestHelpDocumentation("Commands") |
|
|
|
|
|
|
|
|
|
let cheat () = |
|
|
|
|
try |
|
|
|
|
printfn "[INFO] Attempting to save cheat sheet to the desktop..." |
|
|
|
|
let cheatSheetPath = __SOURCE_DIRECTORY__ + "/cheat-sheet.pdf" |
|
|
|
|
let savePath = getDesktopPath + "/smouldering-beach-ball-cheat-sheet.pdf" |
|
|
|
|
File.Copy (cheatSheetPath, savePath, true) |
|
|
|
|
showEndOfCommandMessage |
|
|
|
|
with |
|
|
|
|
| :? FileNotFoundException as ex -> ex.Message |
|
|
|
|
| _ as ex -> ex.Message |
|
|
|
|
|
|
|
|
|
[<ListCommand>] |
|
|
|
|
[<Parameters "none">] |
|
|
|
|
[<Description "Exits of out the program.">] |
|
|
|
@ -47,12 +59,12 @@
|
|
|
|
|
|
|
|
|
|
[<ListCommand>] |
|
|
|
|
[<Parameters |
|
|
|
|
("(image-width: int) (image-height: int) (main-colour: string)" + |
|
|
|
|
("(image-width: int) (image-height: int) (main-colour: string) " + |
|
|
|
|
"(overlay-colour: string) (overlay-type:string) (file-path: string)")>] |
|
|
|
|
[<Description |
|
|
|
|
("\nCreates an image using the values specified by the user.\n" + |
|
|
|
|
"To see a list of available colours use the 'list-colours' command.\n" + |
|
|
|
|
"For the overlay-type you can enter either 'none', 'border' or 'full'\n." + |
|
|
|
|
"For the overlay-type you can enter either 'none', 'border' or 'full.'\n" + |
|
|
|
|
"For the file path, you can enter 'desktop' to save to the desktop." + |
|
|
|
|
"Otherwise, you must specify the whole path.")>] |
|
|
|
|
[<Usage |
|
|
|
|