feat: scratch method retrieval

deps.edn

@@ -1,8 +1,10 @@
-{:paths   ["src"]
+{:paths ["src" "resources"]
  :deps
- {redis.clients/jedis {:mvn/version "5.1.2"}
+ {redis.clients/jedis {#_#_:mvn/version "5.1.2"
+                       :local/root "vendor/jedis/target/jedis-5.2.0-SNAPSHOT.jar"}
   org.clojure/tools.logging {:mvn/version "1.3.0"}
-  ch.qos.logback/logback-classic {:mvn/version "1.5.6"}}
+  ch.qos.logback/logback-classic {:mvn/version "1.5.6"}
+  camel-snake-kebab/camel-snake-kebab {:mvn/version "0.4.3"}}
 
  :aliases
  {;; clj -A:dev -m com.moclojer.rq

resources/command-allowlist.edn

@@ -0,0 +1,4 @@
+#{"lpush" "rpush" "lpop" "rpop"  "brpop"
+  "blpop" "lrange" "lindex" "lset" "lrem"
+  "llen" "linsert" "ltrim" "rpoplpush"
+  "brpoplpush"  "lmove"}

src/com/moclojer/rq.clj

@@ -26,3 +26,41 @@
   "Disconnect and close redis client"
   ([] (close-client *redis-pool*))
   ([client] (.close @client)))
+
+(comment
+  ;; (import [java.util Arrays])
+  (require '[clojure.string :as str]
+           '[clojure.java.io :as io]
+           '[clojure.edn :as edn]
+           '[camel-snake-kebab.core :as csk])
+  (import [redis.clients.jedis JedisPooled])
+
+  (def allowlist
+    (-> (io/resource "command-allowlist.edn")
+        (slurp)
+        (edn/read-string)))
+
+  (->> (.getMethods JedisPooled)
+       (map
+        (fn [class]
+          {:name (csk/->kebab-case (.getName class))
+           :parameters (map
+                        #(identity
+                          {:type (-> (.. % getType getName)
+                                     (str/split #"\.")
+                                     (last)
+                                     (csk/->kebab-case))
+                           :name (csk/->kebab-case (.getName %))})
+                        (.getParameters class))}))
+       (filter #(contains? allowlist (:name %)))
+       (reduce
+        (fn [methods {:keys [name parameters]}]
+          (let [overload-count (count
+                                (filter
+                                 #(str/starts-with? (key %) name)
+                                 methods))
+                cur-overload-id (when (> overload-count 0) overload-count)]
+            (assoc methods (str name cur-overload-id) parameters)))
+        {}))
+  ;;
+  )