         (if (find-set-home-dir)
           (do
             (println :http-port http-port :rpl-port rpl-port)
+            (write-port-file http-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.coll :as coll]

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

  (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)
