Merge pull request #36 from mathieuroblin/master

Add support for snitch's defmethod

* Fixes #31

Author: PEZ

CHANGELOG.md

@@ -4,6 +4,8 @@ Changes to Calva Power Tools
 
 ## [Unreleased]
 
+- [Add support for defmethod* (Snitch)](https://github.com/BetterThanTomorrow/calva-power-tools/issues/31)
+
 ## [v0.0.10] - 2025-06-25
 
 - [Change `cpt.showCommands` command search `>CPT` to `>[CPT]` for more accurate filtering](https://github.com/BetterThanTomorrow/calva-power-tools/issues/32)

package.json

@@ -154,22 +154,22 @@
       {
         "command": "cpt.snitch.instrumentTopLevelForm",
         "category": "[CPT] Snitch",
-        "title": "Instrument Top Level defn/let/fn"
+        "title": "Instrument Top Level defn/defmethod/let/fn"
       },
       {
         "command": "cpt.snitch.instrumentCurrentForm",
         "category": "[CPT] Snitch",
-        "title": "Instrument Current Form defn/let/fn"
+        "title": "Instrument Current Form defn/defmethod/let/fn"
       },
       {
         "command": "cpt.snitch.getSnitchedDefnResults",
         "category": "[CPT] Snitch",
-        "title": "Get Snitched defn Results"
+        "title": "Get Snitched defn/defmethod Results"
       },
       {
         "command": "cpt.snitch.reconstructLastDefnCallToClipboard",
         "category": "[CPT] Snitch",
-        "title": "Reconstruct Last defn Call to Clipboard"
+        "title": "Reconstruct Last defn/defmethod Call to Clipboard"
       },
       {
         "command": "cpt.performance.loadDecompilerDependency",

src/calva_power_tools/tool/snitch.cljs

@@ -11,13 +11,14 @@
 
 (defn- instrument-form [form]
   (let [snitched (.replace form
-                           #"\b(defn-?|fn|let)(?=\s)"
+                           #"\b(defn-?|defmethod|fn|let)(?=\s)"
                            (fn [s]
                              (case (string/trim s)
-                               "defn-" "defn*"
-                               "defn" "defn*"
-                               "let" "*let"
-                               "fn" "*fn"
+                               "defn-"     "defn*"
+                               "defn"      "defn*"
+                               "defmethod" "defmethod*"
+                               "let"       "*let"
+                               "fn"        "*fn"
                                s)))]
     (calva/execute-calva-command! "calva.runCustomREPLCommand"
                                   #js {:snippet snitched})))