refactor: compile dynamic fns aot

Author: J0sueTM

deps.edn

@@ -14,6 +14,7 @@
    :extra-deps  {io.github.clojure/tools.build {:git/tag    "v0.9.6"
                                                 :git/sha    "8e78bcc"
                                                 :exclusions [org.slf4j/slf4j-nop]}}}
+
   ;; Run all tests
   ;; clj -M:test
   ;; Run specific test

dev/com/moclojer/tools/build.clj

@@ -1,8 +1,9 @@
 (ns com.moclojer.tools.build
   (:refer-clojure :exclude [test])
-  (:require [clojure.string :as string]
-            [clojure.tools.build.api :as b]
-            [com.moclojer.rq :as rq]))
+  (:require
+   [clojure.string :as string]
+   [clojure.tools.build.api :as b]
+   [com.moclojer.rq :as rq]))
 
 (def class-dir "target/classes")
 (def jar-file "target/com.moclojer.rq.jar")
@@ -36,7 +37,7 @@
      :main       'com.moclojer.rq
      :version    rq/version
      :basis      basis
-     :ns-compile '[com.moclojer.rq]
+     :ns-compile '[com.moclojer.rq com.moclojer.rq.queue]
      :uber-file  jar-file
      :jar-file   jar-file
      :target     "target"

src/com/moclojer/internal/reflection.clj

@@ -46,12 +46,9 @@
   function itself, options like key pattern and encoding/decoding."
   [method parameters allowmap]
   (let [wrapped-method (clojure.string/replace method #"[`0-9]" "")
-        base-doc (str "Wraps redis.clients.jedis.JedisPooled." wrapped-method)
         param-syms (map #(-> % :name symbol) parameters)
-        [doc _ enc dec] (get allowmap method ["" nil :none :none])]
-    `(defn ~(symbol method)
-       ~(str base-doc \newline doc)
-
+        [_ _ enc dec] (get allowmap method ["" nil :none :none])]
+    `(fn
        ~(-> (into ['client] param-syms)
             (conj '& 'options))
 

src/com/moclojer/rq/queue.clj

@@ -1,6 +1,7 @@
 (ns com.moclojer.rq.queue
   (:refer-clojure :exclude [pop! range])
   (:require
+   [clojure.string :as str]
    [com.moclojer.internal.reflection :as reflection]
    [com.moclojer.rq.adapters :as adapters]))
 
@@ -41,7 +42,11 @@
 (doseq [[method parameters] (reflection/get-klazz-methods
                              redis.clients.jedis.JedisPooled
                              allowmap)]
-  (eval `(reflection/->wrap-method ~method ~parameters ~allowmap)))
+  (let [method' (str/replace method #"[`0-9]" "")
+        _base-doc (str "Wraps redis.clients.jedis.JedisPooled." method')]
+    (intern
+     *ns* (symbol method')
+     (eval `(reflection/->wrap-method ~method ~parameters ~allowmap)))))
 
 ;; --- directional ---