(ns circle.swank
  (:require swank.swank)
  (:require [circle.env :as env]))

(defn port []
  (cond
      (env/test?) 5004
      :else 4005))

(defn init []
  (when (= "true" (System/getenv "CIRCLE_SWANK"))
    (binding [*print-length* 100
              *print-level* 20]
      (println "Starting Swank")
      (clojure.main/with-bindings
        (swank.swank/start-server :port (port)
                                  :encoding "utf-8")))))

(ns circle.swank
  (:require swank.swank)
  (:require [circle.env :as env]))

(defn port []
  (cond
      (env/test?) 4006
      :else 4005))

(defn init []
  (when (= "true" (System/getenv "CIRCLE_SWANK"))
    (binding [*print-length* 100
              *print-level* 20]
      (println "Starting Swank")
      (clojure.main/with-bindings
        (swank.swank/start-server :port (port)
                                  :encoding "utf-8")))))

Use a port that's easier to type for connecting Swank to a testing environment.
Use a port that's easier to type for connecting Swank to a testing environment.

RayRutjes/frontend,prathamesh-sonpatki/frontend,circleci/frontend,circleci/frontend,prathamesh-sonpatki/frontend,RayRutjes/frontend,circleci/frontend