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

archive addFile and attachFiles

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-08-01 23:11:11 -06:00
parent 38ed54cfc6
commit 2844adcf49
3 changed files with 20 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -4,9 +4,11 @@
[]
:Map<String,Entry> entries
(let [entryDir (joinPath archiveDir "entries")
componentDir (joinPath archiveDir "components")]
componentDir (joinPath archiveDir "components")
filesDir (joinPath archiveDir "files")]
(FileSystem.createDirectory entryDir)
(FileSystem.createDirectory componentDir)
(FileSystem.createDirectory filesDir)
(let [entryFiles (FileSystem.readDirectory entryDir)]
(for file entryFiles =>(file.withoutExtension) (the Entry (Json.parse (File.getContent (joinPath archiveDir "entries" file)))))))])