def.run for ClojureScript and AngularJS

def-run.clj

(defmacro def.run [sym params & body]
  (list '.run                                 ;; .run(
        (list '.module 'js/angular sym)       ;; angular.module(sym)
        (concat ['array]                      ;; Array.new(
                (map str params)              ;; "$rootScope", "$q"
                [(concat ['fn params] body)]  ;; , function($rootScope, $q) { code; }))
                )
        )
  )

(def.run "my-module" [$rootScope $q]
  (let [deferred (.defer $q)]
    (! $rootScope.cats "dogs")
    )
  )