diff options
| -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) |