Support and env vars for LLM request via proxies.

Fixes #73

Author: ericdallo

CHANGELOG.md

@@ -5,6 +5,7 @@
 - Fix reasoning titles in thoughts blocks for openai-responses.
 - Fix hanging LSP diagnostics requests
 - Add `lspTimeoutSeconds` to config
+- Support `HTTP_PROXY` and `HTTPS_PROXY` env vars for LLM request via proxies. #73
 
 ## 0.32.4
 

src/eca/main.clj

@@ -7,7 +7,8 @@
    [clojure.string :as string]
    [eca.config :as config]
    [eca.logger :as logger]
-   [eca.server :as server]))
+   [eca.server :as server]
+   [eca.proxy :as proxy]))
 
 (set! *warn-on-reflection* true)
 
@@ -89,6 +90,7 @@
 
 (defn ^:private handle-action!
   [action options]
+  (proxy/load!)
   (when (= "server" action)
     (alter-var-root #'logger/*level* (constantly (keyword (:log-level options))))
     (let [finished @(server/run-io-server! (:verbose options))]

src/eca/proxy.clj

@@ -0,0 +1,23 @@
+(ns eca.proxy
+  (:require
+   [eca.config :as config])
+  (:import
+   [java.net URL]))
+
+(set! *warn-on-reflection* true)
+
+(defn load! []
+  (when-let [^URL url (try (some-> (not-empty (config/get-env "HTTP_PROXY"))
+                                   (URL.))
+                           (catch Exception _ nil))]
+    (System/setProperty "http.proxyHost" (.getHost url))
+    (let [port (.getPort url)]
+      (when (not= -1 port)
+        (System/setProperty "http.proxyPort" (.getPort url)))))
+  (when-let [^URL url (try (some-> (not-empty (config/get-env "HTTPS_PROXY"))
+                                   (URL.))
+                           (catch Exception _ nil))]
+    (System/setProperty "https.proxyHost" (.getHost url))
+    (let [port (.getPort url)]
+      (when (not= -1 port)
+        (System/setProperty "https.proxyPort" (.getPort url))))))