selectrum: add experimental vertico flag

modules/config/default/+emacs-bindings.el

@@ -464,7 +464,7 @@
         "C-S-s"        #'swiper-helm
         "C-S-r"        #'helm-resume)
       (:when (featurep! :completion selectrum)
-        "C-S-r"        #'selectrum-repeat)
+        "C-S-r"        #'+selectrum/repeat)
 
       ;;; objed
       (:when (featurep! :editor objed +manual)

modules/config/default/+evil-bindings.el

@@ -204,16 +204,29 @@
         [C-return] #'helm-grep-run-other-window-action))
 
       (:when (featurep! :completion selectrum)
-       (:after selectrum
-        :map selectrum-minibuffer-map
-        "M-RET" #'selectrum-submit-exact-input
-        "C-SPC" #'+selectrum/embark-preview
-        "C-j"   #'selectrum-next-candidate
-        "C-M-j" #'+selectrum/next-candidate-preview
-        "C-S-j" #'selectrum-next-page
-        "C-k"   #'selectrum-previous-candidate
-        "C-M-k" #'+selectrum/previous-candidate-preview
-        "C-S-k" #'selectrum-previous-page)))
+       (:when (featurep! :completion selectrum +vertico)
+        (:after vertico
+         :map vertico-map
+         "M-RET" #'vertico-exit-input
+         "C-SPC" #'+selectrum/embark-preview
+         "C-j"   #'vertico-next
+         "C-M-j" #'+selectrum/next-candidate-preview
+         "C-S-j" #'vertico-next-group
+         "C-k"   #'vertico-previous
+         "C-M-k" #'+selectrum/previous-candidate-preview
+         "C-S-k" #'vertico-previous-group))
+       (:when (not (featurep! :completion selectrum +vertico))
+        (:after selectrum
+         :map selectrum-minibuffer-map
+         "M-RET" #'selectrum-submit-exact-input
+         "C-SPC" #'+selectrum/embark-preview
+         "C-j"   #'selectrum-next-candidate
+         "C-M-j" #'+selectrum/next-candidate-preview
+         "C-S-j" #'selectrum-next-page
+         "C-k"   #'selectrum-previous-candidate
+         "C-M-k" #'+selectrum/previous-candidate-preview
+         "C-S-k" #'selectrum-previous-page))))
+
 
 ;;; :ui
 (map! (:when (featurep! :ui popup)
@@ -305,7 +318,7 @@
       :desc "Resume last search"    "'"
       (cond ((featurep! :completion ivy)        #'ivy-resume)
             ((featurep! :completion helm)       #'helm-resume)
-            ((featurep! :completion selectrum)  #'selectrum-repeat))
+            ((featurep! :completion selectrum)  #'+selectrum/repeat))
 
       :desc "Search for symbol in project" "*" #'+default/search-project-for-symbol-at-point
       :desc "Search project"               "/" #'+default/search-project