repl-init.clj

(set! *print-length* 103)
(set! *print-level* 15)
(use '[clojure.contrib.repl-utils :only [show add-break-thread!]])
(use '[clojure.pprint :only []])
(def *pprint*)

(defn my-repl []
  (add-break-thread!)
  (binding [*pprint* true]
    (clojure.main/repl
      :prompt #(printf
                 "\033[32m-----\033[m\n%s=> "
                 (ns-name *ns*))
      :caught (fn [e]
                (.print *err* "\033[31m")
                (clojure.main/repl-caught e)
                (.print *err* "\033[m"))
      :print (fn [x]
               (print "\033[34m")
               (if *pprint*
                 (clojure.pprint/pprint x)
                 (prn x))
               (print "\033[m")
               (flush)))))