Нормальный метод экземпляра вызывает в Clojure DOTO

Question

Я настраиваю свинг пользовательского интерфейс в Clojure и есть блок как:

(doto main-frame 
    (.setUndecorated true) 
    (.setExtendedState Frame/MAXIMIZED_BOTH) 
    (.setDefaultCloseOperation JFrame/EXIT_ON_CLOSE) 
    (.setVisible true) 
    ) 

Но теперь я хочу назвать

(.setBackground (.getContentPane main-frame) Color/BLACK) 

перед тем, как установить видимый кадр, есть ли лучший способ сделать это, чем завершение doto и использование синтаксиса (.instanceMember instance args *)?

Answer 1

Если вы действительно хотите один doto, то, возможно, это будет делать:

(doto main-frame 
    (.setUndecorated true) 
    (.setExtendedState Frame/MAXIMIZED_BOTH) 
    (.setDefaultCloseOperation JFrame/EXIT_ON_CLOSE) 
    (-> (.getContentPane) (.setBackground Color/BLACK)) 
    (.setVisible true)) 

выше опирается на тот факт, что doto не ограничивается методами Java, он просто вставляет свой первый аргумент (оценивается), как первый аргумент каждой следующей формы.

Я бы пошел с окончанием doto, хотя вышеизложенное не очень читаемо. С другой стороны, может быть, просто определить set-background-on-content-pane функцию (что, очевидно, принимает main-frame) и использовать его в doto:

(defn set-bg-on-frame [fr color] (.setBackground (.getContentPane fr) color)) 

(doto main-frame 
    . 
    . 
    . 
    (set-bg-on-frame Color/BLACK) 
    (.setVisible true))