User evil-normal-state as ininitial only with some modes.

.gitignore

@@ -32,3 +32,4 @@ workspace/
 /.mc-lists.el
 /eshell/
 /.emacs.desktop
+/.tutor/

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)
+              ("<tab>" . corfu-quit)
-               ("<escape>" . corfu-quit)
+              ("<escape>" . corfu-quit)
-               ("<SPC>" . coruf-insert-separator)))
+              ("<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).

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
+  ;; Arreglar el problemita con corfu-quit y el cambio de modos
-  (setq evil-insert-state-map (make-sparse-keymap))
+  (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
@@ -101,12 +109,18 @@
   (evil-define-key 'motion 'global (kbd "<leader>rg") 'consult-ripgrep)            ;; Búsqueda rápida con ripgrep
   (evil-define-key 'motion 'global (kbd "<leader>gi") 'imenu)                      ;; imenu
 
-  ;; Iniciar en normal state si es un lenguaje de programación u org-mode
+  ;; Iniciar en normal state solo en modos específicos
-  ;; (evil-set-initial-state 'prog-mode 'normal)
+  (setq evil-default-state 'emacs) ;; Modo por defecto en emacs
-  ;; (evil-set-initial-state 'org-mode 'normal)
+  (evil-set-initial-state 'prog-mode 'normal)
+  (evil-set-initial-state 'org-mode 'normal)
+  (evil-set-initial-state 'text-mode 'normal)
+  (evil-set-initial-state 'csv-mode 'normal)
+  (evil-set-initial-state 'fundamental-mode 'normal)
   (evil-set-initial-state 'dashboard-mode 'normal)
   (evil-set-initial-state 'dired 'normal)
-  (evil-set-initial-state 'vterm-mode 'emacs)
+  ;; (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 +132,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