Add no-arg form of emitter/create

Author: Malcolm Sparks

src/clojurewerkz/eep/emitter.clj

@@ -115,10 +115,11 @@ Pretty much topic routing.")
 
 (defn create
   "Creates a fresh Event Emitter with the default executor."
-  [{:keys [dispatcher-type dispatcher env]
-    :or   [env (me/create)]}]
-  (let [reactor (mr/create :dispatcher-type dispatcher-type :dispatcher dispatcher :env env)]
-    (Emitter. (atom {}) (ConcurrentHashMap.) reactor)))
+  ([{:keys [dispatcher-type dispatcher env]
+     :or   [env (me/create)]}]
+   (let [reactor (mr/create :dispatcher-type dispatcher-type :dispatcher dispatcher :env env)]
+     (Emitter. (atom {}) (ConcurrentHashMap.) reactor)))
+  ([] (create {})))
 
 ;;
 ;; Operations

test/clojurewerkz/eep/emitter_test.clj

@@ -14,6 +14,9 @@
         env   (me/create)]
     (create {:dispatcher-type rtype :env env})))
 
+(deftest test-no-argument-form
+  (create))
+
 (deftest test-aggregator
   (let [em      (new-emitter)
         latch   (make-latch 3)]