#+TITLE: Core - Window
#+AUTHOR: Juan Placencia

* Package

Define core window package.

#+BEGIN_SRC emacs-lisp
  (use-package emacs
    :after uno
    :config
    (provide 'uno-window))
#+END_SRC

* Display Buffer

Define where certain buffers go where in the window.

#+BEGIN_SRC emacs-lisp
  (use-package emacs
    :after uno-window
    :custom
    (display-buffer-alist nil)
    :init
    (defun uno/handle-side-window (buffer &optional side slot)
      "Support displaying BUFFER in a SIDE window for a SLOT."
      (let* ((-side (if (member side '(top left right)) side 'bottom))
             (-slot (if (integerp slot) slot 0))
             (-size (if (member -side '(left right))
                        'window-width
                      'window-height)))
        (push `(,buffer
                (display-buffer-in-side-window)
                (,-size . 0.25)
                (side . ,-side)
                (slot . ,-slot))
                display-buffer-alist)))
    :config
    (uno/handle-side-window "\\*Backtrace\\*")
    (uno/handle-side-window "\\*Compile-Log\\*")
    (uno/handle-side-window "\\*Completions\\*")
    (uno/handle-side-window "\\*eshell\\*" 'bottom -1)
    (uno/handle-side-window "\\*[Hh]elp\\*")
    (uno/handle-side-window "\\*Messages\\*")
    (uno/handle-side-window "\\*Warnings\\*"))
#+END_SRC