Совместное использование функций между пространствами имен в Clojure

Взгляните на библиотеку Зака ​​Теллмана Potemkin. Зак описывает его как «набор функций для реорганизации структуры пространств имен и кода».

Потемкин не лишен противоречий. Вот начало ветки в списке рассылки Clojure, где Стюарт Сьерра Понятно, что он не фанат идеи.

Я собираюсь ответить на свой вопрос, хотя спасибо всем, кто прокомментировал: ответ Эндрю очень информативен, и хотя он не совсем отвечает на вопрос, он, безусловно, приводит к ответам. Я действительно думаю, что Потемкин сделает это, но я пошел дальше и написал свое собственное решение на основе эту ветку. Я скажу, что я не считаю этот подход в целом идиоматическим, основываясь на некоторых ответах здесь и дальнейшем обсуждении в IRC, однако он может иметь смысл для ограниченных случаев использования, таких как мой.

Но чтобы ответить на вопрос, эта функция должна делать то, что я изначально намеревался:

(defn immigrate
  [from-ns]
  (require from-ns)
  (doseq [[sym v] (ns-publics (find-ns from-ns))]
    (let [target (if (bound? v)
                  (intern *ns* sym (var-get v))
                  (intern *ns* sym))]
      (->>
        (select-keys (meta target) [:name :ns])
        (merge (meta v))
        (with-meta '~target)))))

Затем вы можете вызвать его примерно так, допустим, мы поместили это в foo.clj (если вы видите суть, которую я добавил в правке):

(ns testing.foo)

(immigrate `testing.baz)

Теперь, если нам потребуется test.foo в REPL:

=> (require '[testing.foo :as foo])
=> (foo/qux "hi!")
;; "hi!"

Поговорив со Стюартом Сьеррой по IRC и прочитав переписку по электронной почте, Эндрю связал, Я пришел к выводу, что это не обязательно предполагаемый способ использования пространств имен.

Вместо этого лучший способ реализовать мою библиотеку может выглядеть так:

=> (require '[accord.oauth2 :as oauth2])
=> (def my-serv (oauth2/service 123 456 ...))
=> (require '[accord.http :as http])
=> (http/get my-serv "http://example.com/endpoint")

Однако, учитывая, что я хочу представить конечному пользователю максимально чистый API, я могу пойти дальше и использовать функцию immigrate в этой очень ограниченной области «импорта» функций метода HTTP.

Изменить:

После дальнейшего обсуждения я думаю, что вышеупомянутое решение не следует использовать, как я уже сказал. И для моего варианта использования я, вероятно, выберу свое последнее решение, то есть использую два отдельных пространства имен.

Один из вариантов разработки решения - использовать мультиметоды с предоставленной реализацией по умолчанию.

;The multi methods which dispatch on type param
(defmulti get (fn [serv uri & [req]] serv))
(defmulti post (fn [serv uri & [req]] serv))

;get default implementation for any type if the type doesn't provide its own implementation
(defmethod get :default [serv uri & [req]]
  "This is general get")

;post doesn't have default implementation and provided specific implementation.
(defmethod post :oauth1 [serv uri & [req]]
  "This is post for oauth1")

(defmethod post :oauth2 [serv uri & [req]]
  "This is post for oauth2")


;Usage
(get :oauth1 uri req) ;will call the default implementation
(get :oauth2 uri req) ;will call the default implementation
(post :oauth1 uri req) ;specific implementation call
(post :oauth2 uri req) ;specific call