Replace some inlined code with wrap-ns middleware usage

Author: Bozhidar Batsov

cider-browse-ns.el

@@ -95,8 +95,7 @@
   "List all NAMESPACE's vars in BUFFER."
   (interactive (list (completing-read "Browse namespace: " (cider--all-ns))))
   (with-current-buffer (cider-popup-buffer cider-browse-ns-buffer t)
-    (let* ((form "(sort (map name (keys (ns-publics (quote %s)))))")
-           (vars (cider-sync-eval-and-parse (format form namespace))))
+    (let ((vars (cider--ns-vars namespace)))
       (cider-browse-ns-list (current-buffer)
                             namespace
                             (mapcar (lambda (var)
@@ -110,11 +109,7 @@
   "List all loaded namespaces in BUFFER."
   (interactive)
   (with-current-buffer (cider-popup-buffer cider-browse-ns-buffer t)
-    (let ((names (cider-sync-eval-and-parse
-                  "(->> (all-ns)
-                        (map ns-name)
-                        (map name)
-                        (sort))")))
+    (let ((names (cider--all-ns)))
       (cider-browse-ns-list (current-buffer)
                             "All loaded namespaces"
                             (mapcar (lambda (name)

cider-interaction.el

@@ -151,6 +151,7 @@ which will use the default REPL connection."
     "inspect-start" "inspect-refresh"
     "inspect-pop" "inspect-push" "inspect-reset"
     "macroexpand" "macroexpand-1" "macroexpand-all"
+    "ns-list" "ns-vars"
     "resource" "stacktrace" "toggle-trace" "undef")
   "A list of nREPL ops required by CIDER to function properly.
 
@@ -1448,6 +1449,18 @@ See command `cider-mode'."
   (unless (cider-connected-p)
     (cider-disable-on-existing-clojure-buffers)))
 
+(defun cider--all-ns ()
+  "Get a list of the available namespaces."
+  (-> (list "op" "ns-list")
+    (nrepl-send-sync-request)
+    (plist-get :value)))
+
+(defun cider--ns-vars (ns)
+  "Get a list of the vars in NS."
+  (-> (list "op" "ns-vars" "ns" ns)
+    (nrepl-send-sync-request)
+    (plist-get :value)))
+
 (defun cider-fetch-vars-form (ns)
   "Construct a Clojure form to read vars inside for NS."
   `(concat (if (find-ns (symbol ,ns))

cider-repl.el

@@ -654,11 +654,6 @@ text property `cider-old-input'."
           (insert
            (propertize ";;; output cleared" 'face 'font-lock-comment-face)))))))
 
-(defun cider--all-ns ()
-  "Get a list of the available namespaces."
-  (cider-sync-eval-and-parse
-   "(clojure.core/map clojure.core/str (clojure.core/all-ns))"))
-
 (defun cider-repl-set-ns (ns)
   "Switch the namespace of the REPL buffer to NS.