Làm cách nào để tạo một đối tượng JS với các phương thức và hàm tạo trong ClojureScript

Question

Hãy tưởng tượng nhiệm vụ là tạo một số tiện ích lib trong clojurescript để nó có thể được sử dụng từ JS.

Ví dụ, giả sử tôi muốn tạo ra một tương đương với:

var Foo = function(a, b, c){ 
     this.a = a; 
     this.b = b; 
     this.c = c;  
    } 

    Foo.prototype.bar = function(x){ 
     return this.a + this.b + this.c + x; 
    } 

    var x = new Foo(1,2,3); 

    x.bar(3);   // >> 9  

Một cách để đạt được điều đó tôi đến với là:

(deftype Foo [a b c]) 

    (set! (.bar (.prototype Foo)) 
     (fn [x] 
     (this-as this 
      (+ (.a this) (.b this) (.c this) x)))) 

    (def x (Foo. 1 2 3)) 

    (.bar x 3)  ; >> 9 

Câu hỏi: có thêm thanh lịch/thành ngữ cách ở trên trong clojurescript?

Answer 1

(defprotocol IFoo 
    (bar [this x])) 

(deftype Foo [a b c] 
    IFoo 
    (bar [_ x] 
    (+ a b c x))) 

(def afoo (Foo. 1 2 3)) 
(bar afoo 3) ; >> 9 

Là cách thành ngữ để thực hiện việc này.

Answer 2

này đã được giải quyết với JIRA CLJS-83 bằng cách thêm một ma thuật "đối tượng" giao thức để các deftype:

(deftype Foo [a b c] 
    Object 
    (bar [this x] (+ a b c x))) 
(def afoo (Foo. 1 2 3)) 
(.bar afoo 3) ; >> 9