Add support for ls-middleware

Author: bbatsov

CHANGELOG.md

@@ -7,6 +7,7 @@
 * Add first class support for Babashka (more warnings when you connect to `babashka.nrepl`).
 * Add support for nREPL 0.8's `lookup` op.
 * Add support for nREPL 0.7's sideloading functionality.
+* Add support for nREPL 0.8's `ls-middleware` op.
 
 ### Changes
 

cider-connection.el

@@ -469,6 +469,18 @@ REPL defaults to the current REPL."
           (mapc (lambda (op) (insert (format "  * %s\n" op))) ops)))
       (display-buffer cider-nrepl-session-buffer))))
 
+(defun cider-list-nrepl-middleware ()
+  "List the loaded nREPL middleware."
+  (interactive)
+  (cider-ensure-connected)
+  (let* ((repl (cider-current-repl nil 'ensure))
+         (middleware (nrepl-middleware repl)))
+    (with-current-buffer (cider-popup-buffer "*cider-nrepl-middleware*" 'select nil 'ancillary)
+      (read-only-mode -1)
+      (insert (format "Currently loaded middleware:\n"))
+      (mapc (lambda (mw) (insert (format "  * %s\n" mw))) middleware))
+    (display-buffer "*cider-nrepl-middleware*")))
+
 
 ;;; Sesman's Session-Wise Management UI
 

cider-mode.el

@@ -330,6 +330,7 @@ If invoked with a prefix ARG eval the expression after inserting it."
     ["Close ancillary buffers" cider-close-ancillary-buffers
      :active (seq-remove #'null cider-ancillary-buffers)]
     ("nREPL" :active (cider-connected-p)
+     ["List nREPL middleware" cider-list-nrepl-middleware]
      ["Describe nREPL session" cider-describe-nrepl-session]
      ["Toggle message logging" nrepl-toggle-message-logging]))
   "Menu for CIDER mode.")

nrepl-client.el

@@ -966,6 +966,10 @@ Optional argument TOOLING Tooling is set to t if wanting the tooling session fro
   "Perform :ls-sessions request for CONNECTION."
   (nrepl-send-sync-request '("op" "ls-sessions") connection))
 
+(defun nrepl-sync-request:ls-middleware (connection)
+  "Perform :ls-middleware request for CONNECTION."
+  (nrepl-send-sync-request '("op" "ls-middleware") connection))
+
 (defun nrepl-sync-request:eval (input connection &optional ns tooling)
   "Send the INPUT to the nREPL server synchronously.
 The request is dispatched via CONNECTION.
@@ -982,6 +986,10 @@ session."
   "Get a list of active sessions on the nREPL server using CONNECTION."
   (nrepl-dict-get (nrepl-sync-request:ls-sessions connection) "sessions"))
 
+(defun nrepl-middleware (connection)
+  "Get a list of middleware on the nREPL server using CONNECTION."
+  (nrepl-dict-get (nrepl-sync-request:ls-middleware connection) "middleware"))
+
 
 ;;; Server