pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 04:11:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Show in dump output if window is side window

Browse source
This commit is contained in:
Benson Chu 2023-03-24 16:21:09 -05:00
parent 9061660ace
commit 6dbe5ccfb8
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/dump-window-tree.el
View file

@ -32,11 +32,15 @@
(defun my/window-tree-to-dot (window) (defun my/window-tree-to-dot (window)
(when window (when window
(let ((window-id (my/get-window-id window)) (let ((window-id (my/get-window-id window))
(side (window-parameter window 'window-side))
(buffer (window-buffer window)) (buffer (window-buffer window))
(child (window-child window))) (child (window-child window)))
(insert (insert
(format "%d [label=\"%d\n%s\"]\n" (format "%d [label=\"%d\n%s%s\"]\n"
window-id window-id (if buffer (buffer-name buffer) ""))) window-id window-id
(or (and side (format "[%s]\n" side))
"")
(if buffer (buffer-name buffer) "")))
(while child (while child
(insert (insert
(format "%s -> %s\n" (format "%s -> %s\n"