Comment obtenir l'espace de noms d'une var dans Clojure?

Question

J'utilise actuellement les éléments suivants qui fonctionne - mais il semble y at-il construit un peu cludge

(defn get-namespace 
    [qualified-var] 
    {:pre [(var? qualified-var)]} 
    (the-ns 
    (symbol 
    (apply str (drop 2 (first (str/split (str qualified-var) #"/"))))))) 

ignorant la scission de chaîne laid (rapide et sale) pour le faire?

Answer 1

La métadonnée var contient une référence à son espace de noms sous la clé :ns. Ce serait l'espace de noms dans lequel la var est définie. Les métadonnées de la variable var sont accessibles à l'aide de la fonction meta. Mettre tous ensemble, nous obtenons (-> some-var meta :ns) et nous pouvons expérimenter un peu:

(def x "foo") 
;; #'user/x 
(-> #'x meta :ns) 
;; #object[clojure.lang.Namespace 0x396bcdb0 "user"] 
(-> #'clojure.core/map meta :ns) 
;; #object[clojure.lang.Namespace 0x28412381 "clojure.core"] 

Un exemple complet peut ressembler à ceci:

(defn var-namespace 
    [qualified-var] 
    {:pre [(var? qualified-var)]} 
    (-> qualified-var meta :ns))