branch: elpa/cider
commit 61a615d051e435ea5272e3ac991517d194037cff
Author: Kato Muso <m...@katomuso.io>
Commit: Kato Muso <m...@katomuso.io>
Refactor cider-docstring--format
---
cider-docstring.el | 20 +++++++++-----------
1 file changed, 9 insertions(+), 11 deletions(-)
diff --git a/cider-docstring.el b/cider-docstring.el
index b8b3b5f9d0..be45f2ded4 100644
--- a/cider-docstring.el
+++ b/cider-docstring.el
@@ -147,17 +147,15 @@ Prioritize rendering as much as possible while staying
within `cider-docstring-m
(string (string-join (seq-take lines max-lines) "\n")))
(concat string (when (> (length lines) max-lines) "..."))))
-(defun cider-docstring--format (s)
- "Performs formatting of S, cleaning up some common whitespace issues."
- (when s
- (let* ((s (replace-regexp-in-string "\\. " ".\n\n" s)) ;; improve the
formatting of e.g. clojure.core/reduce
- (lines (split-string s "\n"))
- (result (mapconcat (lambda (f)
- ;; Remove spaces at the beginning of each
line, as it is common in many clojure.core defns:
- (replace-regexp-in-string "\\`[ ]+" "" f))
- lines
- "\n")))
- result)))
+(defun cider-docstring--format (string)
+ "Performs formatting of STRING, cleaning up some common whitespace issues."
+ (let* ((string (replace-regexp-in-string "\\. " ".\n\n" string)) ;; improve
the formatting of e.g. clojure.core/reduce
+ (string (mapconcat (lambda (line)
+ ;; Remove spaces at the beginning of each line,
as it is common in many clojure.core defns:
+ (replace-regexp-in-string "\\`[ ]+" "" line))
+ (split-string string "\n")
+ "\n")))
+ string))
(provide 'cider-docstring)
;;; cider-docstring.el ends here
