From 004ee1ebe822a41e21ad0543d1d889466ccd0535 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 29 Mar 2023 09:56:00 -0700 Subject: improve displaying SLIME side windows & update comments Nested debugger levels don't have separate buffers to display. --- .emacs.d/init.el | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 2e726208..e4d1b50d 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -1494,18 +1494,17 @@ don't consider windows satisfying the predicate EXCLUDE." ;; These SLIME windows don't benefit from a lot of height and it is ;; useful to have them be independent of the main two windows - ;; displaying code, Magit etc. Get going by hitting C-c C-z to bring - ;; up the REPL. - ("\\*\\(slime\\|sly\\)-\\(inspector\\|compilation\\)\\*" - display-buffer-in-side-window - (window-height . 0.30) - (slot . 2) - (side . bottom)) - ("^\\*\\(sldb\\|sly-db\\)" - display-buffer-in-side-window - (window-height . 0.30) - (slot . 1) ;; we might have nested debuggers occupy a different slot - (side . bottom)) + ;; displaying code, the listener, etc. + ;; Get going by hitting C-c C-z to bring up the REPL. + ,@(cl-loop for i upfrom -1 + for re in '("^\\*\\(?:slime\\|sly\\)-compilation" + "^\\*\\(?:slime\\|sly\\)-inspector" + "^\\*\\(?:sldb\\|sly-db\\).+/1\\*$" + "^\\*\\(?:sldb\\|sly-db\\)") + collect `(,re display-buffer-in-side-window + (window-height . 0.30) + (slot . ,i) + (side . bottom))) ("^\\*Calendar\\*$" (display-buffer-reuse-window display-buffer-below-selected) -- cgit v1.2.3