Introduce cljr-print-right-margin, cljr-print-miser-width customization options

Fixes #504

Author: vemv

CHANGELOG.md

@@ -2,6 +2,10 @@
 
 ## Unreleased
 
+## 3.2.0 (2021-11-16)
+
+- [#504](https://github.com/clojure-emacs/clj-refactor.el/issues/504): Introduce `cljr-print-right-margin`, `cljr-print-miser-width` customization options which control the line wrapping of ns forms after formatting them (as performed after `clean-ns`, `rename-file-or-dir`, etc).
+
 ## 3.1.0 (2021-11-10)
 
 - Use refactor-nrepl [3.1.0](https://github.com/clojure-emacs/refactor-nrepl/blob/a6b052809e6c2c8b077bf0ae4684e05af0a5f484/CHANGELOG.md#310-2021-11-09).

README.md

@@ -69,8 +69,9 @@ clj-refactor | refactor-nrepl | CIDER       | Clojure | Java |
 -------------|----------------|-------------|---------|------|
 2.4.0        |  2.4.0         | 0.17, 0.18  | 1.7+    | 8+   |
 2.5.0        |  2.5.0         | 0.24        | 1.8+    | 8+   |
-3.0.0.       |  3.0.0         | 1.0         | 1.8+    | 8+   |
-3.1.0.       |  3.1.0         | 1.0         | 1.8+    | 8+   |
+3.0.0        |  3.0.0         | 1.0         | 1.8+    | 8+   |
+3.1.0        |  3.1.0         | 1.0         | 1.8+    | 8+   |
+3.2.0        |  3.1.0         | 1.0         | 1.8+    | 8+   |
 
 ### Middleware
 

clj-refactor.el

@@ -7,7 +7,7 @@
 ;;         Lars Andersen <[email protected]>
 ;;         Benedek Fazekas <[email protected]>
 ;;         Bozhidar Batsov <[email protected]>
-;; Version: 3.1.0
+;; Version: 3.2.0
 ;; Keywords: convenience, clojure, cider
 
 ;; Package-Requires: ((emacs "26.1") (seq "2.19") (yasnippet "0.6.1") (paredit "24") (multiple-cursors "1.2.2") (clojure-mode "5.9") (cider "1.0") (parseedn "1.0.6") (inflections "2.3") (hydra "0.13.2"))
@@ -2780,6 +2780,30 @@ Also adds the alias prefix to all occurrences of public symbols in the namespace
     (insert new-ns)
     (cljr--just-one-blank-line)))
 
+(defcustom cljr-print-right-margin "72"
+  "Will be forwarded to `clojure.pprint/*print-right-margin*'
+when refactor-nrepl pretty-prints ns forms,
+as performed after `clean-ns', `rename-file-or-dir', etc.
+You can set it to the string \"nil\" for disabling line wrapping.
+
+See also: `cljr-print-miser-width'."
+  :group 'cljr
+  :type 'string
+  :safe #'stringp
+  :package-version "3.2.0")
+
+(defcustom cljr-print-miser-width "40"
+  "Will be forwarded to `clojure.pprint/*print-miser-width*'
+when refactor-nrepl pretty-prints ns forms,
+as performed after `clean-ns', `rename-file-or-dir', etc.
+You can set it to the string \"nil\" for disabling line wrapping.
+
+See also: `cljr-print-right-margin'."
+  :group 'cljr
+  :type 'string
+  :safe #'stringp
+  :package-version "3.2.0")
+
 (defun cljr--clean-ns (&optional path no-prune?)
   "If PATH is passed use that instead of the path to the current buffer
 
@@ -2796,6 +2820,8 @@ removed."
                                          "path" path
                                          "relative-path" relative-path
                                          "libspec-whitelist" cljr-libspec-whitelist
+                                         "print-right-margin" cljr-print-right-margin
+                                         "print-miser-width" cljr-print-miser-width
                                          "prune-ns-form" (if no-prune? "false"
                                                            "true"))
                        "ns"))