Remove some useless code

I had completely forgotten nREPL that clojure.walk/keywordize-keys
worked recursively and nREPL already calls it for each incoming
request map.

Author: bbatsov

src/cider/nrepl.clj

@@ -82,7 +82,7 @@
 (def wrap-pprint-fn-optional-arguments
   "Common pprint arguments for CIDER's middleware."
   {"pprint-fn" "The namespace-qualified name of a 1 or 2-arity function to use for pretty-printing. Defaults to `cider.nrepl.pprint/pprint`."
-   "print-params" "A map of configuration entries that the pprint-fn will understand. Those would typically be specific to the pprint-fn in question."})
+   "print-options" "A map of configuration entries that the pprint-fn will understand. Those would typically be specific to the pprint-fn in question."})
 
 (def-wrapper wrap-pprint-fn cider.nrepl.middleware.pprint/handle-pprint-fn
   (fn [msg] true)
@@ -94,15 +94,13 @@
          `cider.nrepl.pprint/pprint`. The function name can be passed as
          a string or symbol. Note that function should take 1 or two params - the
          object to print and the an optional map of print params. The params should
-         be passed as `:print-params` - a map of key/value params. If they were passed
-         by the client as with string keys, this middleware will convert the keys to
-         keywords.
+         be passed as `:print-options` - a map of key/value params.
 
          The `:pprint-fn` slot will be replaced with the var that maps to the name
          that was initially passed.
 
          Middlewares further down the stack can then look up the `:pprint-fn`
-         slot, call it where necessary, and pass it the value of the `:print-params` slot."
+         slot, call it where necessary, and pass it the value of the `:print-options` slot."
    :requires #{#'session}
    :expects #{"eval" "load-file"}})
 

src/cider/nrepl/middleware/pprint.clj

@@ -2,7 +2,6 @@
   (:require
    [cider.nrepl.middleware.util.cljs :as cljs]
    cider.nrepl.pprint
-   [clojure.walk :as walk]
    [nrepl.middleware.interruptible-eval :refer [*msg*]]
    [nrepl.middleware.pr-values :refer [pr-values]]
    [nrepl.middleware.session :as session]
@@ -26,9 +25,7 @@
 
 (defn handle-pprint-fn
   [handler msg]
-  (let [{:keys [pprint-fn print-options session]
+  (let [{:keys [pprint-fn]
          :or {pprint-fn 'cider.nrepl.pprint/pprint}}
         msg]
-    (handler (assoc msg
-                    :pprint-fn (resolve-pprint-fn pprint-fn)
-                    :print-options (walk/keywordize-keys print-options)))))
+    (handler (assoc msg :pprint-fn (resolve-pprint-fn pprint-fn)))))

src/cider/nrepl/pprint.clj

@@ -3,12 +3,10 @@
   All functions here are simple wrappers that ensure a consistent API:
 
   * has one and two params signatures - object to print and a map of print options
-  * the keys of the print options map can be strings, as bencode clients can't send keywords
   * functions return the printed object as a string"
   {:added "0.20.0"}
   (:require
-   [clojure.pprint :as pp]
-   [clojure.walk :as walk]))
+   [clojure.pprint :as pp]))
 
 (defn pprint
   "A simple wrapper around `clojure.pprint/write`.
@@ -17,7 +15,7 @@
   ([object]
    (pprint object {}))
   ([object opts]
-   (let [opts (assoc (walk/keywordize-keys opts) :stream nil)]
+   (let [opts (assoc opts :stream nil)]
      (apply pp/write object (vec (flatten (vec opts)))))))
 
 (def ^:private fipp-printer
@@ -31,7 +29,7 @@
    (fipp-pprint object {}))
   ([object opts]
    (with-out-str
-     (@fipp-printer object (walk/keywordize-keys opts)))))
+     (@fipp-printer object opts))))
 
 (def ^:private puget-printer
   (delay
@@ -43,4 +41,4 @@
   ([object]
    (puget-pprint object {}))
   ([object opts]
-   (@puget-printer object (walk/keywordize-keys opts))))
+   (@puget-printer object opts)))