awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-05 12:37:33 -05:00
Code Issues Packages Projects Releases 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
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))