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)))))))])

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

@@ -184,4 +184,13 @@
(selectEntries (filter archive.entries ->e (tagsMatch archive e tagsBoolExp))))
(defCommand selectByComponents [componentsBoolExp (Text null)]
(selectEntries (filter archive.entries ->e (componentsMatch e componentsBoolExp)))))
(selectEntries (filter archive.entries ->e (componentsMatch e componentsBoolExp))))
(defCommand attachFiles [entries (SelectedEntries 1 null)
// TODO add File and Files as an argument type for commands, ArchiveUI
// TODO make tkinter file browser externs and use tkinter as the file picking mechanism for CLI
files (VarText null)]
(doFor e entries
(doFor file files
(withWritableEntry archive e (addFile archive e file))))
entries))

7
projects/nat-archive-tool/src/nat/Lib.kiss
View File

@@ -51,6 +51,13 @@
,@saveList
,retValSymbol)))
(function addFile [:Archive archive :Entry e :String file &opt leaveOriginalCopy]
(let [pathWithoutDir (haxe.io.Path.withoutDirectory file)]
(unless !(= -1 (e.files.indexOf pathWithoutDir))
((if leaveOriginalCopy sys.io.File.copy sys.FileSystem.rename)
file (joinPath archive.archiveDir "files" pathWithoutDir))
(e.files.push pathWithoutDir))))
(defMacro withWritableEntry [archive e &body body]
(let [retValSymbol
(symbol)]