diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-07-10 10:08:16 +0100 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-07-10 10:08:52 +0100 |
commit | 3286f0041ace37ce2336615d539132dbb61aa4c4 (patch) | |
tree | d8778410002198cfa1ba7e775327fc7caa2b4e4d /cider-debug.el | |
parent | a13b61fd32e38481893734b6749f246aabddc1d5 (diff) |
Configurable print-level and length for debugger values
Diffstat (limited to 'cider-debug.el')
-rw-r--r-- | cider-debug.el | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/cider-debug.el b/cider-debug.el index 1ed0076e..05e8b531 100644 --- a/cider-debug.el +++ b/cider-debug.el @@ -90,6 +90,22 @@ configure `cider-debug-prompt' instead." :group'cider-debug :package-version"0.9.1") +(defcustom cider-debug-print-level nil + "print-level for values displayed by the debugger. +This variable must be set before starting the repl connection." + :type '(choice (const :tag "No limit" nil) + (integer :tag "Max depth" 2)) + :group 'cider-debug + :package-version '(cider-debug . "0.10.0")) + +(defcustom cider-debug-print-length nil + "print-length for values displayed by the debugger. +This variable must be set before starting the repl connection." + :type '(choice (const :tag "No limit" nil) + (integer :tag "Max depth" 4)) + :group 'cider-debug + :package-version '(cider-debug . "0.10.0")) + ;;; Implementation (defun cider--update-instrumented-defs (defs) @@ -134,7 +150,9 @@ configure `cider-debug-prompt' instead." (defun cider--debug-init-connection () "Initialize a connection with clj-debugger." (nrepl-send-request - '("op" "init-debugger") + '("op" "init-debugger" + "print-level" cider-debug-print-level + "print-length" cider-debug-print-length) (lambda (response) (nrepl-dbind-response response (status id instrumented-defs ns) (if (not (member "done" status)) |