diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-29 09:56:00 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-29 12:51:04 -0700 |
| commit | 004ee1ebe822a41e21ad0543d1d889466ccd0535 (patch) | |
| tree | be84b588de531d459992e497ebcd70de8621f5ce | |
| parent | 04b7562a81d27e94f251e819b3a8994712eee91d (diff) | |
| download | dotfiles-004ee1ebe822a41e21ad0543d1d889466ccd0535.tar.gz | |
improve displaying SLIME side windows & update comments
Nested debugger levels don't have separate buffers to display.
| -rw-r--r-- | .emacs.d/init.el | 23 |
1 files 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) |