Added .. as a special form

src/com/reasonr/scriptjure.clj

@@ -68,7 +68,7 @@
 (defmethod emit :default [expr]
   (str expr))
 
-(def special-forms (set ['var '. 'if 'funcall 'fn 'set! 'return 'delete 'new 'do 'aget 'doseq 'str]))
+(def special-forms (set ['var '. '.. 'if 'funcall 'fn 'set! 'return 'delete 'new 'do 'aget 'doseq 'str]))
 
 (def infix-operators (set ['+ '- '/ '* '% '== '=== '< '> '<= '>= '!= '<< '>> '<<< '>>> '!== '& '| '&& '||]))
 
@@ -98,6 +98,9 @@
 (defmethod emit-special '. [type [period obj method & args]]
   (emit-method obj method args))
 
+(defmethod emit-special '.. [type [dotdot & args]]
+  (apply str (interpose "." (map emit args))))
+
 (defmethod emit-special 'if [type [if test true-form & false-form]]
   (str "if (" (emit test) ") { \n"
        (emit true-form)
@@ -161,8 +164,10 @@
   (if (symbol? (first expr))
     (let [head (symbol (name (first expr)))  ; remove any ns resolution
           expr (conj (rest expr) head)]
-      (cond 
-       (and (= (str/get (str head) 0) \.) (> (count (str head)) 1)) (emit-special 'dot-method expr)
+      (cond
+       (and (= (str/get (str head) 0) \.)
+            (> (count (str head)) 1)
+            (not (= (str/get (str head) 1) \.))) (emit-special 'dot-method expr)
         (special-form? head) (emit-special head expr)
         (infix-operator? head) (emit-infix head expr)
         :else (emit-special 'funcall expr)))

test/test_scriptjure.clj

@@ -45,6 +45,9 @@
 (deftest test-dot-method-call
   (is (= (js (.bar google.chart :a :b)) "google.chart.bar(a, b)")))
 
+(deftest test-dotdot
+  (is (= (js (.. google chart (bar :a :b))) "google.chart.bar(a, b)")))
+
 (deftest test-if
   (is (= (strip-whitespace (js (if (&& (== foo bar) (!= foo baz)) (.draw google.chart))))
          "if (((foo == bar) && (foo != baz))) { google.chart.draw() }"))