[CLJS-463] Google Closure Class interop form (genclass) Created: 26/Jan/13 Updated: 11/May/13 |
|
| Status: | Open |
| Project: | ClojureScript |
| Component/s: | None |
| Affects Version/s: | None |
| Fix Version/s: | None |
| Type: | Enhancement | Priority: | Major |
| Reporter: | David Nolen | Assignee: | Unassigned |
| Resolution: | Unresolved | Votes: | 2 |
| Labels: | None | ||
| Description |
|
Currently it's not really possible to use to the existing deftype/record to construct "classes" that interop well with Google Closure. It seems odd to ship Closure and then provide no tools for writing ClojureScript against it, especially the UI component parts. Several people have asked for this now so perhaps we really should offer the ClojureScript equivalent of genclass. |
| Comments |
| Comment by Tyler Tallman [ 11/May/13 3:06 PM ] |
|
What do you think of this approach based on While it may not preserve enough of gen-class's semantics. This would be enough for us to start gradually porting our large GClosure code base to Clojurescript. The code size reduction would be enormous. sample_use (ns com.example (:require [goog.ui.tree.TreeControl :as TreeControl])) (gen-class :name DemoTree :extends goog/ui.tree.TreeControl :constructor ([name config] (goog/base (js* "this") name config)) :methods [[handleKeyEvent [e] (goog/base (js* "this") "handleKeyEvent" e) ;; my special code to handle the key event ]]) here is a untested mock implementation modified from http://www.50ply.com/blog/2012/07/08/extending-closure-from-clojurescript/ I changed constructors to constructor because there can be only one in js This unfortunately has different semantics from gen-class because the original did not include the definition of the methods and constructor inline. It tried to read the Clojure gen-class source,but I still do not yet understand how the :prefix grabbing of functions from the current namespace works from within a macro. For Google Closure interop each class should have its own provide dryrun_for_gen-class (defmacro gen-class [{new-type :name base-type :extends ctor :constructor methods :methods}]
`(do
;(goog/provide ~@(str *ns* "." new-type))
(defn ~new-type ~@ctor)
(goog/inherits ~type ~base-type)
~@(map
(fn [method]
`(set! (.. ~type -prototype ~(to-property (first method)))
(fn ~@(rest method))))
methods)))
|