clojure - 如何在 Clojure 中以字符串形式获取函数名称？

Question

如何在 Clojure 中以字符串形式获取函数名称？

到目前为止，我所拥有的看起来一点也不符合惯用语:

(defn fn-name
  [f]
  (first (re-find #"(?<=\$)([^@]+)(?=@)" (str f))))

(defn foo [])

(fn-name foo) ;; returns "foo"

编辑:根据提供的提示，我组合了一个基本宏来完成我想要的操作。是不是看起来好多了？

(defmacro fn-name
  [f]
  `(-> ~f var meta :name str))

Answer 1

对于使用 defn 形式定义的函数:

user> (-> #'map meta :name)
map
user> (defn nothing [& _])
#'user/nothing
user> (-> #'nothing meta :name)
nothing

这需要访问 var，而不仅仅是 var 所保存的函数值。