   (svr/start! port))
 
 
+(defn write-port-file [http-port repl-port]
+  (let [port-file (fs/join (fs/pwd) ".ports")]
+    (with-out-writer port-file
+      (print (format "{'http': '%s', 'repl': '%s'}" http-port repl-port)))))
+
+
+
 
 (defn nrepl-handler-hack []
   (require 'cider.nrepl)

        (if (find-set-home-dir)
          (do
            (println :http-port http-port :rpl-port rpl-port)
            (nrs/start-server :port rpl-port :handler nrepl-handler)
            (run-server http-port))
          (do (println "aerobio server must run in home directory")


            [aerial.fs :as fs]
            [aerial.utils.misc :refer [getenv]]
            [aerial.utils.io :refer [with-out-writer]]
            [aerial.utils.coll :as coll]

            [aerial.bio.utils.params :as bpams]
