kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

[nat] printComponent

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-06-29 14:23:21 -06:00
parent 30a98de38b
commit 4d38915ab4
2 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
projects/nat-archive-tool/src/nat/Archive.kiss
View File

@@ -36,12 +36,15 @@
(Path.join [archiveDir "entries" (e.id.withExtension "json")]) (Path.join [archiveDir "entries" (e.id.withExtension "json")])
(Json.stringify e))) (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] (defmethod fullData [:Entry e]
(object (object
id e.id id e.id
components components
(for =>type id e.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 files
e.files)) e.files))

4
projects/nat-archive-tool/src/nat/ArchiveController.kiss
View File

@@ -148,6 +148,10 @@
(defcommand printSelectedEntries [entries (SelectedEntries null null)] (defcommand printSelectedEntries [entries (SelectedEntries null null)]
(doFor e entries (ui.displayMessage (archive.fullString e))) []) (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)] (defcommand createEntry [name (Text null)]
[(archive.createEntry ->e [(archive.createEntry ->e