May as well add XBM and XPM

lehitoskin · Feb 13, 2017 · 44804ac · 44804ac
1 parent 7190f49
commit 44804ac
Showing 1 changed file with 13 additions and 2 deletions.
diff --git a/base.rkt b/base.rkt
@@ -56,8 +56,19 @@
 (define image-bmp (make-bitmap 50 50))
 ; directory containing the currently displayed image
 (define image-dir (make-parameter (find-system-path 'home-dir)))
-(define supported-extensions
-  '(".bmp" ".flif" ".gif" ".jpe" ".jpeg" ".JPEG" ".jpg" ".JPG" ".png" ".svg"))
+; the only extensions ivy will accept - ignores everything else
+(define supported-extensions '(".bmp"
+                               ".flif"
+                               ".gif"
+                               ".jpe"
+                               ".jpeg"
+                               ".JPEG"
+                               ".jpg"
+                               ".JPG"
+                               ".png"
+                               ".svg"
+                               ".xbm"
+                               ".xpm"))
 ; gif/flif stuff
 ; listof pict?
 (define image-lst-master empty)