CLJS-2725: Doc on spec keywords

Author: mfikes

src/main/cljs/cljs/repl.cljs

@@ -12,7 +12,7 @@
 
 (defn print-doc [{n :ns nm :name :as m}]
   (println "-------------------------")
-  (println (str (when-let [ns (:ns m)] (str ns "/")) (:name m)))
+  (println (or (:spec m) (str (when-let [ns (:ns m)] (str ns "/")) (:name m))))
   (when (:protocol m)
     (println "Protocol"))
   (cond
@@ -38,6 +38,8 @@
     (do
       (when (:macro m)
         (println "Macro"))
+      (when (:spec m)
+        (println "Spec"))
       (when (:repl-special-function m)
         (println "REPL Special Function"))
       (println " " (:doc m))

src/main/clojure/cljs/repl.cljc

@@ -1231,7 +1231,8 @@ itself (not its value) is returned. The reader macro #'x expands to (var x)."}})
     :repl-special-function true))
 
 (defmacro doc
-  "Prints documentation for a var or special form given its name"
+  "Prints documentation for a var or special form given its name,
+  or for a spec if given a keyword"
   [name]
   `(print
      (binding [cljs.core/*print-newline* true]
@@ -1245,6 +1246,9 @@ itself (not its value) is returned. The reader macro #'x expands to (var x)."}})
               (repl-special-doc-map name)
               `(cljs.repl/print-doc (quote ~(repl-special-doc name)))
 
+              (keyword? name)
+              `(cljs.repl/print-doc {:spec ~name :doc (cljs.spec.alpha/describe ~name)})
+
               (ana-api/find-ns name)
               `(cljs.repl/print-doc
                  (quote ~(select-keys (ana-api/find-ns name) [:name :doc])))