system takes a port arg

domkm · Jun 12, 2014 · 47fc380 · 47fc380
1 parent 9beceed
commit 47fc380
Showing 1 changed file with 10 additions and 9 deletions.
diff --git a/src/omelette/main.clj b/src/omelette/main.clj
@@ -1,15 +1,16 @@
 (ns omelette.main
   (:gen-class)
   (:require [com.stuartsierra.component :as component]
-             [omelette.route :as route]
-             [omelette.serve :as serve]))
+            [omelette.route :as route]
+            [omelette.serve :as serve]))
 
-(def system
-  (component/system-map
-   :router (route/router)
-   :server (component/using
-            (serve/server)
-            [:router])))
+(defn system
+  ([] (system nil))
+  ([port] (component/system-map
+           :router (route/router)
+           :server (component/using
+                    (serve/server port)
+                    [:router]))))
 
 (defn browse [system]
   (->> (get-in system [:server :port])
@@ -18,6 +19,6 @@
        (.browse (java.awt.Desktop/getDesktop))))
 
 (defn -main [& _]
-  (-> system
+  (-> (system)
       component/start
       browse))