From 6709c1ec4118c8721df43ea6708ae45ebbc01fd3 Mon Sep 17 00:00:00 2001
From: Kisaragi Hiu <mail@kisaragi-hiu.com>
Date: Thu, 7 Oct 2021 07:45:13 +0900
Subject: [PATCH] vertico: add initial support

---
 evil-collection.el                       |  1 +
 modes/vertico/evil-collection-vertico.el | 57 ++++++++++++++++++++++++
 2 files changed, 58 insertions(+)
 create mode 100644 modes/vertico/evil-collection-vertico.el

diff --git a/evil-collection.el b/evil-collection.el
index eae9754..f9c2771 100644
--- a/evil-collection.el
+++ b/evil-collection.el
@@ -265,6 +265,7 @@ This will bind additional find-* type commands, e.g. usages, assignments, etc.."
     vc-dir
     vc-git
     vdiff
+    vertico
     view
     vlf
     vterm
diff --git a/modes/vertico/evil-collection-vertico.el b/modes/vertico/evil-collection-vertico.el
new file mode 100644
index 0000000..ce7e9f6
--- /dev/null
+++ b/modes/vertico/evil-collection-vertico.el
@@ -0,0 +1,57 @@
+;;; evil-collection-vertico.el --- Evil bindings for vertico -*- lexical-binding: t -*-
+
+;; Copyright (C) 2021 Kisaragi Hiu
+
+;; Author: Kisaragi Hiu <mail@kisaragi-hiu.com>
+;; URL: https://github.com/emacs-evil/evil-collection
+;; Version: 0.0.1
+;; Package-Requires: ((emacs "25.1"))
+;; Keywords: evil, vertico, tools
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;; Evil bindings for `vertico'.
+
+;;; Code:
+(require 'evil-collection)
+(require 'vertico nil t)
+
+;;;###autoload
+(defun evil-collection-vertico-setup ()
+  "Set up `evil' bindings for `vertico'."
+  (defvar evil-collection-setup-minibuffer)
+  (when evil-collection-setup-minibuffer
+    (when evil-want-C-u-scroll
+      (evil-collection-define-key 'normal 'vertico-map
+        (kbd "C-u") 'vertico-scroll-up)
+      (unless evil-want-C-u-delete
+        (evil-collection-define-key 'insert 'vertico-map
+          (kbd "C-u") 'vertico-scroll-up)))
+    (when evil-want-C-d-scroll
+      (evil-collection-define-key 'normal 'vertico-map
+        (kbd "C-d") 'vertico-scroll-down))
+
+    (evil-collection-define-key 'normal 'vertico-map
+      "gj" 'vertico-next-group
+      "gk" 'vertico-previous-group
+      "j" 'vertico-next
+      "k" 'vertico-previous)
+
+    (evil-collection-define-key 'insert 'vertico-map
+      (kbd "C-n") 'vertico-next
+      (kbd "C-p") 'vertico-previous)))
+
+(provide 'evil-collection-vertico)
+;;; evil-collection-vertico.el ends here