Use sym instead of symbol in the xref middleware requests

Author: bbatsov

src/cider/nrepl.clj

@@ -467,13 +467,13 @@
   {:doc "Middleware that provides find references functionality."
    :handles {"fn-refs"
              {:doc "Look up functions that reference a particular function."
-              :requires {"symbol" "The symbol to lookup"
+              :requires {"sym" "The symbol to lookup"
                          "ns" "The current namespace"}
               :returns {"fn-refs" "A list of function references."
                         "status" "done"}}
              "fn-deps"
              {:doc "Look up the function dependencies of particular function."
-              :requires {"symbol" "The symbol to lookup"
+              :requires {"sym" "The symbol to lookup"
                          "ns" "The current namespace"}
               :returns {"fn-deps" "A list of function deps."
                         "status" "done"}}}})

src/cider/nrepl/middleware/xref.clj

@@ -17,12 +17,12 @@
      :line (:line var-meta)
      :column (:column var-meta)}))
 
-(defn fn-refs-reply [{:keys [ns symbol]}]
-  (let [var (ns-resolve (misc/as-sym ns) (misc/as-sym symbol))]
+(defn fn-refs-reply [{:keys [ns sym]}]
+  (let [var (ns-resolve (misc/as-sym ns) (misc/as-sym sym))]
     {:fn-refs (map xref-data (xref/fn-refs var))}))
 
-(defn fn-deps-reply [{:keys [ns symbol]}]
-  (let [var (ns-resolve (misc/as-sym ns) (misc/as-sym symbol))]
+(defn fn-deps-reply [{:keys [ns sym]}]
+  (let [var (ns-resolve (misc/as-sym ns) (misc/as-sym sym))]
     {:fn-deps (map xref-data (xref/fn-deps var))}))
 
 (defn handle-xref [handler msg]

test/clj/cider/nrepl/middleware/xref_test.clj

@@ -9,14 +9,14 @@
 (defn- foo [] (map inc (range 10)))
 
 (deftest fn-refs-integration-test
-  (let [response (session/message {:op "fn-refs" :ns "clojure.core" :symbol "map"})
+  (let [response (session/message {:op "fn-refs" :ns "clojure.core" :sym "map"})
         fn-refs (:fn-refs response)]
     (is (= (:status response) #{"done"}))
     (is (> (count fn-refs) 0))
     (is (every? map? fn-refs))))
 
 (deftest fn-deps-integration-test
-  (let [response (session/message {:op "fn-deps" :ns "cider.nrepl.middleware.xref-test" :symbol "foo"})
+  (let [response (session/message {:op "fn-deps" :ns "cider.nrepl.middleware.xref-test" :sym "foo"})
         fn-deps (:fn-deps response)]
     (is (= (:status response) #{"done"}))
     (is (= (count fn-deps) 3))