Add an op to clear the inspector's internal state

Author: cichli

src/cider/nrepl.clj

@@ -259,6 +259,10 @@
               {:doc "Sets the page size in paginated view to specified value."
                :requires {"page-size" "New page size."
                           "session" "The current session"}
+               :returns {"status" "\"done\""}}
+              "inspect-clear"
+              {:doc "Clears the state state of the inspector."
+               :requires {"session" "The current session"}
                :returns {"status" "\"done\""}}}}))
 
 (def-wrapper wrap-macroexpand cider.nrepl.middleware.macroexpand/handle-macroexpand

src/cider/nrepl/middleware/inspect.clj

@@ -85,6 +85,9 @@
 (defn set-page-size-reply [msg]
   (inspector-response msg (swap-inspector! msg inspect/set-page-size (:page-size msg))))
 
+(defn clear-reply [msg]
+  (inspector-response msg (swap-inspector! msg (constantly (inspect/fresh)))))
+
 (defn handle-inspect [handler msg]
   (if (= (:op msg) "eval")
     (eval-reply handler msg)
@@ -96,4 +99,5 @@
       "inspect-get-path" get-path-reply
       "inspect-next-page" next-page-reply
       "inspect-prev-page" prev-page-reply
-      "inspect-set-page-size" set-page-size-reply)))
+      "inspect-set-page-size" set-page-size-reply
+      "inspect-clear" clear-reply)))