From 244dc53be80e24bb142e03d0a00940f323a0d78f Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 12 Oct 2021 00:02:51 -0500
Subject: Configure popper.el

---
 init.el | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 09bd7f4..a5b77ba 100644
--- a/init.el
+++ b/init.el
@@ -2332,7 +2332,32 @@ the default is \"/\"."
              ,(rx "Output*" eol)
              ,(rx "*Async Shell Command*")
              help-mode helpful-mode
-             compilation-mode))
+             compilation-mode)
+           popper-mode-line nil
+           popper-display-control t
+           popper-display-function
+           (defun popper/select-popup-smartly (buffer &optional _alist)
+             (let* ((widep (> (frame-pixel-width) (frame-pixel-height)))
+                    (window (display-buffer-in-side-window
+                             buffer
+                             `((side . ,(if widep 'right 'bottom))
+                               (slot . 1)
+                               ,(if widep
+                                    (cons 'window-width
+                                          popper-window-height)
+                                  (cons 'window-height
+                                        popper-window-height))))))
+               (select-window window)))
+           popper-window-height
+           (defun popper/figure-window-height (window)
+             (let* ((widep (> (frame-pixel-width) (frame-pixel-height)))
+                    (fit-window-to-buffer-horizontally widep))
+               (fit-window-to-buffer
+                window
+                (floor (frame-pixel-height) 2)
+                (floor (frame-pixel-height) 4)
+                fill-column
+                fill-column))))
   (:global "M-`" #'popper-toggle-latest
            "C-`" #'popper-cycle)
   (popper-mode +1)
-- 
cgit 1.4.1-21-gabe81