[elpa] externals/vertico 420fefe 3/6: Rename horizontico to vertico-flat

[ELPA Syncer]

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

    Rename horizontico to vertico-flat
---
 README.org                                     |  5 ++--
 extensions/{horizontico.el => vertico-flat.el} | 36 ++++++++++++--------------
 2 files changed, 19 insertions(+), 22 deletions(-)

diff --git a/README.org b/README.org
index 4e54b39..61f24ff 100644
--- a/README.org
+++ b/README.org
@@ -152,8 +152,8 @@
   We maintain a few small extension packages to Vertico in this repository
   in the subdirectory 
[[https://github.com/minad/vertico/tree/main/extensions][extensions/]]. 
Currently these extensions are available:
 
-  - 
[[https://github.com/minad/vertico/blob/main/extensions/horizontico.el][horizontico.el]]:
 HORIZONTal Interactive COmpletion
   - 
[[https://github.com/minad/vertico/blob/main/extensions/vertico-buffer.el][vertico-buffer.el]]:
 Offers =vertico-buffer-mode= to display Vertico in a separate buffer
+  - 
[[https://github.com/minad/vertico/blob/main/extensions/vertico-flat.el][vertico-flat.el]]:
 Flat, horizontal display for Vertico
   - 
[[https://github.com/minad/vertico/blob/main/extensions/vertico-directory.el][vertico-directory.el]]:
 Commands for Ido-like directory navigation
   - 
[[https://github.com/minad/vertico/blob/main/extensions/vertico-repeat.el][vertico-repeat.el]]:
 The command =vertico-repeate= repeats the last completion session
   - 
[[https://github.com/minad/vertico/blob/main/extensions/vertico-reverse.el][vertico-reverse.el]]:
 Offers =vertico-reverse-mode=, which reverses the display
@@ -218,7 +218,8 @@
     ([[https://github.com/raxod502/selectrum/issues/481][Issue #481]]), since 
it uses its own filtering infrastructure, which deviates
     from the standard Emacs completion facilities. Selectrum supports 
additional
     Avy-style quick keys. Vertico additionally has the ability to cycle over
-    candidates and offers more commands for grouping support.
+    candidates, offers more commands for grouping support and comes with
+    optional [[#extensions][extensions]].
   - [[https://github.com/oantolin/icomplete-vertical][Icomplete-vertical]]: 
This package enhances the Emacs builtin Icomplete with a
     vertical display. In contrast to Vertico, the candidates are rotated such 
that
     the current candidate always appears at the top. From my perspective,
diff --git a/extensions/horizontico.el b/extensions/vertico-flat.el
similarity index 67%
rename from extensions/horizontico.el
rename to extensions/vertico-flat.el
index 856d186..cba6ee5 100644
--- a/extensions/horizontico.el
+++ b/extensions/vertico-flat.el
@@ -1,4 +1,4 @@
-;;; horizontico.el --- HORIZONTal Interactive COmpletion -*- lexical-binding: 
t -*-
+;;; vertico-flat.el --- Flat, horizontal display for Vertico -*- 
lexical-binding: t -*-
 
 ;; Copyright (C) 2021  Free Software Foundation, Inc.
 
@@ -27,10 +27,9 @@
 
 (require 'vertico)
 
-(defvar horizontico--orig-group-format nil)
-(defvar horizontico--orig-count nil)
+(defvar vertico-flat--group-format nil)
 
-(defun horizontico--display (candidates)
+(defun vertico-flat--display (candidates)
   "Display CANDIDATES horizontally."
   (move-overlay vertico--candidates-ov (point-max) (point-max))
   (when (>= vertico--index 0)
@@ -56,27 +55,24 @@
                (concat "{" (string-join candidates " | ") "}")
              "[No match]"))))
 
-(defun horizontico--disable-annotations (_ candidates)
+(defun vertico-flat--disable-annotations (_ candidates)
   "Return CANDIDATES without adding annotations."
   candidates)
 
 ;;;###autoload
-(define-minor-mode horizontico-mode
-  "HORIZONTal Interactive COmpletion."
+(define-minor-mode vertico-flat-mode
+  "Flat, horizontal display for Vertico."
   :global t
   (cond
-   (horizontico-mode
-    (setq horizontico--orig-group-format vertico-group-format
-          horizontico--orig-count vertico-count
-          vertico-group-format nil
-          vertico-count 20)
-    (advice-add #'vertico--affixate :override 
#'horizontico--disable-annotations)
-    (advice-add #'vertico--display-candidates :override 
#'horizontico--display))
+   (vertico-flat-mode
+    (setq vertico-flat--group-format vertico-group-format
+          vertico-group-format nil)
+    (advice-add #'vertico--affixate :override 
#'vertico-flat--disable-annotations)
+    (advice-add #'vertico--display-candidates :override 
#'vertico-flat--display))
    (t
-    (setq vertico-group-format horizontico--orig-group-format
-          vertico-count horizontico--orig-count)
-    (advice-remove #'vertico--affixate #'horizontico--disable-annotations)
-    (advice-remove #'vertico--display-candidates #'horizontico--display))))
+    (setq vertico-group-format vertico-flat--group-format)
+    (advice-remove #'vertico--affixate #'vertico-flat--disable-annotations)
+    (advice-remove #'vertico--display-candidates #'vertico-flat--display))))
 
-(provide 'horizontico)
-;;; horizontico.el ends here
+(provide 'vertico-flat)
+;;; vertico-flat.el ends here