Also consider cljc files for namespaces-on-classpath

CHANGELOG.md

@@ -5,6 +5,7 @@
 - Complete fully-qualified classnames by their shortname prefix anywhere in the
   file (previously worked only in the `:import` section of the `ns` form).
 - Fix ' and #' being swallowed when completing vars prefixed by them.
+- [#91](https://github.com/alexander-yakushev/compliment/pull/91): Also consider cljc files for namespaces-on-classpath
 
 ### 0.3.14 (2022-07-11)
 

src/compliment/utils.clj

@@ -195,7 +195,7 @@ Note that should always have the same value, regardless of OS."
   (let [classpath (classpath)]
     (cache-last-result ::namespaces-on-classpath classpath
       (set (for [^String file (all-files-on-classpath classpath)
-                 :when (and (.endsWith file ".clj")
+                 :when (and (or (.endsWith file ".clj") (.endsWith file ".cljc"))
                             (not (.startsWith file "META-INF")))
                  :let [[_ ^String nsname] (re-matches #"[^\w]?(.+)\.clj" file)]
                  :when nsname]
@@ -208,7 +208,8 @@ Note that should always have the same value, regardless of OS."
     (cache-last-result ::project-resources classpath
       (for [path classpath
             ^String file (list-files path false)
-            :when (not (or (empty? file) (.endsWith file ".clj")
+            :when (not (or (empty? file)
+                           (.endsWith file ".clj") (.endsWith file ".cljc")
                            (.endsWith file ".jar") (.endsWith file ".class")))]
         ;; resource pathes always use "/" regardless of platform
         (.. (if (.startsWith file File/separator)