From 7b7477baf84fb4aac54c91e3f3ee754aba8d54a3 Mon Sep 17 00:00:00 2001
From: "OPTIMUS-PRIME\\craig" <craig@craigoates.net>
Date: Sat, 15 Sep 2018 19:26:19 +0100
Subject: [PATCH] add aliases to CLI commands.

---
 DeathSocketCLI/Commands.fs | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/DeathSocketCLI/Commands.fs b/DeathSocketCLI/Commands.fs
index 5e0ccb9..aad33ee 100644
--- a/DeathSocketCLI/Commands.fs
+++ b/DeathSocketCLI/Commands.fs
@@ -74,4 +74,20 @@
             printfn "[INFO.] Listing available colours..."
             for item in colourList do
                 printfn "%s" item.Key
-            showEndOfCommandMessage
\ No newline at end of file
+            showEndOfCommandMessage
+
+        (* ALIASES 
+        =======================================================================
+        These command-methods will not show up in the help section. Before
+        adding extra aliases, make sure the main version is as clear and
+        helpful to someone new to the program as possible. Aliases should be
+        treated as commands for experienced users and documented on the wiki,
+        hosted alongside the repository on GitHub.
+        URL: https://github.com/CraigOates/Death-Socket/wiki *)
+
+        let ad imgPath newPath = ``add-default`` imgPath newPath
+
+        let ag imgPath numRows numColumns pWidth colour newPath =
+            ``add-grid`` imgPath numRows numColumns pWidth colour newPath
+
+        let lc () =``list-colours`` ()
\ No newline at end of file