Name it get-state instead

clojure-emacs · Aug 9, 2023 · 5721ea2 · 5721ea2
1 parent cf0455c
commit 5721ea2
Show file tree

Hide file tree

Showing 4 changed files with 18 additions and 18 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -4,7 +4,7 @@
 
 ### New features
 
-* Make the `track-state` middleware invokeable directly, by requesting the new `"cider/state"` op.
+* Make the `track-state` middleware invokeable directly, by requesting the new `"cider/get-state"` op.
   * This makes it possible to access `:changed-namespaces` info on demand, which can be necessary for:
     * non-Piggieback based clojurescript repls
     * re-computing the ns info responding to external (non-nREPL triggered) events. 

diff --git a/doc/modules/ROOT/pages/nrepl-api/ops.adoc b/doc/modules/ROOT/pages/nrepl-api/ops.adoc
@@ -1288,6 +1288,20 @@ Returns::
 
 
 
+=== `cider/get-state`
+
+
+
+Required parameters::
+{blank}
+
+Optional parameters::
+{blank}
+
+Returns::
+{blank}
+
+
 === `cider/log-add-appender`
 
 Add an appender to a log framework.
@@ -1593,17 +1607,3 @@ Returns::
 * `:status` done
 * `:cider/log-update-consumer` The consumer that was updated.
 
-
-
-=== `cider/state`
-
-
-
-Required parameters::
-{blank}
-
-Optional parameters::
-{blank}
-
-Returns::
-{blank}
diff --git a/src/cider/nrepl.clj b/src/cider/nrepl.clj
@@ -661,10 +661,10 @@ stack frame of the most recent exception. This op is deprecated, please use the
   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/state\" op."
+You can also request to compute the info directly by requesting the \"cider/get-state\" op."
     :requires #{#'session}
     :expects ops-that-can-eval
-    :handles {"cider/state" {}}
+    :handles {"cider/get-state" {}}
     :returns {"repl-type" "`:clj` or `:cljs`."
               "changed-namespaces" "A map of namespaces to `{:aliases ,,, :interns ,,,}`"}}))
 

diff --git a/src/cider/nrepl/middleware/track_state.clj b/src/cider/nrepl/middleware/track_state.clj
@@ -334,7 +334,7 @@
 
 (defn handle-tracker [handler {:keys [op session] :as msg}]
   (cond
-    (= "cider/state" op)
+    (= "cider/get-state" op)
     (send ns-cache update-in [session] update-and-send-cache msg)
 
     (ops-that-can-eval op)