方法定义为ClojureScript函数调用的结果

Question

这里是JS的淘汰赛样片：

function AppViewModel() { 
    this.firstName = ko.observable('Bob'); 
    this.lastName = ko.observable('Smith'); 
    this.fullName = ko.computed(function() { 
     return this.firstName() + " " + this.lastName(); 
    }, this); 
} 

如果你不熟悉KO，在AppViewModel每个字段成为功能（即ko.observable和ko.computed各返回一个函数还要注意的是fullName取决于两个功能

我怎么能改写这ClojureScript

一件事是尝试：？

(deftype AppViewModel [firstName lastName] 
    Object 
    (fullName [this] (.computed js/ko (str (firstName) " " (lastName))))) 

(defn my-model [first last] 
    (AppViewModel. 
    (.observable js/ko "Bob") 
    (.observable js/ko "Smith"))) 

虽然它不起作用，因为fullName变成一个函数，调用ko.computed。也就是，它编译为：

my_namespace.AppViewModel.prototype.fullName = function() { 
    return ko.computed([cljs.core.str(this.firstName.call(null)), cljs.core.str(" "), cljs.core.str(this.lastName.call(null))].join("")) 
}; 

我该如何在ClojureScript中处理它？

同样，请注意fullName对this和firstName/lastName的依赖关系。

Answer 1

试试这个：

(defn my-model [first last] 
    (let [fname (.observable js/ko first) 
     lname (.observable js/ko last) 
     full-name (.computed js/ko #(str (fname) " " (lname)))] 
     (js-obj "firstName" fname 
       "lastName" lname 
       "fullName" full-name))) 

Answer 2

上@ Riffing ANKUR的回答，好像你也可以做到以下几点：

(deftype AppViewModel [firstName lastName fullName]) 

    (defn my-model [first last] 
    (AppViewModel. 
     (.observable js/ko "Bob") 
     (.observable js/ko "Smith") 
     (.computed js/ko (str (firstName) " " (lastName)))))