[elpa] externals/vertico be853e8: Shrink minibuffer when activating flat mode (Fix #101)

[ELPA Syncer]

branch: externals/vertico
commit be853e8ef60bf255ea4a5099805eb7492fcb0881
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Shrink minibuffer when activating flat mode (Fix #101)
---
 extensions/vertico-flat.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/extensions/vertico-flat.el b/extensions/vertico-flat.el
index 41c6155..8f3ef89 100644
--- a/extensions/vertico-flat.el
+++ b/extensions/vertico-flat.el
@@ -102,6 +102,9 @@
   :global t
   (cond
    (vertico-flat-mode
+    ;; Shrink current minibuffer window
+    (when-let (win (active-minibuffer-window))
+      (window-resize win (- (window-pixel-height)) nil nil 'pixelwise))
     (advice-add #'vertico--arrange-candidates :override 
#'vertico-flat--arrange-candidates)
     (advice-add #'vertico--display-candidates :override 
#'vertico-flat--display))
    (t