diff options
| author | Michael Griffiths <mikey@cich.li> | 2015-12-03 16:08:21 +0000 |
|---|---|---|
| committer | Michael Griffiths <mikey@cich.li> | 2015-12-12 01:54:29 +0000 |
| commit | 3784ed7927ba84fcabf8b8e22f7e7f8936491eb1 (patch) | |
| tree | 652b84d53de5a4238f25cf1f37dfb95a8a86e75b /cider-interaction.el | |
| parent | a8bf042786d7d054882418e8f4fed9ed648e2250 (diff) | |
Add cider-pprint-fn option
Fixes #1179.
Diffstat (limited to 'cider-interaction.el')
| -rw-r--r-- | cider-interaction.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/cider-interaction.el b/cider-interaction.el index 1802daf4..1b144188 100644 --- a/cider-interaction.el +++ b/cider-interaction.el @@ -793,6 +793,8 @@ into a new error buffer." (cider-nrepl-send-request (append (list "op" "stacktrace" "session" (cider-current-session)) + (when (cider--pprint-fn) + (list "pprint-fn" (cider--pprint-fn))) (when cider-stacktrace-print-length (list "print-length" cider-stacktrace-print-length)) (when cider-stacktrace-print-level @@ -1023,7 +1025,8 @@ the printed result, and defaults to `fill-column'." ;; always eval ns forms in the user namespace ;; otherwise trying to eval ns form for the first time will produce an error (if (cider-ns-form-p form) "user" (cider-current-ns)) - (or right-margin fill-column))) + (or right-margin fill-column) + (cider--pprint-fn))) (defun cider-eval-region (start end) "Evaluate the region between START and END." @@ -1346,6 +1349,7 @@ unloaded." (cider-nrepl-send-request (append (list "op" (if refresh-all? "refresh-all" "refresh") "print-length" cider-stacktrace-print-length "print-level" cider-stacktrace-print-level) + (when (cider--pprint-fn) (list "pprint-fn" (cider--pprint-fn))) (when cider-refresh-before-fn (list "before" cider-refresh-before-fn)) (when cider-refresh-after-fn (list "after" cider-refresh-after-fn))) (lambda (response) |