-
- ;; Make compilaition window always below
- (defun my-compilation-hook ()
- (when (not (get-buffer-window "*compilation*"))
- (split-window-vertically)
- ;; (save-selected-window
- ;; (save-excursion
- ;; (let* ((w (split-window-vertically))
- ;; (h (window-height w)))
- ;; (select-window w)
- ;; (switch-to-buffer "*compilation*")
- ;; (shrink-window (- h compilation-window-height)))))
- ))
- ;; (add-hook 'compilation-mode-hook 'my-compilation-hook)
-
-