[track-state] Consolidate ops-that-can-eval

Author: alexander-yakushev

src/cider/nrepl.clj

@@ -739,20 +739,13 @@ stack frame of the most recent exception. This op is deprecated, please use the
               :requires {"ns" "The namespace to trace"}
               :returns  {"ns-status" "The result of tracing operation"}}}})
 
-(def ops-that-can-eval
-  "Set of nREPL ops that can lead to code being evaluated."
-  #{"eval" "load-file"
-    "refresh" "refresh-all" "refresh-clear"
-    "cider.clj-reload/reload" "cider.clj-reload/reload-all" "cider.clj-reload/reload-clear"
-    "toggle-trace-var" "toggle-trace-ns" "undef" "undef-all"})
-
 (def-wrapper wrap-tracker cider.nrepl.middleware.track-state/handle-tracker
-  ops-that-can-eval
+  mw/ops-that-can-eval
   (cljs/expects-piggieback
    {:doc "Under its normal operation mode, enhances the `eval` op by notifying the client of the current REPL state.
 You can also request to compute the info directly by requesting the \"cider/get-state\" op."
     :requires #{#'session}
-    :expects ops-that-can-eval
+    :expects mw/ops-that-can-eval
     :handles {"cider/get-state" {}}
     :returns {"repl-type" "`:clj` or `:cljs`."
               "changed-namespaces" "A map of namespaces to `{:aliases ,,, :interns ,,,}`"}}))

src/cider/nrepl/middleware.clj

@@ -33,3 +33,12 @@
     cider.nrepl/wrap-undef
     cider.nrepl/wrap-version
     cider.nrepl/wrap-xref])
+
+(def ops-that-can-eval
+  "Set of nREPL ops that can lead to code being evaluated."
+  #{"eval" "load-file"
+    "refresh" "refresh-all" "refresh-clear"
+    "cider.clj-reload/reload" "cider.clj-reload/reload-all" "cider.clj-reload/reload-clear"
+    "toggle-trace-var" "toggle-trace-ns"
+    "undef" "undef-all"
+    "cider/profile-toggle-var" "cider/profile-toggle-ns"})

src/cider/nrepl/middleware/track_state.clj

@@ -2,6 +2,7 @@
   "State tracker for client sessions."
   {:author "Artur Malabarba"}
   (:require
+   [cider.nrepl.middleware :as mw]
    [cider.nrepl.middleware.util :as util]
    [cider.nrepl.middleware.util.cljs :as cljs]
    [cider.nrepl.middleware.util.meta :as um]
@@ -334,17 +335,12 @@
         (send ns-cache update-in [session]
               update-and-send-cache msg)))))
 
-(def ops-that-can-eval
-  "Set of nREPL ops that can lead to code being evaluated."
-  #{"eval" "load-file" "refresh" "refresh-all" "refresh-clear"
-    "toggle-trace-var" "toggle-trace-ns" "undef"})
-
 (defn handle-tracker [handler {:keys [op session] :as msg}]
   (cond
     (= "cider/get-state" op)
     (send ns-cache update-in [session] update-and-send-cache msg)
 
-    (ops-that-can-eval op)
+    (mw/ops-that-can-eval op)
     (handler (assoc msg :transport (make-transport msg)))
 
     :else