From d367e04a35ef3268aa8fb7fbb1da8e14803ba8cb Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Wed, 29 Sep 2021 17:24:47 -0600 Subject: [PATCH] remove unnecessary withWritableEntry --- projects/nat-archive-tool/src/nat/ArchiveController.kiss | 2 ++ .../src/nat/systems/ImageAttachmentSystem.kiss | 9 ++++----- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/projects/nat-archive-tool/src/nat/ArchiveController.kiss b/projects/nat-archive-tool/src/nat/ArchiveController.kiss index a34aeec7..8a1b23e4 100644 --- a/projects/nat-archive-tool/src/nat/ArchiveController.kiss +++ b/projects/nat-archive-tool/src/nat/ArchiveController.kiss @@ -114,6 +114,8 @@ (lastCollector))) +// TODO SelectedEntry and SelectedEntries functions should be stateful and use the actual +// selected entries automatically (defMacro defCommand [name args &body body] (let [argPairs (groups (expList args) 2) diff --git a/projects/nat-archive-tool/src/nat/systems/ImageAttachmentSystem.kiss b/projects/nat-archive-tool/src/nat/systems/ImageAttachmentSystem.kiss index 6a3ad21c..96cb4d2f 100644 --- a/projects/nat-archive-tool/src/nat/systems/ImageAttachmentSystem.kiss +++ b/projects/nat-archive-tool/src/nat/systems/ImageAttachmentSystem.kiss @@ -5,8 +5,7 @@ ["jpg" "jpeg" "png"] ->[archive e imageFiles] (unless (hasComponent e Images) - (withWritableEntry archive e - (addComponent archive e Images - (object - imageFiles imageFiles - pinnedImageIndex 0)))))) \ No newline at end of file + (addComponent archive e Images + (object + imageFiles imageFiles + pinnedImageIndex 0))))) \ No newline at end of file