ClojureScriptでメソッドとコンストラクタを使用してJSオブジェクトを作成するには

Question

JSから使用できるようにclojurescriptにいくつかのユーティリティlibを作成することを想像してください。例えば

は、の私はと同等のものを生成したいとしましょう：私が来た、それを達成するための

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  

一つの方法は次のとおりです。

(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 

質問：慣用/よりエレガントあり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 

これを行うための慣習的な方法ですか？

Answer 2

これはのDeftypeに魔法「オブジェクト」プロトコルを追加することにより、JIRA CLJS-83で解決しました：

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