From 6dbe5ccfb882104bf4a35b9d1dd6a64f99019180 Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Fri, 24 Mar 2023 16:21:09 -0500 Subject: [PATCH] Show in dump output if window is side window --- lisp/dump-window-tree.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/dump-window-tree.el b/lisp/dump-window-tree.el index 538e720..664cc43 100644 --- a/lisp/dump-window-tree.el +++ b/lisp/dump-window-tree.el @@ -32,11 +32,15 @@ (defun my/window-tree-to-dot (window) (when window (let ((window-id (my/get-window-id window)) + (side (window-parameter window 'window-side)) (buffer (window-buffer window)) (child (window-child window))) (insert - (format "%d [label=\"%d\n%s\"]\n" - window-id window-id (if buffer (buffer-name buffer) ""))) + (format "%d [label=\"%d\n%s%s\"]\n" + window-id window-id + (or (and side (format "[%s]\n" side)) + "") + (if buffer (buffer-name buffer) ""))) (while child (insert (format "%s -> %s\n"