From 38620f936aacb3f24fea5f838bd977dbf582ba36 Mon Sep 17 00:00:00 2001
From: Weathercold <weathercold.scr@gmail.com>
Date: Sat, 11 Feb 2023 15:29:02 -0500
Subject: [PATCH] translation & repl & fixes

---
 .clj-kondo/config.edn                         |   4 +-
 .idea/extra-logging.iml                       |   7 +-
 .idea/misc.xml                                |   2 +-
 .../{Android_build.xml => Android.xml}        |   4 +-
 .idea/runConfigurations/Desktop.xml           |  17 +++
 .idea/runConfigurations/Desktop_build.xml     |  12 ---
 .idea/runConfigurations/Foo.xml               |  19 +---
 .idea/runConfigurations/REPL.xml              |  14 ++-
 .idea/runConfigurations/Vanilla.xml           |  19 +---
 assets/bundles/bundle.properties              |  23 +++-
 flake.nix                                     |  10 +-
 project.clj                                   |  15 ++-
 src/clojure/logging/core.clj                  |  34 ++++++
 .../core/{events.clj => events_log.clj}       |   2 +-
 src/clojure/logging/core/log_handler.clj      |  57 +++++-----
 src/clojure/logging/core/repl.clj             |  27 +++++
 src/clojure/logging/core/settings.clj         |  72 ++++++++-----
 src/clojure/logging/core/translating.clj      | 102 +++++++++++++++---
 .../core/translating/libretranslate.clj       |  74 +++++++++++++
 src/clojure/logging/main.clj                  |  26 -----
 .../ui/fragments/ExtraChatFragment.clj        |   4 -
 .../logging/ui/fragments/chat_fragment.clj    |  40 +++++++
 src/clojure/logging/util/color.clj            |  53 ++++-----
 src/clojure/logging/util/lambdas.clj          |  11 ++
 src/clojure/logging/util/macros.clj           |  21 +++-
 src/clojure/logging/vars.clj                  |   8 ++
 src/java/logging/CljLoader.java               |  12 +--
 27 files changed, 485 insertions(+), 204 deletions(-)
 rename .idea/runConfigurations/{Android_build.xml => Android.xml} (82%)
 create mode 100644 .idea/runConfigurations/Desktop.xml
 delete mode 100644 .idea/runConfigurations/Desktop_build.xml
 create mode 100644 src/clojure/logging/core.clj
 rename src/clojure/logging/core/{events.clj => events_log.clj} (98%)
 create mode 100644 src/clojure/logging/core/repl.clj
 create mode 100644 src/clojure/logging/core/translating/libretranslate.clj
 delete mode 100644 src/clojure/logging/main.clj
 delete mode 100644 src/clojure/logging/ui/fragments/ExtraChatFragment.clj
 create mode 100644 src/clojure/logging/ui/fragments/chat_fragment.clj
 create mode 100644 src/clojure/logging/vars.clj

