apropos.clj

(defn apropos
  "Returns list of namespace - symbol pairs matching a symbol name pattern"
  [pattern]
  (apply concat (for [ns (all-ns)]
                  (for [symbol-name (keys (ns-publics ns))
                        :when (.contains (str symbol-name)
                                         pattern)]
                    (list (ns-name ns)
                          symbol-name)))))

(defn print-apropos [pattern]
  (dorun (map (fn [[namespace-name symbol-name]]
                (println (str namespace-name
                              "/"
                              symbol-name)))
              (apropos pattern))))