Remove all Minecraft imports to avoid remapping issues

Author: object-Object

README.md

@@ -9,3 +9,5 @@ A Clojure-based Hex Casting addon for advanced meta-evaluation. Created for HexJ
 IMPORTANT: Type hints should be **avoided** whenever possible. Clojure seems to compile them into code like `RT.classForName("net.minecraft.resources.ResourceLocation`, which fails on Fabric because it isn't remapped.
 
 I think this should be fixable using [elide-meta](https://clojure.org/reference/compilation#_compiler_options), but Clojurephant's elideMeta option doesn't seem to be working.
+
+Additionally, avoid using `:import` from remapped packages (ie. `net.minecraft`), since Clojure's implementation of `:import` also results in loading classes by name at runtime.

common/src/main/clojure/gay/object/caduceus/casting/continuation.clj

@@ -2,11 +2,7 @@
   (:require [gay.object.caduceus.component :as component])
   (:import (at.petrak.hexcasting.api HexAPI)
            (at.petrak.hexcasting.api.casting.eval.vm SpellContinuation SpellContinuation$Done SpellContinuation$NotDone)
-           (at.petrak.hexcasting.common.lib.hex HexContinuationTypes)
-           (net.minecraft ChatFormatting)
-           (net.minecraft.nbt Tag)
-           (net.minecraft.network.chat Component)
-           (net.minecraft.resources ResourceLocation)))
+           (at.petrak.hexcasting.common.lib.hex HexContinuationTypes)))
 
 (defn done? [cont]
   (instance? SpellContinuation$Done cont))
@@ -30,24 +26,25 @@
 (defn- frame-type-id [tag]
   (-> tag
       (.getString HexContinuationTypes/KEY_TYPE)
-      (ResourceLocation/tryParse)
+      (net.minecraft.resources.ResourceLocation/tryParse)
       (or (HexAPI/modLoc "evaluate"))))
 
 (defn- display-frame [tag]
   (let [type-id (str (frame-type-id tag))]
-    (Component/translatableWithFallback
+    (component/translatable-with-fallback
       (format "caduceus.tooltip.continuation.frame.%s" type-id)
       type-id)))
 
 (defn display [tag]
   (let [frames (as-> tag v
-                     (.getList v SpellContinuation/TAG_FRAME Tag/TAG_COMPOUND)
+                     (.getList v
+                               SpellContinuation/TAG_FRAME
+                               net.minecraft.nbt.Tag/TAG_COMPOUND)
                      (mapv display-frame v))]
-    (.withStyle
+    (component/red
       (if (empty? frames)
         (component/translatable "caduceus.tooltip.continuation.done")
-        (component/translatable "caduceus.tooltip.continuation.not_done" (component/join ", " frames)))
-      ChatFormatting/RED)))
+        (component/translatable "caduceus.tooltip.continuation.not_done" (component/join ", " frames))))))
 
 (gen-class
   :name gay.object.caduceus.casting.continuation.ContinuationUtils

common/src/main/clojure/gay/object/caduceus/component.clj

@@ -1,8 +1,10 @@
-(ns gay.object.caduceus.component
-  (:import (net.minecraft.network.chat Component)))
+(ns gay.object.caduceus.component)
 
 (defn translatable [key & args]
-  (Component/translatable key (object-array args)))
+  (net.minecraft.network.chat.Component/translatable key (object-array args)))
+
+(defn translatable-with-fallback [key fallback]
+  (net.minecraft.network.chat.Component/translatableWithFallback key fallback))
 
 (defn join [separator coll]
   (reduce
@@ -11,3 +13,6 @@
          (.append %2))
     (.copy (first coll))
     (rest coll)))
+
+(defn red [component]
+  (.withStyle component net.minecraft.ChatFormatting/RED))

common/src/main/clojure/gay/object/caduceus/core.clj

@@ -1,10 +1,9 @@
 (ns gay.object.caduceus.core
-  (:import (net.minecraft.resources ResourceLocation)
-           (org.apache.logging.log4j LogManager Logger)))
+  (:import (org.apache.logging.log4j LogManager)))
 
 (def ^:const MODID "caduceus")
 
 (def LOGGER (LogManager/getLogger MODID))
 
 (defn id [path]
-  (ResourceLocation/new MODID path))
+  (net.minecraft.resources.ResourceLocation/new MODID path))

fabric/src/main/clojure/gay/object/caduceus/fabric/init.clj

@@ -1,16 +1,16 @@
 (ns gay.object.caduceus.fabric.init
   (:require [gay.object.caduceus.init :as caduceus.init]
-            [gay.object.caduceus.registry :as registry])
-  (:import (net.minecraft.core Registry)
-           (net.minecraft.resources ResourceLocation)))
+            [gay.object.caduceus.registry :as registry]))
 
 (defn- init-registry [registrar]
   (let [registry (registry/get-registry registrar)]
     (registry/init
       registrar
       (fn [id value]
-        (^[Registry ResourceLocation Object]
-          Registry/register registry id value)))))
+        (net.minecraft.core.Registry/register
+          ^net.minecraft.core.Registry registry
+          ^net.minecraft.resources.ResourceLocation id
+          ^Object value)))))
 
 (gen-class
   :name gay.object.caduceus.fabric.FabricCaduceus