初始化 Java 对象的 Clojure 惯用方法

Question

我正在尝试找到一种 Clojure 惯用的方法来初始化 Java 对象。我有以下代码：

(let [url-connection
      (let [url-conn (java.net.HttpURLConnection.)]
        (doto url-conn
          (.setDoInput true)
          ; more initialization on url-conn
          )
        url-conn)]
  ; use the url-connection
  )

但看起来非常尴尬。

创建 HttpURLConnection 对象并在稍后在代码中使用它之前对其进行初始化的更好方法是什么？

更新：似乎 (doto ...) 在这里可能会派上用场：

(let [url-connection
        (doto (java.net.HttpURLConnection.)
          (.setDoInput true)
          ; more initialization
          ))]
  ; use the url-connection
  )

根据 doto 文档，它返回的值是它是“做”。

Answer 1

正如我的问题更新中所解释的，这是我得出的答案：

(let [url-connection
        (doto (java.net.HttpURLConnection.)
          (.setDoInput true)
          ; more initialization
          ))]
  ; use the url-connection
  )

也许有人可以想出更好的答案。

Answer 2

假设没有构造函数接受所需的所有初始化参数，那么您的做法是我所知道的唯一一种。

您可以做的一件事是将其全部包装在这样的函数中：

(defn init-url-conn [doInput ...other params..] 
     (let [url-conn (java.net.HttpURLConnection.)]
        (doto url-conn
          (.setDoInput true)
          ; more initialization on url-conn
          )
        url-conn))

并调用：

(let [url-connection
      (let [url-conn (init-url-con true ...other params..)]
  ; use the url-connection
  )

但是，这是每个对象特定的，并且仅当您多次初始化该类的对象时它才真正有用。

您还可以编写一个接受所有方法名称和参数的宏并执行此操作。但是，当调用时，该调用不会比您的第一个示例短很多。

如果有人有更好的主意，我想看看，因为前几天我也问自己同样的问题。