Crear un alias a otro espacio de nombres Clojure

Question

Tengo algunas funciones privadas en un espacio de nombres que me gustaría incluir en un segundo espacio de nombres. p.ej.

(ns one) 

(defn ^:private foo 
    "A docstring" 
    [x] (* x 2)) 

Y el segundo espacio de nombres tiene que crear un alias a esto:

(ns two) 

(def foo ???) 

(foo 3) ;; should work as if the function in namespace one was called 
=> 6 

Idealmente me gustaría preservar la cadena de documentación, así que no tengo que mantenerla en dos lugares. También me gustaría tener la opción de usar el mismo nombre o un nombre diferente.

El motivo de este requisito es el siguiente: la funcionalidad es necesaria/utilizada en el espacio de nombres one. one es una dependencia de two, y como no podemos tener dependencias circulares, no funcionará definir foo dentro de two. two es la API pública, por lo que foo debe formar parte pública del espacio de nombres two.

¿Cuál es la mejor manera de lograrlo?

Answer 1

¿Qué tal esto:

(ns one) 

(defn- foo 
    "A docstring" 
    [x] (* x 2)) 

(ns two) 

(def foo-alias #'one/foo) 
(alter-meta! #'foo-alias merge (select-keys (meta #'one/foo) [:doc :arglists])) 

El truco está en no resolver el símbolo 'uno/foo, por lo tanto, evitando a desencadenar la bandera privada en sus metadatos. Luego, después del aliasing foo en tu segundo espacio de nombres, simplemente seleccionas los metadatos que deseas conservar de la definición anterior.

Answer 2

La biblioteca Potemkin tiene una función import-vars para este tipo de cosas.

https://github.com/ztellman/potemkin