From 1752b38dc1546b2248a56cfd3ef3a9111f9c9346 Mon Sep 17 00:00:00 2001
From: KJ <webmaster@outcontrol.net>
Date: Tue, 10 Sep 2024 12:36:16 -0400
Subject: [PATCH] Fix problem with corfu-quit and evil.

---
 configs/init-corfu.el |  7 ++++---
 configs/init-evil.el  | 21 ++++++++++++++++++---
 2 files changed, 22 insertions(+), 6 deletions(-)

diff --git a/configs/init-corfu.el b/configs/init-corfu.el
index 428d166..8f9c7fc 100644
--- a/configs/init-corfu.el
+++ b/configs/init-corfu.el
@@ -22,9 +22,9 @@
   :hook ((elpaca-after-init . global-corfu-mode)
          (corfu-mode . corfu-popupinfo-mode))
   :bind (:map corfu-map
-              (("<tab>" . corfu-quit)
-               ("<escape>" . corfu-quit)
-               ("<SPC>" . coruf-insert-separator)))
+              ("<tab>" . corfu-quit)
+              ("<escape>" . corfu-quit)
+              ("<SPC>" . corfu-insert-separator))
   :custom
   (corfu-auto t)
   :config
@@ -58,6 +58,7 @@
          ("C-c l" . cape-line)
          ("C-c _" . cape-tex))
   :init
+  (setq text-mode-ispell-word-completion nil)
   ;; (add-to-list 'completion-at-point-functions #'cape-line)     ;; Completar línea actual en función de lo que dice otras líneas de buffer.
   ;; (add-to-list 'completion-at-point-functions #'cape-tex)      ;; Completar Latex (caracteres unicode).
   (add-to-list 'completion-at-point-functions #'cape-dict)     ;; Completar desde un diccionario (por defecto toma el de linux que está en /usr/share/dict/words).
diff --git a/configs/init-evil.el b/configs/init-evil.el
index fbd7bf8..c909d88 100644
--- a/configs/init-evil.el
+++ b/configs/init-evil.el
@@ -15,17 +15,25 @@
 (use-package evil
   :defer t
   :hook (elpaca-after-init . evil-mode)
+  :init
+  (setq evil-want-keybinding nil)
+  ;; Habilitar atajos de de tecla de emacs en insert state
+  (setq evil-disable-insert-state-bindings t)
   :config
   ;; Configuraciones básicas
   ;; (setq evil-default-state 'emacs) ;; Modo por defecto en emacs
-  (setq evil-default-state 'insert) ;; Modo por defecto en emacs
+  ;; (setq evil-default-state 'insert) ;; Modo por defecto en emacs
   (setq evil-emacs-state-cursor 'bar) ;; Cursor de emacs state en bar
   ;; (setq evil-normal-state-cursor 'bar) ;; Cursor de normal state en bar en lugar de box
   (evil-set-leader 'motion (kbd "SPC")) ;; Leader key
   (evil-set-undo-system 'undo-redo)
 
-  ;; Habilitar atajos de de tecla de emacs en insert state
-  (setq evil-insert-state-map (make-sparse-keymap))
+  ;; Arreglar el problemita con corfu
+  (evil-define-key 'insert 'global (kbd "<escape>") '(lambda ()
+                                                      "Call `corfu-quit' and then return to Normal State."
+                                                      (interactive)
+                                                      (call-interactively 'corfu-quit)
+                                                      (evil-normal-state)))
 
   ;; (evil-define-key 'normal 'global (kbd "<escape>") 'corfu-quit)
   ;; Cambiar a mode emacs con escape
@@ -107,6 +115,8 @@
   (evil-set-initial-state 'dashboard-mode 'normal)
   (evil-set-initial-state 'dired 'normal)
   (evil-set-initial-state 'vterm-mode 'emacs)
+  (evil-set-initial-state 'magit-mode 'emacs)
+  (evil-set-initial-state 'git-commit-mode 'emacs)
   )
 
 ;; Funciones y atajos de teclas especiales para evil cuando estamo en org-mode.
@@ -118,5 +128,10 @@
   :after org
   :hook (org-mode . evil-org-mode))
 
+;; Similar a Vimtutor, pero para evil.
+(use-package evil-tutor
+  :defer t
+  :ensure t)
+
 (provide 'init-evil)
 ;;; init-evil.el ends here