summaryrefslogtreecommitdiff
path: root/config/display-buffer/config-display-buffer-best-side.el
blob: 9a2ff486313c358e75e6f0d65e121e202bf92087 (plain)
1
2
3
4
5
6
7
(defun config-display-buffer-frame-wide-p ()
  (> (frame-pixel-width) (/ (x-display-pixel-width) 2)))

(defun config-display-buffer-best-side (buffer alist)
  (let* ((side (funcall (alist-get 'which-side alist)))
         (alist (append (cdr alist) (list (cons 'side side)))))
    (display-buffer-in-side-window buffer alist)))