Make attachmentSystem have case-insensitive extension list

2021-09-17 23:11:11 -06:00
parent 96d6acf48f
commit 61885f4bba
1 changed files with 5 additions and 3 deletions
--- a/projects/nat-archive-tool/src/nat/systems/AttachmentSystem.kiss
+++ b/projects/nat-archive-tool/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
            }