在Clojure中做這個Java函數的慣用方式是什麼？

Question

我將這個Java函數複製到Clojure中。

Config createConfig(Map<String, String> options) { 
    Config conf = new Config(); 
    String foo = options.get("foo"); 
    if (foo != null) { conf.setFoo(foo); } 
    String bar = options.get("bar"); 
    if (bar != null) { conf.setBar(bar); } 
    // many other configs 
    return conf; 
} 

我想出了這個，

(defn create-config [options] 
    (let [conf (Config.)] 
    (when-let [a (:foo options)] (.setFoo a)) 
    (when-let [a (:bar options)] (.setBar a)) 
    conf)) 

有沒有更好的方式來做到這一點？

Answer 1

這個怎麼樣？

(defn create-config [{:keys (foo bar)}] 
    (let [config (Config.)] 
    (when foo (.setFoo config foo)) 
    (when bar (.setBar config bar)))) 

可能更好的是創建一個通用宏，它可以基於Clojure地圖設置對象上的任意數量的字段。這可能是更漂亮，但它的工作原理：

(defmacro set-fields 
    [options obj] 
    (let [o (gensym) 
     m (gensym)] 
    `(let [~m ~options 
      ~o ~obj] 
     ~@(map (fn [[field value]] 
       (let [setter (symbol (str "set" (clojure.string/capitalize (name field))))] 
        `(. ~o (~setter ~value)))) 
       options) 
     ~o))) 

;; call like: 
(set-fields {:daemon true :name "my-thread"} (Thread.)) 

;; translates to: 
;; (let [G__1275 {:daemon true, :name "my-thread"} 
;;  G__1274 (Thread.)] 
;; (. G__1274 (setDaemon true)) 
;; (. G__1274 (setName "my-thread")) 
;; G__1274) 

我沒有檢查空，因爲這只是着眼於究竟是什麼在選項中傳遞。

Answer 2

也許結賬some->>

fillertext fillertext