From 86a0766d639c310903e5f72dcd20faf4e85c4a9b Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Fri, 17 Sep 2021 23:11:11 -0600
Subject: [PATCH] Make attachmentSystem have case-insensitive extension list

---
 src/nat/systems/AttachmentSystem.kiss | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/nat/systems/AttachmentSystem.kiss b/src/nat/systems/AttachmentSystem.kiss
index 6dcc387..2fec383 100644
--- a/src/nat/systems/AttachmentSystem.kiss
+++ b/src/nat/systems/AttachmentSystem.kiss
@@ -1,12 +1,14 @@
 (load "../Lib.kiss")
 
-(defNew [&prop :Array<String> extensions
-            :AttachmentProcessor processor] 
+(defNew [:Array<String> _extensions
+            :AttachmentProcessor processor]
+    [:Array<String> extensions (for extension _extensions (extension.toLowerCase))]    
+    
     (super
         ->[archive e]
             {
                 (doFor file e.files
-                    (when !(= -1 (extensions.indexOf (file.extension)))
+                    (when !(= -1 (extensions.indexOf (.toLowerCase (file.extension))))
                         (return true)))
                 false
             }