Abbreviate printing of AFunction objects

Instead of printing as
  #object[clojure.core$_PLUS_ 0x4e648e99 "clojure.core$_PLUS_@4e648e99"]
they are now printed as
  #function clojure.core/+

src/cider/nrepl/middleware/out.clj

@@ -9,10 +9,25 @@
   guarantee that the channel that sent the clone message will properly
   handle output replies."
   (:require [cider.nrepl.middleware.util.cljs :as cljs]
+            [clojure.string :as s]
             [clojure.tools.nrepl.middleware :refer [set-descriptor!]]
             [clojure.tools.nrepl.middleware.interruptible-eval :as ie]
             [clojure.tools.nrepl.middleware.session :as session])
-  (:import [java.io PrintWriter Writer]))
+  (:import clojure.lang.AFunction
+           [java.io PrintWriter Writer]))
+
+;;; Prettier version of function objects
+(defmethod print-method AFunction [c ^Writer w]
+  (.write w "#function ")
+  (.write w (-> (.getName (class c))
+                (s/replace-first "$" "/")
+                (s/replace "_QMARK_" "?")
+                (s/replace "_PLUS_" "+")
+                (s/replace "_BANG_" "!")
+                (s/replace "_EQ_" "=")
+                (s/replace "_SLASH_" "/")
+                (s/replace "_STAR_" "*")
+                (s/replace "_" "-"))))
 
 ;;; OutStream
 (defonce original-out *out*)