Add client-info to clone op (#3806)

* Add client-info to clone op

* fix nrepl server mock

Author: ericdallo

CHANGELOG.md

@@ -27,6 +27,7 @@
 - [#3797](https://github.com/clojure-emacs/cider/issues/3797): Completion: enable `cider-completion-style` by default (this enables richer completion suggestions where candidates don't have to strictly match the prefix).
 - [#3803](https://github.com/clojure-emacs/cider/pull/3803): Enable dynamic indentation for `clojure-ts-mode`.
 - [#3805](https://github.com/clojure-emacs/cider/pull/3805): Profiler: update to latest profiling middleware.
+- [#3806](https://github.com/clojure-emacs/cider/pull/3806): Add client info to `clone` op request.
 
 ### Bugs fixed
 

nrepl-client.el

@@ -1032,12 +1032,16 @@ ADDITIONAL-PARAMS is a plist to be appended to the request message."
                       connection
                       tooling))
 
+(defvar cider-version)
+
 (defun nrepl-sync-request:clone (connection &optional tooling)
   "Sent a :clone request to create a new client session.
 The request is dispatched via CONNECTION.
 Optional argument TOOLING Tooling is set to t if wanting the tooling session
 from CONNECTION."
-  (nrepl-send-sync-request '("op" "clone")
+  (nrepl-send-sync-request `("op" "clone"
+                             "client-name" "CIDER"
+                             "client-version" ,cider-version)
                            connection
                            nil tooling))
 

test/nrepl-server-mock.el

@@ -43,7 +43,10 @@ requirements."
       (let* ((msg (queue-dequeue (cdr (nrepl-bdecode output))))
              (_ (mock/log! ":mock.filter/msg :in %S" msg))
              (response (pcase msg
-                         (`(dict "op" "clone" "id" ,id)
+                         (`(dict "op" "clone"
+                                 "client-name" "CIDER"
+                                 "client-version" ,cider-version
+                                 "id" ,id)
                           `(dict "id" ,id
                                  "session" "a-session"
                                  "status" ("done")