[nat] rename archiveController commands to capital names

projects/nat-archive-tool/src/test/TestMain.hx

@@ -4,9 +4,11 @@ import kiss.Kiss;
 import kiss.Prelude;
 import nat.BoolExpInterp;
 import nat.Archive;
+import nat.ArchiveController;
 import nat.Lib;
 import nat.components.*;
 import nat.systems.*;
+import uuid.Uuid;
 
 @:build(kiss.Kiss.build())
 class TestMain {}

projects/nat-archive-tool/src/test/TestMain.kiss

@@ -28,7 +28,12 @@
         [author Author
             name Name]
         (assert (= author "Rafael Krux"))
-        (assert (= name "Adventure"))))
+        (assert (= name "Adventure")))
 
-(let [wikipedia (new MediaWikiSystem "https://en.wikipedia.org/w/api.php" null null 1)]
-    ~(wikipedia.queryImageUrls (wikipedia.queryImageTitles ["Phoenix Wright"])))
+    (let [wikipedia (new MediaWikiSystem "https://en.wikipedia.org/w/api.php" null null 1)]
+        ~(wikipedia.queryImageUrls (wikipedia.queryImageTitles ["Phoenix Wright"])))
+
+    // TODO make a dummy UI for this, instead of passing null
+    (let [controller (new ArchiveController archive null)]
+        // TODO test controller
+        0))