[elpa] externals/vertico 3e16230: vertico-grid/flat-mode: Allow toggling between vertical/grid/flat mode

[ELPA Syncer]

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

    vertico-grid/flat-mode: Allow toggling between vertical/grid/flat mode
---
 extensions/vertico-flat.el | 6 ++++++
 extensions/vertico-grid.el | 9 +++++++++
 2 files changed, 15 insertions(+)

diff --git a/extensions/vertico-flat.el b/extensions/vertico-flat.el
index 20f7833..f2e788a 100644
--- a/extensions/vertico-flat.el
+++ b/extensions/vertico-flat.el
@@ -27,6 +27,9 @@
 ;;; Commentary:
 
 ;; This package is a Vertico extension providing a horizontal display.
+;;
+;; The mode can be bound to a key to toggle to the horizontal display.
+;; (define-key vertico-map "\M-F" #'vertico-flat-mode)
 
 ;;; Code:
 
@@ -102,6 +105,9 @@
   :global t :group 'vertico
   (cond
    (vertico-flat-mode
+    ;; Allow toggling between flat and grid modes
+    (when (fboundp #'vertico-grid-mode)
+      (vertico-grid-mode -1))
     ;; Shrink current minibuffer window
     (when-let (win (active-minibuffer-window))
       (window-resize win (- (window-pixel-height)) nil nil 'pixelwise))
diff --git a/extensions/vertico-grid.el b/extensions/vertico-grid.el
index 29c781a..6b3c40d 100644
--- a/extensions/vertico-grid.el
+++ b/extensions/vertico-grid.el
@@ -27,6 +27,9 @@
 ;;; Commentary:
 
 ;; This package is a Vertico extension providing a grid display.
+;;
+;; The mode can be bound to a key to toggle to the grid display.
+;; (define-key vertico-map "\M-G" #'vertico-grid-mode)
 
 ;;; Code:
 
@@ -132,6 +135,12 @@ When scrolling beyond this limit, candidates may be 
truncated."
   :global t :group 'vertico
   (cond
    (vertico-grid-mode
+    ;; Allow toggling between flat and grid modes
+    (when (fboundp #'vertico-flat-mode)
+      (vertico-flat-mode -1))
+    ;; Shrink current minibuffer window
+    (when-let (win (active-minibuffer-window))
+      (window-resize win (- (window-pixel-height)) nil nil 'pixelwise))
     (define-key vertico-map [remap left-char] #'vertico-grid-left)
     (define-key vertico-map [remap right-char] #'vertico-grid-right)
     (advice-add #'vertico--arrange-candidates :override 
#'vertico-grid--arrange-candidates))