[nongnu] elpa/geiser-guile f9b0828e15 2/2: new option geiser-guile-debug-backwards-backtrace

[ELPA Syncer]

branch: elpa/geiser-guile
commit f9b0828e1599078c596df0100886d4199b9b62bc
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    new option geiser-guile-debug-backwards-backtrace
    
    Fixes #24
---
 geiser-guile.el | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/geiser-guile.el b/geiser-guile.el
index e5f6476517..4bb014cb46 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -79,15 +79,22 @@ exported modules."
   :type 'boolean
   :link '(info-link "(guile) Declarative Modules"))
 
+(geiser-custom--defcustom geiser-guile-debug-backwards-backtrace t
+  "Whether to configure backtraces using the 'backwards' ordering."
+  :type 'boolean)
+
+(geiser-custom--defcustom geiser-guile-debug-terminal-width 999
+  "Maximum number of columns shown in backtraces.
+Normally, you'd want a big value here so that messages are not
+truncated.  Set to a negative value if you prefer that geiser
+does not set it on startup."
+  :type 'integer)
+
 (geiser-custom--defcustom geiser-guile-debug-show-bt-p t
   "Whether to automatically show a full backtrace when entering the debugger.
 If nil, only the last frame is shown."
   :type 'boolean)
 
-(geiser-custom--defcustom geiser-guile-debug-backwards-backtrace t
-  "Whether to configure backtraces using the 'backwards' ordering."
-  :type 'boolean)
-
 (geiser-custom--defcustom geiser-guile-debug-show-full-bt-p t
   "Whether to show full backtraces in the debugger, including local variables."
   :type 'boolean)
@@ -502,9 +509,13 @@ See `geiser-guile-use-declarative-modules-p'."
       (geiser-eval--send/wait code))))
 
 (defun geiser-guile--set-up-backtrace ()
-  "Set up Guile's backtrace ordering."
+  "Set up Guile's backtrace properties."
   (when geiser-guile-debug-backwards-backtrace
-    (geiser-eval--send/wait '(debug-enable 'backwards))))
+    (geiser-eval--send/wait '(debug-enable 'backwards)))
+  (when (> geiser-guile-debug-terminal-width 0)
+    (geiser-eval--send/wait `(begin ((@ (system repl debug) terminal-width)
+                                     ,geiser-guile-debug-terminal-width)
+                                    'ok))))
 
 (defun geiser-guile--startup (remote)
   "Startup function, for a remote connection if REMOTE is t."