apropos that returns a seq of symbols that include their namespace

apropos-ns.clj

;; hacked out of clojure.repl/apropos and prepending namespaces

(defn apropos-ns
  "Given a regular expression or stringable thing, return a seq of
all definitions in all currently-loaded namespaces that match the
str-or-pattern."
  [str-or-pattern]
  (let [matches? (if (instance? java.util.regex.Pattern str-or-pattern)
                   #(re-find str-or-pattern (str %))
                   #(.contains (str %) (str str-or-pattern)))]
    (mapcat (fn [ns]
              (let [ns-name (.name names)]
                (->> (keys (ns-publics ns))
                     (filter matches?)
                     (map #(symbol ns-name (name %))))))
            (all-ns))))