From 9c7e431de7eb3716519f86ce7cf8f020ac9192b8 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 11 Jul 2017 01:08:30 +0200 Subject: [PATCH] Refactor doom-popup-size (cond -> pcase) --- core/autoload/popups.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/core/autoload/popups.el b/core/autoload/popups.el index 6b4d29e6f..9d8e0501d 100644 --- a/core/autoload/popups.el +++ b/core/autoload/popups.el @@ -169,11 +169,9 @@ only close popups that have an :autoclose property in their rule (see ;;;###autoload (defun doom-popup-size (&optional window) "Return the size of a popup WINDOW." - (let ((side (doom-popup-side window))) - (cond ((memq side '(left right)) - (window-width window)) - ((memq side '(above below)) - (window-height window))))) + (pcase (doom-popup-side window) + ((or 'left 'right) (window-width window)) + ((or 'above 'below) (window-height window)))) (defun doom--popup-data (window) (when-let (buffer (window-buffer window))