remove one of the levels of indirection from import-fn, and add defpr…

…otocol-once

src/potemkin.clj

@@ -10,7 +10,8 @@
   (:require
     [potemkin.namespace :as namespace]
     [potemkin.map :as map]
-    [potemkin.macros :as macros]))
+    [potemkin.macros :as macros]
+    [potemkin.protocols :as protocols]))
 
 (namespace/import-macro namespace/import-macro) ;; totally meta
 (import-macro namespace/import-fn)
@@ -21,6 +22,8 @@
 (import-fn macros/transform-defn-bodies)
 (import-fn macros/transform-fn-bodies)
 
+(import-fn protocols/defprotocol-once)
+
 
 
 

src/potemkin/namespace.clj

@@ -23,7 +23,7 @@
     (when-not vr
       (throw (IllegalArgumentException. (str "Don't recognize " sym))))
     `(do
-       (def ~(with-meta n {:protocol protocol}) ~sym)
+       (def ~(with-meta n {:protocol protocol}) (deref ~vr))
        (alter-meta! (var ~n) assoc
          :doc ~doc
          :arglists ~(list 'quote arglists)

src/potemkin/protocols.clj

@@ -8,7 +8,11 @@
 
 (ns potemkin.protocols)
 
-(defprotocol PotemkinMap
-  (keys* [this data]))
+(defmacro defprotocol-once [name & body]
+  (if (resolve name)
+    `(do)
+    (list* 'defprotocol name body)))
 
+(defprotocol-once PotemkinMap
+  (keys* [this data]))