Was ist der Clojure-Weg zum Builder-Muster?

Question

Wir verwenden in der Regel Erbauer in Java, wie folgt aus:

UserBuilder userBuilder = new UserBuilder(); 
User John = userBuiler.setName("John") 
         .setPassword("1234") 
         .isVip(true) 
         .visableByPublic(false) 
         .build(); 

Einige der Attribute Standardwert haben, und einige nicht.

Attribute in einer Karte Passing kann eine Lösung sein, aber es macht das Argument wirklich mehr:

(def john (make-user {:name "John" :pass "1234" :vip true :visible false})) 

Also, meine Frage ist, gibt es eine elegante Möglichkeit, dies zu erreichen?

Answer 1

Wenn Sie etwas clojure Struktur bauen möchten, können Sie Destrukturierung Muster in Funktionsargumente verwenden. Sie werden dann das ähnliche erreichen, was Sie bereits geschrieben haben.

Ich bezweifle, dass Sie etwas in weniger Code als das tun können.

Wenn Sie ein Java-Objekt konstruieren möchten (mithilfe seiner Setter), können Sie den von Nicolas vorgeschlagenen Ansatz verwenden.

Answer 2

Eine einfache Möglichkeit ist es, die doto Makro zu verwenden:

Hier ein Beispiel wird ein Array-Liste mit einigen Werten zu füllen:

(def al (doto (java.util.ArrayList.) (.add 11) (.add 3)(.add 7))) 

Stuart hat some perfect examples wie doto mit Schaukel zu verwenden. hier mit einem Panel:

(doto (JPanel.) 
      (.setOpaque true) 
      (.add label) 
      (.add button)) 

hier mit einem Rahmen:

(doto (JFrame. "Counter App") 
    (.setContentPane panel) 
    (.setSize 300 100) 
    (.setVisible true)) 

Answer 3

Normalerweise würde ich Attribute über eine Map übergeben - es gibt kein echtes Problem, da die Attributzuordnung wirklich nur ein Argument für die make-user-Funktion ist. Sie können auch nette Dinge innerhalb von make-user tun, wie das Zusammenführen von Standardattributen.

Wenn Sie wirklich eine solche Karte mit einem Builder-Muster erstellen möchten, können Sie es mit einem Einfädeln Makro wie folgt vorgehen:

(def john 
    (-> {} 
    (assoc :name "John") 
    (assoc :pass "1234") 
    (assoc :vip true) 
    (assoc :visible false) 
    make-user)) 

Answer 4

Rewrite

(def john (make-user {:name "John" :pass "1234" :vip true :visible false}))

in mehrere Zeilen:

(def john (make-user {:name "John" 
         :pass "1234" 
         :vip true 
         :visible false})) 

Answer 5

Der Vollständigkeit halber erwähnte niemand defrecord, die Sie „Builder-Funktionen“ gibt automatisch

(defrecord User [name pass vip visible]) 

(User. "John" "1234" true false) 
;;=>#user.User{:name "John", :pass "1234", :vip true, :visible false} 

(->User "John" "1234" true false) 
;;=>#user.User{:name "John", :pass "1234", :vip true, :visible false} 

(map->User {:name "John" :pass "1234" :vip true :visible false}) 
;;=>#user.User{:name "John", :pass "1234", :vip true, :visible false}