reexport.clj

(defn reexport [ns sym]
  (cond (not (symbol? sym))   (throw (ex-info "reexport takes a symbol!" {}))
        (not (namespace sym)) (throw (ex-info "reexport takes a namespaced symbol" {}))
        :else
        (let [v (resolve sym)]
          (intern ns (-> sym name symbol (with-meta (meta v))) @v))))

sample usage:

(doseq [n `[foo/bar baz/quux]]
  (reexport *ns* n))