   (println "          (clojuredocs name-here)")
   (println "          (clojuredocs \"ns-here\" \"name-here\")"))
 
-(defn exit []
+(defn exit
+  "Exits the REPL."
+  []
   (shutdown-agents)
   (reader.jline/shutdown-reader)
   (println "Bye for now!")

  (require '[cd-client.core])
  (eval startup-code)
  (in-ns 'reply.main))

  ;(intern-with-meta 'user 'clojuredocs #'cd/pr-examples))

(defn launch [args]
  (set-signal-handler! "INT" handle-ctrl-c)

    (def exit reply.main/exit)
    (def quit reply.main/exit)
    (def help reply.main/help)
    (reply.main/intern-with-meta 'user 'clojuredocs #'cd-client.core/pr-examples)))

(defn setup-conveniences []
  (in-ns 'user)
