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

save new entries

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-06-12 21:52:48 -06:00
parent 7a3f6c76b7
commit 9ac554297a
1 changed files with 2 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -20,6 +20,7 @@
(defmethod :Entry createEntry [template] (defmethod :Entry createEntry [template]
(let [e (_newEntry)] (let [e (_newEntry)]
(.prepareEntry (dictGet templates template) e) (.prepareEntry (dictGet templates template) e)
(saveEntry e)
(doFor system systems (doFor system systems
(system.checkEntryInOrOut this e)) (system.checkEntryInOrOut this e))
e)) e))
@@ -27,13 +28,7 @@
(defmethod saveEntry [:Entry e] (defmethod saveEntry [:Entry e]
(File.saveContent (File.saveContent
(Path.join [archiveDir "entries" (e.id.withExtension "json")]) (Path.join [archiveDir "entries" (e.id.withExtension "json")])
(Json.stringify e)) (Json.stringify e)))
// TODO save its components? but it's not obvious how, because it only knows the string keys of them.
// Better yet, retrieving components with mutable access should be done through a
// (withComponent...) macro that serializes the component after the block is done.
//
)
(defun :Entry _newEntry [] (defun :Entry _newEntry []
(object (object