From 3b8dbb9bc483cecac663e0214180805b1453d6e2 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Tue, 29 Jun 2021 14:23:21 -0600 Subject: [PATCH] [nat] printComponent --- src/nat/Archive.kiss | 5 ++++- src/nat/ArchiveController.kiss | 4 ++++ 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/src/nat/Archive.kiss b/src/nat/Archive.kiss index 84facf9..4a1ab7c 100644 --- a/src/nat/Archive.kiss +++ b/src/nat/Archive.kiss @@ -36,12 +36,15 @@ (Path.join [archiveDir "entries" (e.id.withExtension "json")]) (Json.stringify e))) +(defmethod componentData [:Entry e :String componentType] + (haxe.Json.parse (File.getContent (haxe.io.Path.join [archiveDir "components" "$(dictGet e.components componentType).json"])))) + (defmethod fullData [:Entry e] (object id e.id components (for =>type id e.components - =>type (haxe.Json.parse (File.getContent (haxe.io.Path.join [archiveDir "components" "$(dictGet e.components type).json"])))) + =>type (componentData e type)) files e.files)) diff --git a/src/nat/ArchiveController.kiss b/src/nat/ArchiveController.kiss index fd660cb..f6ea41d 100644 --- a/src/nat/ArchiveController.kiss +++ b/src/nat/ArchiveController.kiss @@ -148,6 +148,10 @@ (defcommand printSelectedEntries [entries (SelectedEntries null null)] (doFor e entries (ui.displayMessage (archive.fullString e))) []) + + (defcommand printComponent [entries (SelectedEntries null null) + componentType (Text null)] + (doFor e entries (ui.displayMessage (archive.componentData e componentType))) []) (defcommand createEntry [name (Text null)] [(archive.createEntry ->e