[elpa] externals/dape 7e184d193a 03/10: Add option to align variables table

[ELPA Syncer]

branch: externals/dape
commit 7e184d193a11da3d84274c3fa123c8b44b0bdaa9
Author: Daniel Pettersson <daniel@dpettersson.net>
Commit: Daniel Pettersson <daniel@dpettersson.net>

    Add option to align variables table
---
 dape.el | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/dape.el b/dape.el
index 0e6c63f467..68b7e87378 100644
--- a/dape.el
+++ b/dape.el
@@ -405,6 +405,10 @@ Each element should look like (MIME-TYPE . MODE) where
   "Hide mode line in dape info buffers."
   :type 'boolean)
 
+(defcustom dape-info-variable-table-aligned nil
+  "Align columns in variable tables."
+  :type 'boolean)
+
 (defcustom dape-info-variable-table-row-config `((name . 20)
                                                  (value . 50)
                                                  (type . 20))
@@ -3299,7 +3303,10 @@ Updates from CURRENT-STACK-FRAME STACK-FRAMES."
                  (type  . ,type)
                  (value . ,value))))
     (setcar row (concat prefix (car row)))
-    (gdb-table-add-row table row
+    (gdb-table-add-row table
+                       (if dape-info-variable-table-aligned
+                           row
+                         (list (mapconcat 'identity row " ")))
                        (list 'dape--info-variable object
                              'dape--info-path path
                              'dape--info-ref ref))
@@ -3344,7 +3351,8 @@ Buffer is specified by MODE and ID."
         (dape--info-group-2-related-buffers scopes))
   (cl-loop with table = (make-gdb-table)
            for object in (plist-get scope :variables)
-           initially (setf (gdb-table-right-align table) t)
+           initially (setf (gdb-table-right-align table)
+                           dape-info-variable-table-aligned)
            do
            (dape--info-scope-add-variable table
                                           object
@@ -3410,7 +3418,8 @@ Buffer is specified by MODE and ID."
       (insert "No watched variable.")
     (cl-loop with table = (make-gdb-table)
              for watch in dape--watched
-             initially (setf (gdb-table-right-align table) t)
+             initially (setf (gdb-table-right-align table)
+                             dape-info-variable-table-aligned)
              do
              (dape--info-scope-add-variable table watch
                                             'watch