NAT archiveController handle running commands by key

projects/nat-archive-tool/src/nat/ArchiveController.kiss

@@ -95,7 +95,13 @@
     (lambda :Void []
         (_collectAndValidateArg arg ->:Void [:Dynamic argValue] {(collectedArgs.push argValue) (lastCollector)})))
 
-(method :Void runCommand [:Command command]
+(method :Void tryRunCommand [:String commandName]
+    (let [lowerCommandName (commandName.toLowerCase)]
+        (if (commands.exists lowerCommandName)
+                (_runCommand (dictGet commands lowerCommandName))
+            (ui.displayMessage "$commandName is not a valid command"))))
+
+(method :Void _runCommand [:Command command]
     (let [collectedArgs
                 []
             &mut lastCollector
@@ -126,7 +132,12 @@
                     `(object name ,(symbolName name) type ,type))]
         `{
             (method ,name [,@methodArgs] ,@body)
-            (dictSet commands ,(symbolName name) (object args [,@commandArgs] handler (the Function ,name)))}))
+            // Preserve the capitalization of the command name for pretty help message
+            (commandNames.push ,(symbolName name))
+            // Store the command name without capitalization for forgiving call conventions
+            (dictSet commands ,(ReaderExp.StrExp (.toLowerCase (symbolNameValue name))) (object args [,@commandArgs] handler (the Function ,name)))}))
+
+(var :Array<String> commandNames [])
 
 (defNew [&prop :Archive archive
             &prop :ArchiveUI ui]

projects/nat-archive-tool/src/nat/CLI.kiss

@@ -10,9 +10,7 @@
         (Sys.print ">> ")
         (let [command
                     (.trim (.toString (.readLine (Sys.stdin))))]
-                (if (controller.commands.exists command)
-                        (controller.runCommand (dictGet controller.commands command))
-                    (Sys.println "$command is not a valid command")))))
+                (controller.tryRunCommand command))))
 
 (defNew [])