Как вы можете получить имя функции как строку в Clojure?
То, что у меня до сих пор не выглядит нигде ближе к идиоматическому:
(defn fn-name
[f]
(first (re-find #"(?<=\$)([^@]+)([email protected])" (str f))))
(defn foo [])
(fn-name foo) ;; returns "foo"
EDIT: С предоставленными подсказками я собрал базовый макрос, который делает то, что я хочу. Это выглядит лучше?
(defmacro fn-name
[f]
`(-> ~f var meta :name str))
Для функций, определенных с формой defn:
user> (-> #'map meta :name)
map
user> (defn nothing [& _])
#'user/nothing
user> (-> #'nothing meta :name)
nothing
Для этого требуется доступ к var, а не только значение функции, которое имеет значение var.
EDIT: я нашел лучший способ Clojure включает функцию, называемую demunge. Поэтому вместо того, чтобы повторно изобретать колесо, просто используйте его;)
(clojure.repl/demunge (str map?));; "clojure.core/[email protected]"
Или, если вы хотите использовать префиксную версию
(defn- pretty-demunge
[fn-object]
(let [dem-fn (demunge (str fn-object))
pretty (second (re-find #"(.*?\/.*?)[\-\-|@].*" dem-fn))]
(if pretty pretty dem-fn)))
(pretty-demunge map?);; "clojure.core/map?"
Я думаю, что есть более чистый способ сделать это. Я столкнулся с одной и той же проблемой, связанной с желанием узнать имя функции, полученной как аргумент в функции. Я не мог использовать макрос, потому что мне нужно было его сопоставить, поэтому вот что у меня есть: (предположим, что string? - это функция, переданная как аргумент)
(clojure.string/replace (second (re-find #"^.+\$(.+)\@.+$" (str string?)))
#"\_QMARK\_" "?")
; string?
Конечно, это не полное решение, но я уверен, что вы сможете пробиться отсюда. В основном Clojure управляет именем функции во что-то, что он может использовать. Итак, основное, хотя очевидно: вам нужно развязать это! Это довольно просто, так как str работает над любой функцией: D, возвращая измененное имя функции.
Кстати, это также работает
(def foo string?)
(clojure.string/replace (second (re-find #"^.+\$(.+)\@.+$" (str foo)))
#"\_QMARK\_" "?")
; string?
Удачи
Я предложил улучшение ответа @carocad в комментарии. Поскольку мне также нужно было это сделать, и мне нужно было сделать это как в clj, так и в cljs, вот что я придумал:
(ns my-ns.core
(:require [clojure.string :as s]
#?(:clj [clojure.main :refer [demunge]])))
(defn fn-name
[f]
#?(:clj
(as-> (str f) $
(demunge $)
(or (re-find #"(.+)--\[email protected]" $)
(re-find #"(.+)@" $))
(last $))
:cljs
(as-> (.-name f) $
(demunge $)
(s/split $ #"/")
((juxt butlast last) $)
(update $ 0 #(s/join "." %))
(s/join "/" $))))
Обратите внимание, что cljs.core имеет свой собственный demunge встроенный и не может получить доступ к clojure.main.
Edit
Обратите внимание, что когда вы делаете (with-meta a-fn {...}), он возвращает clojure.lang.AFunction в clojure, который скрывает базовое имя и пространство имен. Могут быть и другие подобные ситуации, я не уверен. С fn литеральными формами вы можете сделать ^{...} (fn ...) вместо (with-meta (fn ...) {...}), и он не вернет clojure.lang.AFunction, но это обходное решение не будет работать с предопределенными функциями. Я не тестировал это в clojurescript, чтобы убедиться, что он работает одинаково.
Обратите внимание, что анонимные функции в clojure всегда заканчиваются на fn, как в "my-ns.core/fn". Обычно эти функции имели бы конец "--[0-9]+" в конце, но вышеперечисленное выражение удаляет это. Вы можете изменить функцию выше и сделать исключение для анонимных функций. Пока лямбда имеет внутреннее имя, которое будет использоваться, например:
(fn-name (fn abc [x] x)) ;;=> "my-ns.core/abc"
Опять же, я еще не тестировал ни одну из этих заметок в clojurescript.