emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Refactor doom-popup-size (cond -> pcase)

Browse source
This commit is contained in:
Henrik Lissner 2017-07-11 01:08:30 +02:00
parent d6133adef0
commit 9c7e431de7
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
core/autoload/popups.el
View file

@ -169,11 +169,9 @@ only close popups that have an :autoclose property in their rule (see
;;;###autoload ;;;###autoload
(defun doom-popup-size (&optional window) (defun doom-popup-size (&optional window)
"Return the size of a popup WINDOW." "Return the size of a popup WINDOW."
(let ((side (doom-popup-side window))) (pcase (doom-popup-side window)
(cond ((memq side '(left right)) ((or 'left 'right) (window-width window))
(window-width window)) ((or 'above 'below) (window-height window))))
((memq side '(above below))
(window-height window)))))
(defun doom--popup-data (window) (defun doom--popup-data (window)
(when-let (buffer (window-buffer window)) (when-let (buffer (window-buffer window))