You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
8 lines
324 B
EmacsLisp
8 lines
324 B
EmacsLisp
2 years ago
|
(defun init-display-buffer-frame-wide-p ()
|
||
2 years ago
|
(> (frame-pixel-width) (/ (x-display-pixel-width) 2)))
|
||
|
|
||
2 years ago
|
(defun init-display-buffer-best-side (buffer alist)
|
||
2 years ago
|
(let* ((side (funcall (alist-get 'which-side alist)))
|
||
|
(alist (append (cdr alist) (list (cons 'side side)))))
|
||
|
(display-buffer-in-side-window buffer alist)))
|