Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Already on GitHub? Sign in to your account

Support no extention file and directory #1

Merged
merged 1 commit into from Mar 20, 2012
Jump to file or symbol
Failed to load files and symbols.
+2 −1
Split
View
@@ -103,5 +103,6 @@
(let [exts-set (set (map name exts))]
(fn [f]
(let [fname (.getName f)
- cur (subs fname (inc (.lastIndexOf fname ".")))]
+ idx (.lastIndexOf fname ".")
+ cur (if-not (neg? idx) (subs fname (inc idx)))]
(exts-set cur)))))