[elpa] externals/vertico 64cdacd49c: Allow Vertico Indexed to start indexing at 1 instead of 0. (#266)

[ELPA Syncer]

branch: externals/vertico
commit 64cdacd49c60bb610a1dae74cbcb9581534a8ebd
Author: okamsn <28612288+okamsn@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Allow Vertico Indexed to start indexing at 1 instead of 0. (#266)
    
    This affects what is shown before the candidate and how prefix arguments are
    interpreted.
    
    Co-authored-by: okamsn <okamsn@users.noreply.github.com>
---
 extensions/vertico-indexed.el | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/extensions/vertico-indexed.el b/extensions/vertico-indexed.el
index e166e24ed3..482a2254a2 100644
--- a/extensions/vertico-indexed.el
+++ b/extensions/vertico-indexed.el
@@ -40,6 +40,11 @@
   "Face used for the candidate index prefix."
   :group 'vertico-faces)
 
+(defcustom vertico-indexed-start 0
+  "Start of the indexing."
+  :group 'vertico
+  :type 'integer)
+
 (defvar vertico-indexed--commands
   '(vertico-insert vertico-exit vertico-directory-enter))
 (defvar-local vertico-indexed--min 0)
@@ -50,8 +55,9 @@
   (setq vertico-indexed--min start vertico-indexed--max index)
   (funcall orig cand
            (concat (propertize (format
-                                (format "%%%ds " (if (> vertico-count 10) 2 1))
-                                (- index start))
+                                (if (> (+ vertico-indexed-start vertico-count) 
10)
+                                    "%2d " "%1d ")
+                                (+ (- index start) vertico-indexed-start))
                                'face 'vertico-indexed)
                    prefix)
            suffix index start))
@@ -59,7 +65,9 @@
 (defun vertico-indexed--handle-prefix (orig &rest args)
   "Handle prefix argument before calling ORIG function with ARGS."
   (if (and current-prefix-arg (called-interactively-p t))
-      (let ((vertico--index (+ vertico-indexed--min (prefix-numeric-value 
current-prefix-arg))))
+      (let ((vertico--index (+ vertico-indexed--min
+                               (- (prefix-numeric-value current-prefix-arg)
+                                  vertico-indexed-start))))
         (if (or (< vertico--index vertico-indexed--min)
                 (> vertico--index vertico-indexed--max)
                 (= vertico--total 0))