初始化 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
  )

但是，这是针对每个对象的，只有在多次初始化该类的对象时才真正有用。

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

如果有人有更好的主意，我很想看看，因为前几天我也这样问自己..