[#2663] Implement displaying ClojureDocs data in an Emacs buffer

Author: bbatsov

cider-clojuredocs.el

@@ -94,10 +94,30 @@ opposite of what that option dictates."
 (defun cider-clojuredocs--content (dict)
   "Generate a nice string from DICT."
   (with-temp-buffer
-    (insert "= " (nrepl-dict-get dict "ns") "/" (nrepl-dict-get dict "name") "\n")
-    (insert "== See Also\n")
-    (insert "== Examples\n")
-    (insert "== Notes\n")
+    (insert "= " (nrepl-dict-get dict "ns") "/" (nrepl-dict-get dict "name") "\n\n")
+    (let ((arglists (nrepl-dict-get dict "arglists")))
+      (dolist (arglist arglists)
+        (insert (format " [%s]\n" arglist)))
+      (insert "\n")
+      (insert (nrepl-dict-get dict "doc"))
+      (insert "\n"))
+    (insert "\n== See Also\n\n")
+    (if-let ((see-alsos (nrepl-dict-get dict "see-alsos")))
+        (dolist (see-also see-alsos)
+          (insert (format "* %s\n" see-also)))
+      (insert "Not available\n"))
+    (insert "\n== Examples\n\n")
+    (if-let ((examples (nrepl-dict-get dict "examples")))
+        (dolist (example examples)
+          (insert (cider-font-lock-as-clojure example))
+          (insert "\n-------------------------------------------------\n"))
+      (insert "Not available\n"))
+    (insert "\n== Notes\n\n")
+    (if-let ((notes (nrepl-dict-get dict "notes")))
+        (dolist (note notes)
+          (insert note)
+          (insert "\n-------------------------------------------------\n"))
+      (insert "Not available\n"))
     (buffer-string)))
 
 (defun cider-clojuredocs-lookup (symbol)