[Icons] Correct the determination of icons' types.

Fixes #1061
Alexander-Miller · Sep 25, 2023 · 967916c · 967916c
1 parent 01a3bcd
commit 967916c
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/elisp/treemacs-icons.el b/src/elisp/treemacs-icons.el
@@ -197,8 +197,11 @@ Necessary since root icons are not rectangular."
          (treemacs--root-icon-size-adjust width height))
        (if (and (integerp treemacs--icon-size) (image-type-available-p 'imagemagick))
            (create-image ,file-path 'imagemagick nil :ascent 'center :width width :height height)
-         (create-image ,file-path (intern (treemacs--file-extension ,file-path)) nil
-                       :ascent 'center :width width :height height))))))
+         (create-image
+          ,file-path
+          (intern (treemacs--file-extension (treemacs--filename ,file-path)))
+          nil
+          :ascent 'center :width width :height height))))))
 
 (define-inline treemacs--create-icon-strings (file fallback)
   "Create propertized icon strings for a given FILE image and TUI FALLBACK."