Change how docstring is formatted in ClojureDocs buffer

clojure-emacs · Jun 4, 2024 · c8c4381 · c8c4381
1 parent 0916372
commit c8c4381
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/cider-clojuredocs.el b/cider-clojuredocs.el
@@ -116,9 +116,12 @@ opposite of what that option dictates."
     (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"))
+      (when-let* ((doc (nrepl-dict-get dict "doc"))
+                  ;; As this is a literal docstring from the source code and
+                  ;; there are two spaces at the beginning of lines in docstrings,
+                  ;; we remove them to make it align nicely in ClojureDocs buffer.
+                  (doc (replace-regexp-in-string "\n  " "\n" doc)))
+        (insert "\n" doc "\n")))
     (insert "\n== See Also\n\n")
     (if-let ((see-alsos (nrepl-dict-get dict "see-alsos")))
         (dolist (see-also see-alsos)