            (map (fn [ns-alias-symbol]
                   (symbol (str ns-alias-symbol) sym-name-str))))))))
 
-(defn better-apropos
-  "Given a regular expression or stringable thing, calculate a
+(defn apropos-better
+  "Similar to clojure.repl/apropos, but provides enough context (in the form of
+  namespaces where the vars live, when necessary) to actually use the results
+  in a REPL.
+
+  Given a regular expression or stringable thing, calculate a
   sequence of all symbols in all currently-loaded namespaces such that
   it matches the str-or-pattern, with at most one such symbol per Var.
   The sequence returned contains symbols that map to those Vars, and are

(defn formify-file [f]
  (read-string (str "(do " (slurp f) ")")))

(defn default-init-code
  "Assumes cd-client will be on the classpath when this is evaluated."
  []
  `(do
     (println "REPL-y" ~(version/get-version "reply" "reply"))
     (println "Clojure" (clojure-version))

(defn help
  "Prints a list of helpful commands."
  []
  (println "        Exit: Control+D or (exit) or (quit)")
  (println "    Commands: (user/help)")
  (println "        Docs: (doc function-name-here)")
  (println "              (find-doc \"part-of-name-here\")")
  (println "Find by Name: (find-name \"part-of-name-here\")")
  (println "      Source: (source function-name-here)")
  (println "     Javadoc: (javadoc java-object-or-class-here)")
  (println "    Examples from clojuredocs.org: [clojuredocs or cdoc]")
  (println "              (user/clojuredocs name-here)")
  (println "              (user/clojuredocs \"ns-here\" \"name-here\")"))

(defn intern-with-meta [ns sym value-var]
  (intern ns
