deduplicate code

Author: borkdude

src/sci/impl/interop.cljc

@@ -123,21 +123,8 @@
             (get-in env [:imports sym]))))))
 
 (defn resolve-class-opts [ctx sym]
-  (let [env @(:env ctx)
-        class->opts (:class->opts env)
-        class-opts (or #?(:clj (get class->opts sym)
-                          :cljs (if-let [ns* (namespace sym)]
-                                  (when (identical? "js" ns*)
-                                    (get class->opts (symbol (name sym))))
-                                  (get class->opts sym)))
-                       (let [cnn (utils/current-ns-name)
-                             imports (get-in env [:namespaces cnn :imports])]
-                         (if-let [[_ v] (find imports sym)]
-                           ;; finding a nil v means the object was unmapped
-                           (get class->opts v)
-                           (when-let [v (get-in env [:imports sym])]
-                             (get class->opts v)))))]
-    class-opts))
+  (when-let [fq (fully-qualify-class ctx sym)]
+    (-> @(:env ctx) :class->opts (get fq))))
 
 (defn resolve-class [ctx sym]
   (:class (resolve-class-opts ctx sym)))