Info middleware change to support protocol code navigation

info.clj

(defn info
  [{:keys [ns symbol class member] :as msg}]
  (let [[ns symbol class member] (map u/as-sym [ns symbol class member])]
    (if-let [cljs-env (cljs/grab-cljs-env msg)]
      (info-cljs cljs-env symbol ns)
      (let [var-info (cond (and ns symbol) (clj-info/info ns symbol)
                           (and class member) (clj-info/info-java class member)
                           :else (throw (Exception.
                                         "Either \"symbol\", or (\"class\", \"member\") must be supplied")))
            ;; we have to use the resolved (real) namespace and name here
            see-also (clj-info/see-also (:ns var-info) (:name var-info))]
        (if (seq see-also)
          (merge {:see-also see-also} var-info)
          (if-let [p (:protocol var-info)]
            (let [proto (deref p)
                  x (filter #(extends? proto
                                       %)
                            (filter #(class? %)
                                    (map val (mapcat ns-imports (all-ns)))))
                  xs (map (fn [x]
                            (let [xs (clojure.string/split (pr-str x)
                                                           #"\.")]
                              (str (clojure.string/replace (clojure.string/join  "." (drop-last xs))
                                                           #"\_"
                                                           "-")
                                   "/map->"
                                   (last xs))))
                          x)]
              {:candidates (into {}
                                 (map (fn [s]
                                        [s (clj-info/info ns
                                                          (u/as-sym s))])
                                      xs))})
            var-info))))))