diff --git a/.clj-kondo/config.edn b/.clj-kondo/config.edn
index ec532a9..0d89234 100644
--- a/.clj-kondo/config.edn
+++ b/.clj-kondo/config.edn
@@ -1 +1,3 @@
-{:lint-as {logging.core.setting/defsetting clojure.core/defonce}}
+{:lint-as {logging.core.setting/defsetting clojure.core/defonce
+           logging.util.macros/if-let'     clojure.core/let
+           logging.util.macros/when-let'   clojure.core/let}}
diff --git a/.idea/extra-logging.iml b/.idea/extra-logging.iml
index 8460777..ed369ca 100644
--- a/.idea/extra-logging.iml
+++ b/.idea/extra-logging.iml
@@ -2,7 +2,7 @@
 <module type="JAVA_MODULE" version="4">
   <component name="BuildSystem">
     <option name="buildSystemId" value="LEININGEN" />
-    <option name="displayName" value="extra-logging:2.0.0-alpha" />
+    <option name="displayName" value="extra-logging:2.0.0-beta" />
   </component>
   <component name="NewModuleRootManager">
     <output url="file://$MODULE_DIR$/target/classes" />
@@ -35,12 +35,13 @@
     <orderEntry type="library" name="Leiningen: commons-codec:1.15" level="project" />
     <orderEntry type="library" name="Leiningen: commons-io:2.8.0" level="project" />
     <orderEntry type="library" name="Leiningen: commons-lang:2.6" level="project" />
+    <orderEntry type="library" name="Leiningen: http-kit:2.7.0-alpha1" level="project" />
     <orderEntry type="library" name="Leiningen: javax.inject:1" level="project" />
     <orderEntry type="library" name="Leiningen: leiningen-core:2.10.0" level="project" />
     <orderEntry type="library" name="Leiningen: leiningen:2.10.0" level="project" />
     <orderEntry type="library" name="Leiningen: net.cgrand/parsley:0.9.3" level="project" />
     <orderEntry type="library" name="Leiningen: net.cgrand/regex:1.1.0" level="project" />
-    <orderEntry type="library" name="Leiningen: nrepl:1.0.0" level="project" />
+    <orderEntry type="library" name="Leiningen: nrepl:1.1.0-alpha1" level="project" />
     <orderEntry type="library" name="Leiningen: org.apache.commons/commons-lang3:3.8.1" level="project" />
     <orderEntry type="library" name="Leiningen: org.apache.httpcomponents/httpclient:4.5.13" level="project" />
     <orderEntry type="library" name="Leiningen: org.apache.httpcomponents/httpcore:4.4.15" level="project" />
@@ -65,6 +66,7 @@
     <orderEntry type="library" name="Leiningen: org.clojure/clojure:1.11.1" level="project" />
     <orderEntry type="library" name="Leiningen: org.clojure/core.specs.alpha:0.2.62" level="project" />
     <orderEntry type="library" name="Leiningen: org.clojure/data.codec:0.1.0" level="project" />
+    <orderEntry type="library" name="Leiningen: org.clojure/data.json:2.4.0" level="project" />
     <orderEntry type="library" name="Leiningen: org.clojure/data.xml:0.2.0-alpha6" level="project" />
     <orderEntry type="library" name="Leiningen: org.clojure/spec.alpha:0.3.218" level="project" />
     <orderEntry type="library" name="Leiningen: org.clojure/tools.macro:0.1.5" level="project" />
@@ -72,6 +74,7 @@
     <orderEntry type="library" name="Leiningen: org.codehaus.plexus/plexus-interpolation:1.25" level="project" />
     <orderEntry type="library" name="Leiningen: org.codehaus.plexus/plexus-utils:3.3.0" level="project" />
     <orderEntry type="library" name="Leiningen: org.flatland/classlojure:0.7.1" level="project" />
+    <orderEntry type="library" name="Leiningen: org.flatland/ordered:1.15.10" level="project" />
     <orderEntry type="library" name="Leiningen: org.lz4/lz4-java:1.8.0" level="project" />
     <orderEntry type="library" name="Leiningen: org.nrepl/incomplete:0.1.0" level="project" />
     <orderEntry type="library" name="Leiningen: org.slf4j/jcl-over-slf4j:1.7.32" level="project" />
diff --git a/.idea/misc.xml b/.idea/misc.xml
index afed0e6..f47b10f 100644
--- a/.idea/misc.xml
+++ b/.idea/misc.xml
@@ -10,5 +10,5 @@
       </set>
     </option>
   </component>
-  <component name="ProjectRootManager" version="2" project-jdk-name="17" project-jdk-type="JavaSDK" />
+  <component name="ProjectRootManager" version="2" languageLevel="JDK_17" default="true" project-jdk-name="jbr-17" project-jdk-type="JavaSDK" />
 </project>
\ No newline at end of file
diff --git a/.idea/runConfigurations/Android_build.xml b/.idea/runConfigurations/Android.xml
similarity index 82%
rename from .idea/runConfigurations/Android_build.xml
rename to .idea/runConfigurations/Android.xml
index e32b4ac..00fd6a3 100644
--- a/.idea/runConfigurations/Android_build.xml
+++ b/.idea/runConfigurations/Android.xml
@@ -1,6 +1,6 @@
 <component name="ProjectRunConfigurationManager">
-  <configuration default="false" name="Android build" type="ShConfigurationType">
-    <option name="SCRIPT_TEXT" value="lein uberdex" />
+  <configuration default="false" name="Android" type="ShConfigurationType">
+    <option name="SCRIPT_TEXT" value="lein do uberdex, copy" />
     <option name="INDEPENDENT_SCRIPT_PATH" value="true" />
     <option name="SCRIPT_PATH" value="" />
     <option name="SCRIPT_OPTIONS" value="" />
diff --git a/.idea/runConfigurations/Desktop.xml b/.idea/runConfigurations/Desktop.xml
new file mode 100644
index 0000000..5112f79
--- /dev/null
+++ b/.idea/runConfigurations/Desktop.xml
@@ -0,0 +1,17 @@
+<component name="ProjectRunConfigurationManager">
+  <configuration default="false" name="Desktop" type="ShConfigurationType">
+    <option name="SCRIPT_TEXT" value="lein do uberjar, copy" />
+    <option name="INDEPENDENT_SCRIPT_PATH" value="true" />
+    <option name="SCRIPT_PATH" value="" />
+    <option name="SCRIPT_OPTIONS" value="" />
+    <option name="INDEPENDENT_SCRIPT_WORKING_DIRECTORY" value="true" />
+    <option name="SCRIPT_WORKING_DIRECTORY" value="$PROJECT_DIR$" />
+    <option name="INDEPENDENT_INTERPRETER_PATH" value="true" />
+    <option name="INTERPRETER_PATH" value="fish" />
+    <option name="INTERPRETER_OPTIONS" value="" />
+    <option name="EXECUTE_IN_TERMINAL" value="false" />
+    <option name="EXECUTE_SCRIPT_FILE" value="false" />
+    <envs />
+    <method v="2" />
+  </configuration>
+</component>
\ No newline at end of file
diff --git a/.idea/runConfigurations/Desktop_build.xml b/.idea/runConfigurations/Desktop_build.xml
deleted file mode 100644
index 4fdd17f..0000000
--- a/.idea/runConfigurations/Desktop_build.xml
+++ /dev/null
@@ -1,12 +0,0 @@
-<component name="ProjectRunConfigurationManager">
-  <configuration default="false" name="Desktop build" type="LeiningenRunConfiguration" factoryName="Leiningen" singleton="true">
-    <option name="aliases" />
-    <option name="execution" value="LEININGEN" />
-    <module name="extra-logging" />
-    <option name="profiles" />
-    <option name="PROGRAM_PARAMETERS" value="uberjar" />
-    <shortenClasspath name="ARGS_FILE" />
-    <option name="WORKING_DIRECTORY" value="$PROJECT_DIR$" />
-    <method v="2" />
-  </configuration>
-</component>
\ No newline at end of file
diff --git a/.idea/runConfigurations/Foo.xml b/.idea/runConfigurations/Foo.xml
index 748c4fa..cff8e50 100644
--- a/.idea/runConfigurations/Foo.xml
+++ b/.idea/runConfigurations/Foo.xml
@@ -1,19 +1,8 @@
 <component name="ProjectRunConfigurationManager">
-  <configuration default="false" name="Foo" type="ShConfigurationType">
-    <option name="SCRIPT_TEXT" value="export MINDUSTRY_JAR=$PROJECT_DIR$/../mindustry-client/desktop/build/libs/Mindustry.jar; lein run-dex" />
-    <option name="INDEPENDENT_SCRIPT_PATH" value="true" />
-    <option name="SCRIPT_PATH" value="" />
-    <option name="SCRIPT_OPTIONS" value="" />
-    <option name="INDEPENDENT_SCRIPT_WORKING_DIRECTORY" value="true" />
-    <option name="SCRIPT_WORKING_DIRECTORY" value="$PROJECT_DIR$" />
-    <option name="INDEPENDENT_INTERPRETER_PATH" value="true" />
-    <option name="INTERPRETER_PATH" value="" />
-    <option name="INTERPRETER_OPTIONS" value="" />
-    <option name="EXECUTE_IN_TERMINAL" value="false" />
-    <option name="EXECUTE_SCRIPT_FILE" value="false" />
-    <envs>
-      <env name="MINDUSTRY_JAR" value="$PROJECT_DIR$/../mindustry-client/desktop/build/libs/Mindustry.jar" />
-    </envs>
+  <configuration default="false" name="Foo" type="JarApplication">
+    <option name="JAR_PATH" value="$PROJECT_DIR$/../mindustry-client/desktop/build/libs/Mindustry.jar" />
+    <option name="WORKING_DIRECTORY" value="$PROJECT_DIR$" />
+    <option name="ALTERNATIVE_JRE_PATH" />
     <method v="2" />
   </configuration>
 </component>
\ No newline at end of file
diff --git a/.idea/runConfigurations/REPL.xml b/.idea/runConfigurations/REPL.xml
index b245f45..27094f6 100644
--- a/.idea/runConfigurations/REPL.xml
+++ b/.idea/runConfigurations/REPL.xml
@@ -1,15 +1,13 @@
 <component name="ProjectRunConfigurationManager">
-  <configuration default="false" name="REPL" type="ClojureREPL" factoryName="Local" activateToolWindowBeforeRun="false">
+  <configuration default="false" name="REPL" type="ClojureREPL" factoryName="Remote" activateToolWindowBeforeRun="false" singleton="false">
     <module name="extra-logging" />
     <setting name="displayName" value="REPL" />
+    <setting name="host" value="127.0.0.1" />
+    <setting name="port" value="7888" />
     <setting name="replType" value="NREPL" />
-    <setting name="execution" value="LEININGEN" />
-    <setting name="jvmArgs" value="" />
-    <setting name="parameters" value="" />
-    <setting name="workingDir" value="$PROJECT_DIR$" />
-    <setting name="profiles" value="" />
-    <setting name="aliases" value="" />
-    <shortenClasspath name="ARGS_FILE" />
+    <setting name="configType" value="SPECIFY" />
+    <setting name="replPortFileType" value="STANDARD" />
+    <setting name="customPortFile" value="" />
     <setting name="fixLineNumbers" value="false" />
     <setting name="focusEditor" value="false" />
     <method v="2" />
diff --git a/.idea/runConfigurations/Vanilla.xml b/.idea/runConfigurations/Vanilla.xml
index fa5c59c..8e6ac9f 100644
--- a/.idea/runConfigurations/Vanilla.xml
+++ b/.idea/runConfigurations/Vanilla.xml
@@ -1,19 +1,8 @@
 <component name="ProjectRunConfigurationManager">
-  <configuration default="false" name="Vanilla" type="ShConfigurationType">
-    <option name="SCRIPT_TEXT" value="export MINDUSTRY_JAR=$PROJECT_DIR$/../Mindustry/desktop/build/libs/Mindustry.jar; lein run-dex" />
-    <option name="INDEPENDENT_SCRIPT_PATH" value="true" />
-    <option name="SCRIPT_PATH" value="" />
-    <option name="SCRIPT_OPTIONS" value="" />
-    <option name="INDEPENDENT_SCRIPT_WORKING_DIRECTORY" value="true" />
-    <option name="SCRIPT_WORKING_DIRECTORY" value="$PROJECT_DIR$" />
-    <option name="INDEPENDENT_INTERPRETER_PATH" value="true" />
-    <option name="INTERPRETER_PATH" value="" />
-    <option name="INTERPRETER_OPTIONS" value="" />
-    <option name="EXECUTE_IN_TERMINAL" value="false" />
-    <option name="EXECUTE_SCRIPT_FILE" value="false" />
-    <envs>
-      <env name="MINDUSTRY_JAR" value="$PROJECT_DIR$/../Mindustry/desktop/build/libs/Mindustry.jar" />
-    </envs>
+  <configuration default="false" name="Vanilla" type="JarApplication">
+    <option name="JAR_PATH" value="$PROJECT_DIR$/../Mindustry/desktop/build/libs/Mindustry.jar" />
+    <option name="WORKING_DIRECTORY" value="$PROJECT_DIR$" />
+    <option name="ALTERNATIVE_JRE_PATH" />
     <method v="2" />
   </configuration>
 </component>
\ No newline at end of file
diff --git a/assets/bundles/bundle.properties b/assets/bundles/bundle.properties
index 1e7f639..b14b2bf 100644
--- a/assets/bundles/bundle.properties
+++ b/assets/bundles/bundle.properties
@@ -1,15 +1,18 @@
 # suppress inspection "UnusedProperty" for whole file
 
 extra-logging.displayname = Extra Logging
-extra-logging.basicSettings = Basic Settings
-extra-logging.advancedSettings = Advanced Settings
-extra-logging.footranslation = Translation is disabled because Foo has its own implementation (yes, also by me). Use that instead.
+extra-logging.author = [royal]Weather[][white]cold[]
+extra-logging.footranslation = Translation is disabled because you have enabled Foo's implementation (yes, also by me). You can only enable one at the same time.
 extra-logging.headlesstranslation = Translation doesn't work in headless mode.
 
-extra-logging.command.tl.description = Translate the message to the target language
+extra-logging.command.tl.description = \
+With zero arity, translates last message in chat.\n\
+With one arity [message], translates [lightgray]message[] to English.\n\
+With two arity [lang] [message], translates [lightgray]message[] to the language whose code is [lightgray]lang[].
 
 category.extra-meta = Meta
 setting.extra-enablemetadebugging.name = Enable meta debugging
+setting.extra-enablemetadebugging.description = You might want to disable this as this mod's debug messages are pretty verbose.
 setting.extra-metacolor.name = Meta color
 
 category.extra-logging = Logging
@@ -30,12 +33,22 @@ $l = Level\n\
 $m = Message
 setting.extra-timeformat.name = Time format
 
+category.extra-repl = Clojure REPL
+setting.extra-enablerepl.name = Enable REPL
+setting.extra-enablerepl.description = \
+Run a Clojure REPL using nREPL.\n\
+REPL stands for read-eval-print-loop. It evaluates code from input, similar to the built-in js console.\n\
+Currently, you need a client like Cursive or Calva to connect.\n\
+Requires restart
+setting.extra-repladdress.name = Server address
+setting.extra-replport.name = Server port
+
 category.extra-eventlogging = Event Logging
 setting.extra-enableeventlogging.name = Enable event logging
 setting.extra-enableeventlogging.description = Requires restart
 setting.extra-listeningevents.name = Listening events
+setting.extra-listeningevents.description = Requires restart
 setting.extra-eventloglevel.name = Event log level
 
 category.extra-translation = Translation
 setting.extra-enabletranslation.name = Enable chat translation
-setting.extra-enabletranslation.description = Requires restart
diff --git a/flake.nix b/flake.nix
index cb8bdab..b2ae32c 100644
--- a/flake.nix
+++ b/flake.nix
@@ -14,10 +14,10 @@
     let
       android-sdk = android.sdk.x86_64-linux (sdkPkgs: with sdkPkgs; [
         cmdline-tools-latest
-        build-tools-32-0-0
+        build-tools-33-0-1
         emulator
-        # platform-tools
-        platforms-android-32
+        platform-tools
+        platforms-android-33
       ]);
     in
     {
@@ -31,7 +31,9 @@
         shellHook = ''
           export JAVA_HOME=${temurin-bin} \
                  ANDROID_SDK_ROOT=${android-sdk}/share/android-sdk \
-                 PATH=$JAVA_HOME/bin:$ANDROID_SDK_ROOT/build-tools/32.0.0:$PATH
+                 PATH=$JAVA_HOME/bin:$ANDROID_SDK_ROOT/build-tools/33.0.1:$PATH
+          mkdir ~/Android 2>/dev/null
+          ln -snf $ANDROID_SDK_ROOT ~/Android/Sdk
         '';
       };
     };
diff --git a/project.clj b/project.clj
index 828bd41..9fb4c25 100644
--- a/project.clj
+++ b/project.clj
@@ -1,12 +1,17 @@
-(defproject extra-logging "2.0.0-alpha"
+(defproject extra-logging "2.0.0-beta"
   :description "Extra Logging"
   :url "http://github.com/Weathercold/extra-logging"
   :license {:name "GPL-3.0-or-later"
             :url  "https://www.gnu.org/licenses/gpl-3.0.txt"}
 
   :repositories [["jitpack" "https://www.jitpack.io"]]
-  :dependencies [[org.clojure/clojure "1.11.1"]]
-  :profiles {:provided {:dependencies [[com.github.Anuken.MindustryJitpack/core "v141.2"]
+  :dependencies [[org.clojure/clojure "1.11.1"]
+                 [org.clojure/data.json "2.4.0"]
+                 [org.flatland/ordered "1.15.10"]
+                 [http-kit "2.7.0-alpha1"]
+                 [nrepl "1.1.0-alpha1"]]
+  :profiles {:user     {:plugins [[lein-kibit "0.1.8"]]}
+             :provided {:dependencies [[com.github.Anuken.MindustryJitpack/core "v141.2"]
                                        [com.github.Anuken.Arc/arc-core "v141.2"]
                                        ;; This is for task linting, you can remove this
                                        [leiningen "2.10.0"]]}}
@@ -31,5 +36,5 @@
   :aot :all
   :omit-source true)
 
-  ;; Uncomment for JIT
-  ;;:jar-exclusions [#"\.java"])
+;; Uncomment for JIT
+;;:jar-exclusions [#"\.java"])
diff --git a/src/clojure/logging/core.clj b/src/clojure/logging/core.clj
new file mode 100644
index 0000000..408f587
--- /dev/null
+++ b/src/clojure/logging/core.clj
@@ -0,0 +1,34 @@
+(ns logging.core
+  (:require (logging.core [events-log :as events-log]
+                          [log-handler :as log-handler]
+                          [repl :as repl]
+                          [settings :as settings]
+                          [translating :as tl])
+            [logging.ui.fragments.chat-fragment :as chat-fragment]
+            [logging.util.lambdas :refer [cons1]]
+            [logging.util.log :refer [debug]])
+  (:import (arc Events)
+           (arc.util CommandHandler)
+           (mindustry.game EventType$DisposeEvent)))
+
+(defn -main []
+  (settings/refresh!)
+  (log-handler/-main)
+  (debug "Creating mod")
+  (repl/-main)
+  (events-log/-main)
+  (Events/on EventType$DisposeEvent (cons1 (fn [_] (shutdown-agents)))))
+
+(defn -init []
+  (debug "Initializing")
+  (settings/-init)
+  (tl/-init)
+  (chat-fragment/-init))
+
+(defn -load-content [] (debug "Loading content"))
+
+(defn -register-client-commands [^CommandHandler handler]
+  (debug "Registering commands")
+  (tl/-register-client-commands handler))
+
+(defn -register-server-commands [^CommandHandler _] (debug "Registering commands"))
diff --git a/src/clojure/logging/core/events.clj b/src/clojure/logging/core/events_log.clj
similarity index 98%
rename from src/clojure/logging/core/events.clj
rename to src/clojure/logging/core/events_log.clj
index a7c66e6..b8b9ab9 100644
--- a/src/clojure/logging/core/events.clj
+++ b/src/clojure/logging/core/events_log.clj
@@ -1,4 +1,4 @@
-(ns logging.core.events
+(ns logging.core.events-log
   (:require [clojure.string :as str]
             [logging.core.setting :refer [defsetting]]
             [logging.util.lambdas :refer [cons1]]
diff --git a/src/clojure/logging/core/log_handler.clj b/src/clojure/logging/core/log_handler.clj
index bb81bcf..93f795a 100644
--- a/src/clojure/logging/core/log_handler.clj
+++ b/src/clojure/logging/core/log_handler.clj
@@ -10,7 +10,7 @@
            (java.time LocalTime)
            (java.time.format DateTimeFormatter)
            (mindustry Vars)
-           (mindustry.game EventType$ClientLoadEvent)))
+           (mindustry.game EventType$ClientLoadEvent EventType$FileTreeInitEvent)))
 
 (def level->code (zipmap (Log$LogLevel/values)
                          ["&lc" "&lb" "&ly" "&lr" "&lw"]))
@@ -18,9 +18,9 @@
                         ["[green]" "[royal]" "[yellow]" "[scarlet]" "[lightgray]"]))
 (def level->icon (zipmap (Log$LogLevel/values)
                          ["D", "I", "W", "E", "/"]))
-
 (def client-loaded (ref false))
 (def log-buffer (ref [] :validator #(or (= @client-loaded false) (empty? %))))
+
 (defsetting log-level "extra-loglevel" 0 #(nth (Log$LogLevel/values) %))
 (defsetting colored-terminal "extra-coloredterminal" true)
 (defsetting terminal-format "extra-terminalformat" "&lw[$t]&fr &fb$L[$l]&fr $m&fr")
@@ -35,32 +35,35 @@
                        (cons1 (fn [_] (err "Time format invalid" e)))))
           DateTimeFormatter/ISO_LOCAL_TIME)))
 
-(defn -main []
-  (set! Log/logger
-        (reify Log$LogHandler
-          (log [_ lvl s]
-            (let [timestamp (.format ^DateTimeFormatter @time-formatter (LocalTime/now))
-                  term-msg  (-> @terminal-format
-                                (str/replace "$t" timestamp)
-                                (str/replace "$L" (level->code lvl))
-                                (str/replace "$l" (level->icon lvl))
-                                (str/replace "$m" s)
-                                (#(if @colored-terminal
-                                    (-> % color/str-code->escseq color/str-tag->escseq)
-                                    (color/remove-colors %))))
-                  cons-msg  (-> @console-format
-                                (str/replace "$t" timestamp)
-                                (str/replace "$L" (level->tag lvl))
-                                (str/replace "$l" (level->icon lvl))
-                                (str/replace "$m" s)
-                                color/str-escseq->tag
-                                color/str-code->tag)]
-              (println term-msg)
-              (when-not Vars/headless
-                (if @client-loaded
-                  (.. Vars/ui -consolefrag (addMessage cons-msg))
-                  (dosync (alter log-buffer conj cons-msg))))))))
+(def instance
+  (reify Log$LogHandler
+    (log [_ lvl s]
+      (let [timestamp (.format ^DateTimeFormatter @time-formatter (LocalTime/now))
+            term-msg  (-> @terminal-format
+                          (str/replace "$t" timestamp)
+                          (str/replace "$L" (level->code lvl))
+                          (str/replace "$l" (level->icon lvl))
+                          (str/replace "$m" s)
+                          (#(if @colored-terminal
+                              (-> % color/str-code->escseq color/str-tag->escseq)
+                              (color/remove-colors %))))
+            cons-msg  (-> @console-format
+                          (str/replace "$t" timestamp)
+                          (str/replace "$L" (level->tag lvl))
+                          (str/replace "$l" (level->icon lvl))
+                          (str/replace "$m" s)
+                          color/str-escseq->tag
+                          color/str-code->tag)]
+        (println term-msg)
+        (when-not Vars/headless
+          (if @client-loaded
+            (.. Vars/ui -consolefrag (addMessage cons-msg))
+            (dosync (alter log-buffer conj cons-msg))))))))
 
+(defn -main []
+  (set! Log/logger instance)
+  (Events/on EventType$FileTreeInitEvent
+             (cons1 (fn [_] (set! Log/logger instance))))
   (Events/on EventType$ClientLoadEvent
              (cons1 (fn [_]
                       (run! #(.. Vars/ui -consolefrag (addMessage %))
diff --git a/src/clojure/logging/core/repl.clj b/src/clojure/logging/core/repl.clj
new file mode 100644
index 0000000..b5fbdf2
--- /dev/null
+++ b/src/clojure/logging/core/repl.clj
@@ -0,0 +1,27 @@
+(ns logging.core.repl
+  (:require [logging.core.setting :refer [defsetting]]
+            [logging.util.lambdas :refer [cons1]]
+            [logging.util.log :refer [err info]]
+            [nrepl.core :as nrepl]
+            [nrepl.server :as nrepls])
+  (:import (arc Events)
+           (mindustry.game EventType$DisposeEvent)))
+
+(defsetting enable "extra-enablerepl" false)
+(defsetting address "extra-repladdress" "127.0.0.1")
+(defsetting port "extra-replport" "7888"
+  #(try (Integer/parseInt %)
+        (catch NumberFormatException e
+          (err "Server port must be an integer" e) ; FIXME
+          7888)))
+
+(def server (atom nil))
+(def client (delay (nrepl/client @server 1000)))
+
+(defn eval-str [s] (nrepl/response-values (nrepl/message @client {:op "eval" :code s})))
+
+(defn -main []
+  (when @enable
+    (reset! server (nrepls/start-server :bind @address :port @port))
+    (info "Started REPL on @:@" @address @port)
+    (Events/on EventType$DisposeEvent (cons1 (fn [_] (nrepls/stop-server @server))))))
diff --git a/src/clojure/logging/core/settings.clj b/src/clojure/logging/core/settings.clj
index 49efea8..db2b0b4 100644
--- a/src/clojure/logging/core/settings.clj
+++ b/src/clojure/logging/core/settings.clj
@@ -3,10 +3,11 @@
    Note that although all the vars are thread-safe, this mod is largely
    single-threaded like the game itself, so thread-safety is not really a
    concern. (why did I use refs then)"
-  (:require (logging.core [events :as events]
-                          [log-handler :as log-h]
+  (:require (logging.core [events-log :as events-log]
+                          [log-handler :as log-handler]
+                          [repl :as repl]
                           [setting :refer [set-setting]]
-                          [translating :as transl])
+                          [translating :as tl])
             (logging.util [lambdas :refer [cons1 s-proc]]
                           [log :as log]))
   (:import (arc Core)
@@ -17,14 +18,17 @@
            (mindustry.ui.dialogs SettingsMenuDialog$SettingsTable
                                  SettingsMenuDialog$SettingsTable$Setting)))
 
+(defn- category ^SettingsMenuDialog$SettingsTable$Setting [s]
+  (proxy [SettingsMenuDialog$SettingsTable$Setting] [s]
+    (add [^SettingsMenuDialog$SettingsTable st]
+      (doto st
+        (.. (add "") row)
+        (.add (str "[accent] " (.get Core/bundle (str "category." s))))
+        .row))))
+
 (defn- register [^SettingsMenuDialog$SettingsTable st]
   (letfn [(add-category [s]
-            (.pref st (proxy [SettingsMenuDialog$SettingsTable$Setting] [s]
-                        (add [^SettingsMenuDialog$SettingsTable st]
-                          (doto st
-                            (.. (add "") row)
-                            (.add (str "[accent] " (.get Core/bundle (str "category." s))))
-                            .row)))))
+            (.pref st (category s)))
           (check-pref [^Setting {:keys [setting default]}]
             (.checkPref st setting default))
           (slider-pref [^Setting {:keys [setting default]} mn mx sproc]
@@ -38,38 +42,48 @@
     (text-pref log/meta-color)
 
     (add-category "extra-logging")
-    (slider-pref log-h/log-level 0 4
+    (slider-pref log-handler/log-level 0 4
                  (s-proc #(.name ^Enum (nth (Log$LogLevel/values) %))))
-    (check-pref log-h/colored-terminal)
-    (area-pref log-h/terminal-format)
-    (area-pref log-h/console-format)
-    (text-pref log-h/time-formatter)
+    (check-pref log-handler/colored-terminal)
+    (area-pref log-handler/terminal-format)
+    (area-pref log-handler/console-format)
+    (text-pref log-handler/time-formatter)
+
+    (add-category "extra-repl")
+    (check-pref repl/enable)
+    (text-pref repl/address)
+    (text-pref repl/port)
 
     (add-category "extra-eventlogging")
-    (check-pref events/enable)
-    (slider-pref events/log-level 0 4
+    (check-pref events-log/enable)
+    (slider-pref events-log/log-level 0 4
                  (s-proc #(.name ^Enum (nth (Log$LogLevel/values) %))))
-    (area-pref events/listening-events)
+    (area-pref events-log/listening-events)
 
     (add-category "extra-translation")
-    (check-pref transl/enable-translation)))
+    (check-pref tl/enable-translation)))
 
 (defn refresh! []
   (dosync
-   (run! set-setting [log/enable-meta-debugging
-                      log/meta-color
+   (run! set-setting
+         [log/enable-meta-debugging
+          log/meta-color
+
+          log-handler/log-level
+          log-handler/colored-terminal
+          log-handler/terminal-format
+          log-handler/console-format
+          log-handler/time-formatter
 
-                      log-h/log-level
-                      log-h/colored-terminal
-                      log-h/terminal-format
-                      log-h/console-format
-                      log-h/time-formatter
+          repl/enable
+          repl/address
+          repl/port
 
-                      events/enable
-                      events/log-level
+          events-log/enable
+          events-log/log-level
 
-                      transl/enable-translation]))
-  (set! Log/level @log-h/log-level))
+          tl/enable-translation]))
+  (set! Log/level @log-handler/log-level))
 
 (defn -init []
   (when-not Vars/headless
diff --git a/src/clojure/logging/core/translating.clj b/src/clojure/logging/core/translating.clj
index 00ee94f..ddc902a 100644
--- a/src/clojure/logging/core/translating.clj
+++ b/src/clojure/logging/core/translating.clj
@@ -1,27 +1,99 @@
 (ns logging.core.translating
-  (:require [logging.core.setting :refer [defsetting]]
-            [logging.util.log :refer [info]])
-  (:import (arc.util CommandHandler Reflect)
+  "Frontend to the backends in logging.core.translating. There may be a DeepL
+   wrapper in the future.
+   Require as tl."
+  (:require [clojure.string :as str]
+            [logging.core.setting :refer [defsetting]]
+            [logging.core.translating.libretranslate :as libretranslate]
+            (logging.util [color :as color]
+                          [lambdas :refer [command-runner cons1]]
+                          [log :refer [info]]
+                          [macros :refer [if-let']])
+            [logging.vars :refer [is-foo]])
+  (:import (arc Core Events)
+           (arc.graphics Color)
+           (arc.util CommandHandler Reflect)
            (java.util Locale)
-           (mindustry Vars)))
+           (mindustry Vars)
+           (mindustry.gen Call)
+           (mindustry.ui.fragments ChatFragment)))
 
-(def foo-has-translation
-  "Whether foo client supports chat translation."
+(def foo-enable-translation
+  "Whether chat translation of foo's client is enabled."
   (delay
-   (try (Reflect/get (Class/forName "mindustry.client.ClientVars") "enableTranslation")
-        true
-        (catch Exception _ false))))
-(def target-lang (delay (.getLanguage (Locale/getDefault))))
-(def supported-langs (agent nil)) ; TODO: initialize
+   (and @is-foo
+        (try (Reflect/get (Class/forName "mindustry.client.ClientVars") "enableTranslation")
+             (catch Exception _ false)))))
+(def backend :backends/libretranslate)
+(def supported-langs (atom #{"en" "fr" "de" "ru" "zh" "ja" "ko"}))
+(def target-lang (atom "en"))
 
 (defsetting enable-translation "extra-enabletranslation" true
   #(and
     %
-    (not @foo-has-translation)
+    (not @foo-enable-translation)
     (not Vars/headless)))
 
+(defn- send-chat [s] (Call/sendChatMessage (str s " [gray](translated)")))
+
+(defmulti languages (constantly backend))
+(defmethod languages :backends/libretranslate
+  ([] (libretranslate/languages))
+  ([callback] (libretranslate/languages callback)))
+
+(defmulti translate (constantly backend))
+(defmethod translate :backends/libretranslate
+  ([s callback] (libretranslate/translate s callback))
+  ([s dst callback] (libretranslate/translate s dst callback)))
+
+;; Disable reflection warning, foo methods can't be statically resolved
+(set! *warn-on-reflection* false)
 (defn -init []
-  (when @foo-has-translation (info "@extra-logging.footranslation"))
-  (when Vars/headless (info "@extra-logging.headlesstranslation")))
+  (when @foo-enable-translation (info "@extra-logging.footranslation"))
+  (when Vars/headless (info "@extra-logging.headlesstranslation"))
+  (languages (fn [langs]
+               (reset! supported-langs langs)
+               (let [locale (.getLanguage (Locale/getDefault))]
+                 (when (langs locale)
+                   (reset! target-lang locale)))))
+  (when @is-foo
+    (Events/on
+     (Class/forName "mindustry.game.EventType$PlayerChatEventClient")
+     (cons1 (fn [_]
+              (when @enable-translation
+                (when-let [msg (-> (.. Vars/ui -chatfrag -messages)
+                                   (first)
+                                   .-unformatted
+                                   color/remove-colors)]
+                  (translate msg @target-lang
+                             #(when-not (= % msg)
+                                (.addMessage (.-chatfrag Vars/ui)
+                                             % "Translation" Color/sky "" %))))))))))
 
-(defn -register-client-commands [^CommandHandler _])
+(defn -register-client-commands [^CommandHandler handler]
+  (.register
+   handler "tl" "[lang] [message...]"
+   (.get Core/bundle "extra-logging.command.tl.description")
+   (command-runner
+    (fn [[a b] _]
+      ;; The command should still be usable even with enable-translation set to false.
+      (cond
+        b (if (@supported-langs a)
+            (translate b a send-chat)
+            (translate (str a " " b) send-chat))
+        a (translate a send-chat)
+        ;; Translate last message in chat
+        :else (if-let' [msg         (first (Reflect/get ChatFragment (.-chatfrag Vars/ui) "messages"))
+                        unformatted (if @is-foo (.-unformatted msg)
+                                                (second (str/split msg #":\S* " 2)))]
+                (translate
+                 (color/remove-colors unformatted)
+                 @target-lang
+                 #(if @is-foo
+                    (.addMessage (.-chatfrag Vars/ui) % "Translation" Color/sky "" %)
+                    (.addMessage (.-chatfrag Vars/ui) (str "[sky]Translation:[] " %))))
+                (if @is-foo
+                  (let [error "No message found."]
+                    (.addMessage (.-chatfrag Vars/ui) error "Error" Color/scarlet "" error))
+                  (.addMessage (.-chatfrag Vars/ui) "[scarlet]Error:[] no message found."))))))))
+(set! *warn-on-reflection* true)
diff --git a/src/clojure/logging/core/translating/libretranslate.clj b/src/clojure/logging/core/translating/libretranslate.clj
new file mode 100644
index 0000000..2f3e303
--- /dev/null
+++ b/src/clojure/logging/core/translating/libretranslate.clj
@@ -0,0 +1,74 @@
+(ns logging.core.translating.libretranslate
+  "Libretranslate wrapper."
+  (:require [clojure.data.json :as json]
+            [flatland.ordered.map :refer [ordered-map]]
+            [logging.util.lambdas :refer [task]]
+            [logging.util.log :refer [debug err log warn]]
+            [org.httpkit.client :as http])
+  (:import (arc.util Log$LogLevel Timer)))
+
+(def servers
+  "List of mirrors can be found at https://github.com/LibreTranslate/LibreTranslate#mirrors.
+   If you see a mirror not working, please make a pr."
+  (apply ordered-map
+         (interleave [;; "https://libretranslate.com" requires API key :(
+                      ;; Thanks to Allen for hosting this instance and Nautilus
+                      ;; for giving permission to use it
+                      ;; https://github.com/TomtheCoder2/mainPlugin/blob/master/src/main/java/mindustry/plugin/minimods/Translate.java#L219
+                      "http://168.119.234.142:5000"
+                      "https://translate.argosopentech.com"
+                      "https://translate.terraprint.co"
+                      "https://lt.vern.cc"
+                      "https://libretranslate.de"]
+                     (repeatedly #(atom true)))))
+
+(defn- fetch [api & [opts callback]]
+  (if-let [server (some (fn [[k v]] (when @v k)) servers)]
+    (http/request
+     (merge {:url     (str server api)
+             :headers {"Content-Type" "application/json"}
+             :timeout 3000}
+            opts)
+     (fn [{:keys [status body error] {:keys [url]} :opts}]
+       (if error
+         (err "Unknown client-side error." error)
+         (let [[lvl ret]
+               (condp = status
+                 200 [Log$LogLevel/debug
+                      ((or callback identity) (json/read-str body :key-fn keyword))]
+                 400 (do (err "Bad request. Aborting translation.")
+                         [Log$LogLevel/err])
+                 429 (do
+                       (warn "Rate limit reached with server @. Retrying..." url)
+                       (reset! (servers server) false)
+                       (.scheduleTask (Timer/instance)
+                                      (task #(reset! (servers server) true))
+                                      60.)
+                       [Log$LogLevel/debug @(fetch api opts callback)])
+                 500 (do (err "Detection error. Aborting translation.")
+                         [Log$LogLevel/err])
+                 :else (do
+                         (err "Unknown error. Disabling translation for this session.")
+                         ;; FIXME: ugly hack to workaround reverse dependency
+                         (dosync (ref-set (:value (resolve 'logging.core.translating/enable-translation)) false))
+                         [Log$LogLevel/err]))]
+           (log lvl "Response from @:\n@" url body)
+           ret))))
+    (warn "No server available. Aborting translation.")))
+
+(defn languages
+  ([] (languages identity))
+  ([callback] (fetch "/languages" {} #(callback (set (map :code %))))))
+
+(defn translate
+  ([s callback] (translate s "en" callback))
+  ([s dst callback]
+   (debug "Translating @ to @..." s dst)
+   (fetch "/translate"
+          {:method :post
+           :body   (json/write-str {:q      s
+                                    :source "auto"
+                                    :target dst}
+                                   :escape-unicode false)
+           :filter (http/max-body-filter 1024)}
+          #(callback (:translatedText %)))))
diff --git a/src/clojure/logging/main.clj b/src/clojure/logging/main.clj
deleted file mode 100644
index 2fba96c..0000000
--- a/src/clojure/logging/main.clj
+++ /dev/null
@@ -1,26 +0,0 @@
-(ns logging.main
-  (:require (logging.core [events :as events]
-                          [log-handler :as log-h]
-                          [settings :as settings]
-                          [translating :as transl])
-            [logging.util.log :refer [debug]])
-  (:import (arc.util CommandHandler)))
-
-(defn -main []
-  (settings/refresh!)
-  (log-h/-main)
-  (debug "Creating mod")
-  (events/-main))
-
-(defn -init []
-  (debug "Initializing")
-  (settings/-init)
-  (transl/-init))
-
-(defn -load-content [] (debug "Loading content"))
-
-(defn -register-client-commands [^CommandHandler handler]
-  (debug "Registering commands")
-  (transl/-register-client-commands handler))
-
-(defn -register-server-commands [^CommandHandler _] (debug "Registering commands"))
diff --git a/src/clojure/logging/ui/fragments/ExtraChatFragment.clj b/src/clojure/logging/ui/fragments/ExtraChatFragment.clj
deleted file mode 100644
index 53c56b4..0000000
--- a/src/clojure/logging/ui/fragments/ExtraChatFragment.clj
+++ /dev/null
@@ -1,4 +0,0 @@
-(ns logging.ui.fragments.ExtraChatFragment
-  (:gen-class
-   :extends mindustry.ui.fragments.ChatFragment))
-
diff --git a/src/clojure/logging/ui/fragments/chat_fragment.clj b/src/clojure/logging/ui/fragments/chat_fragment.clj
new file mode 100644
index 0000000..ea14d35
--- /dev/null
+++ b/src/clojure/logging/ui/fragments/chat_fragment.clj
@@ -0,0 +1,40 @@
+(ns logging.ui.fragments.chat-fragment
+  (:require [clojure.string :as str]
+            [logging.core.translating :as tl]
+            [logging.util.color :as color]
+            [logging.util.lambdas :refer [boolf]]
+            [logging.util.macros :refer [when-let']]
+            [logging.vars :refer [is-foo]])
+  (:import (arc Core)
+           (mindustry Vars)
+           (mindustry.gen Groups Player)
+           (mindustry.ui.fragments ChatFragment)))
+
+(def instance
+  (delay
+   (proxy [ChatFragment] []
+     (addMessage
+       ([s]
+        ;; Add type hint to this to avoid reflection
+        (let [^ChatFragment this this]
+          (proxy-super addMessage s)
+          (when-let' [_           @tl/enable-translation
+                      [sender message] (str/split s #":\S* " 2)
+                      _           (and message
+                                       (not-any? #(str/includes? sender %)
+                                                 ["Translation" "Error" (.-name Vars/player)])
+                                       (some (fn [^Player player] (str/includes? sender (.-name player)))
+                                             Groups/player))
+                      unformatted (color/remove-colors message)]
+            (tl/translate
+             unformatted @tl/target-lang
+             #(when-not (= % unformatted)
+                (proxy-super addMessage (str "[sky]Translation:[] " %)))))))))))
+
+(defn -init []
+  (when-not (or Vars/headless @is-foo)
+    (doto (.find Core/scene (boolf #(instance? ChatFragment %)))
+      .clear
+      .remove)
+    (set! (.-chatfrag Vars/ui) @instance)
+    (.build ^ChatFragment @instance (.-hudGroup Vars/ui))))
diff --git a/src/clojure/logging/util/color.clj b/src/clojure/logging/util/color.clj
index 8de44d9..6dd73fa 100644
--- a/src/clojure/logging/util/color.clj
+++ b/src/clojure/logging/util/color.clj
@@ -4,39 +4,42 @@
             [clojure.string :as str])
   (:import (java.util.regex Pattern)))
 
+;; TODO: Add true color support
+;; https://stackoverflow.com/a/4842446
+
 ;; region Data
 
 (def ^:const color->escseq
   "Color keyword to terminal escape sequence."
   #::{:flush         "\033[H\033[2J"
-      :reset         "\u001B[0m"
-      :bold          "\u001B[1m"
-      :italic        "\u001B[3m"
-      :underline     "\u001B[4m"
+      :reset         "\033[0m"
+      :bold          "\033[1m"
+      :italic        "\033[3m"
+      :underline     "\033[4m"
 
-      :black         "\u001B[30m"
-      :red           "\u001B[31m"
-      :green         "\u001B[32m"
-      :yellow        "\u001B[33m"
-      :blue          "\u001B[34m"
-      :purple        "\u001B[35m"
-      :cyan          "\u001B[36m"
-      :white         "\u001B[37m"
+      :black         "\033[30m"
+      :red           "\033[31m"
+      :green         "\033[32m"
+      :yellow        "\033[33m"
+      :blue          "\033[34m"
+      :purple        "\033[35m"
+      :cyan          "\033[36m"
+      :white         "\033[37m"
 
-      :light-black   "\u001b[90m"
-      :light-red     "\u001B[91m"
-      :light-green   "\u001B[92m"
-      :light-yellow  "\u001B[93m"
-      :light-blue    "\u001B[94m"
-      :light-magenta "\u001B[95m" ; Yes it's magenta, not purple, in arc.util.ColorCodes
-      :light-cyan    "\u001B[96m"
-      :light-white   "\u001b[97m"
+      :light-black   "\033[90m"
+      :light-red     "\033[91m"
+      :light-green   "\033[92m"
+      :light-yellow  "\033[93m"
+      :light-blue    "\033[94m"
+      :light-magenta "\033[95m" ; Yes it's magenta, not purple, in arc.util.ColorCodes
+      :light-cyan    "\033[96m"
+      :light-white   "\033[97m"
 
-      :back-default  "\u001B[49m"
-      :back-red      "\u001B[41m"
-      :back-green    "\u001B[42m"
-      :back-yellow   "\u001B[43m"
-      :back-blue     "\u001B[44m"})
+      :back-default  "\033[49m"
+      :back-red      "\033[41m"
+      :back-green    "\033[42m"
+      :back-yellow   "\033[43m"
+      :back-blue     "\033[44m"})
 
 (def ^:const color->code
   "Color keyword to color code."
diff --git a/src/clojure/logging/util/lambdas.clj b/src/clojure/logging/util/lambdas.clj
index dd7b1eb..4e776e8 100644
--- a/src/clojure/logging/util/lambdas.clj
+++ b/src/clojure/logging/util/lambdas.clj
@@ -6,6 +6,7 @@
                      Cons Cons2 Cons3 Cons4 ConsT
                      FloatFloatf Floatc Floatc2 Floatc4 Floatf Floatp
                      Prov)
+           (arc.util CommandHandler$CommandRunner Timer$Task)
            (mindustry.ui.dialogs SettingsMenuDialog$StringProcessor)))
 
 ;; region Providers
@@ -47,6 +48,12 @@
     (get [_ a] (f a))))
 
 ;; endregion
+
+;; Not exactly a lambda but ok
+(defn task ^Timer$Task [f]
+  (proxy [Timer$Task] []
+    (run [] (f))))
+
 ;; region Consumers
 
 (defn cons1 ^Cons [f]
@@ -69,6 +76,10 @@
   (reify ConsT
     (get [_ a] (f a))))
 
+(defn command-runner ^CommandHandler$CommandRunner [f]
+  (reify CommandHandler$CommandRunner
+    (accept [_ args player] (f args player))))
+
 (defn boolc ^Boolc [f]
   (reify Boolc
     (get [_ a] (f a))))
diff --git a/src/clojure/logging/util/macros.clj b/src/clojure/logging/util/macros.clj
index d0c2c6d..2e966ff 100644
--- a/src/clojure/logging/util/macros.clj
+++ b/src/clojure/logging/util/macros.clj
@@ -10,4 +10,23 @@
 (defmacro name-map
   "Create a map with names of args as keys and values of args as values"
   [& syms]
-  (zipmap (map keyword syms) syms))
+  `(zipmap ~(map keyword syms) ~syms))
+
+(defmacro if-let'
+  "if-let with multiple bindings, short-circuiting when value evaluates to false"
+  ([bindings then]
+   `(if-let' ~bindings ~then nil))
+  ([bindings then else]
+   (if (seq bindings)
+     `(if-let [~(first bindings) ~(second bindings)]
+        (if-let' ~(drop 2 bindings) ~then ~else)
+        ~else)
+     then)))
+
+(defmacro when-let'
+  "when-let with multiple bindings, short-circuiting when value evaluates to false"
+  ([bindings & body]
+   (if (seq bindings)
+     `(when-let [~(first bindings) ~(second bindings)]
+        (when-let' ~(drop 2 bindings) ~body))
+     `(do ~@body))))
diff --git a/src/clojure/logging/vars.clj b/src/clojure/logging/vars.clj
new file mode 100644
index 0000000..9336607
--- /dev/null
+++ b/src/clojure/logging/vars.clj
@@ -0,0 +1,8 @@
+(ns logging.vars)
+
+(def is-foo
+  "Whether we're running on foo's client."
+  (delay
+   (try (Class/forName "mindustry.client.ClientVars")
+        true
+        (catch Exception _ false))))
diff --git a/src/java/logging/CljLoader.java b/src/java/logging/CljLoader.java
index 7991a08..e09befb 100644
--- a/src/java/logging/CljLoader.java
+++ b/src/java/logging/CljLoader.java
@@ -10,7 +10,7 @@
  * @author Weathercold
  */
 public class CljLoader extends Mod {
-    public static final String ns = CljLoader.class.getPackageName() + ".main";
+    public static final String ns = CljLoader.class.getPackageName() + ".core";
 
     static {
         Thread.currentThread().setContextClassLoader(CljLoader.class.getClassLoader());
@@ -20,35 +20,35 @@ public class CljLoader extends Mod {
     public CljLoader() {
         try {
             Clojure.var(ns, "-main").invoke();
-        } catch (Throwable ignored) {}
+        } catch (IllegalStateException ignored) {}
     }
 
     @Override
     public void init() {
         try {
             Clojure.var(ns, "-init").invoke();
-        } catch (Throwable ignored) {}
+        } catch (IllegalStateException ignored) {}
     }
 
     @Override
     public void loadContent() {
         try {
             Clojure.var(ns, "-load-content").invoke();
-        } catch (Throwable ignored) {}
+        } catch (IllegalStateException ignored) {}
     }
 
     @Override
     public void registerClientCommands(CommandHandler handler) {
         try {
             Clojure.var(ns, "-register-client-commands").invoke(handler);
-        } catch (Throwable ignored) {}
+        } catch (IllegalStateException ignored) {}
     }
 
     @Override
     public void registerServerCommands(CommandHandler handler) {
         try {
             Clojure.var(ns, "-register-server-commands").invoke(handler);
-        } catch (Throwable ignored) {}
+        } catch (IllegalStateException ignored) {}
     }
 
     @Override