;; -*- lexical-binding: t; -*-


;;;; popper
(use-package popper
  :demand t
  :bind (("C-`" . 'popper-toggle-latest)
         ("M-`" . 'popper-cycle)
         ("C-M-`" . popper-toggle-type))
  :config
  (popper-mode)
  (popper-echo-mode)
  :custom
  (popper-reference-buffers
   '(("Output\\*$" . hide)
     ("\\*Async Shell Command\\*.*" . hide)
     "^\\*shell.*\\*$" shell-mode
     "^\\*eshell.*\\*$" eshell-mode
     "^\\*term.*\\*$" term-mode
     messages-buffer-mode
     help-mode
     Info-mode
     occur-mode
     compilation-mode
     emms-playlist-mode
     emms-browser-mode))
  (popper-display-control 't)
  (popper-mode-line '(:eval (propertize " P" 'face 'mode-line-emphasis))))


;;;; buffer defaults for default buffers
(add-to-list 'display-buffer-alist
             '((or (derived-mode . term-mode)
                   (derived-mode . eshell-mode)
                   (derived-mode . shell-mode))
               (display-buffer-in-side-window)
               (side . top)
               (window-height . 15)))


(provide 'bd--popper)