Ad more evil configurations.

configs/init-company.el

@@ -30,10 +30,7 @@
         company-dabbrev-ignore-case nil
         company-dabbrev-downcase nil      ; autocompletado case-sensitive.
         company-global-modes '(not erc-mode message-mode help-mode
-                                   gud-mode eshell-mode shell-mode)
-        company-backends '((company-capf :with company-yasnippet)
-                           (company-dabbrev-code company-keywords company-files)
-                           company-dabbrev))
+                                   gud-mode eshell-mode shell-mode))
    :config
    (with-no-warnings
     ;; Company anywhere
@@ -82,49 +79,6 @@
             (overlay-put company-preview-overlay 'display after-string)
             (overlay-put company-preview-overlay 'after-string nil)))))
     (advice-add 'company-preview-show-at-point :after 'company-anywhere-preview-show-at-point)
-
-    ;; `yasnippet' integration
-    (with-eval-after-load 'yasnippet
-      (defun my-company-yasnippet ()
-        "Hide the current completeions and show snippets."
-        (interactive)
-        (company-cancel)
-        (call-interactively 'company-yasnippet))
-
-      (defun company-backend-with-yas (backend)
-        "Add `yasnippet' to company backend."
-        (if (and (listp backend) (member 'company-yasnippet backend))
-            backend
-          (append (if (consp backend) backend (list backend))
-                  '(:with company-yasnippet))))
-
-      (defun my-company-enbale-yas (&rest _)
-        "Enable `yasnippet' in `company'."
-        (setq company-backends (mapcar #'company-backend-with-yas company-backends)))
-
-      (defun my-lsp-fix-company-capf ()
-        "Remove redundant `comapny-capf'."
-        (setq company-backends
-              (remove 'company-backends (remq 'company-capf company-backends))))
-      (advice-add #'lsp-completion--enable :after #'my-lsp-fix-company-capf)
-
-      (defun my-company-yasnippet-disable-inline (fn cmd &optional arg &rest _ignore)
-        "Enable yasnippet but disable it inline."
-        (if (eq cmd  'prefix)
-            (when-let ((prefix (funcall fn 'prefix)))
-              (unless (memq (char-before (- (point) (length prefix)))
-                            '(?. ?< ?> ?\( ?\) ?\[ ?{ ?} ?\" ?' ?`))
-                prefix))
-          (progn
-            (when (and (bound-and-true-p lsp-mode)
-                       arg (not (get-text-property 0 'yas-annotation-patch arg)))
-              (let* ((name (get-text-property 0 'yas-annotation arg))
-                     (snip (format "%s (Snippet)" name))
-                     (len (length arg)))
-                (put-text-property 0 len 'yas-annotation snip arg)
-                (put-text-property 0 len 'yas-annotation-patch t arg)))
-            (funcall fn cmd arg))))
-      (advice-add #'company-yasnippet :around #'my-company-yasnippet-disable-inline))
     ))
 
 

configs/init-evil.el

@@ -11,12 +11,53 @@
   :straight t
   :hook (after-init . evil-mode)
   :config
+  ;; Configuraciones básicas
+  (setq evil-default-state 'emacs) ;; Modo por defecto en emacs
+  (setq evil-emacs-state-cursor 'bar) ;; Cursor de emacs state en bar
+  (evil-set-leader 'motion (kbd "SPC")) ;; Leader key
 
-  (setq evil-toggle-key "C-'")
-  (setq evil-default-state 'emacs)
-  (setq evil-emacs-state-cursor 'bar)
+  ;; Habilitar atajos de de tecla de emacs en insert state
+  (setq evil-insert-state-map (make-sparse-keymap))
+  (evil-define-key 'insert 'global (kbd "<escape>") 'evil-normal-state)
 
-  (evil-define-key '(normal insert visual replace operator motion emacs) 'global (kbd "C-z") 'evil-undo)
+  ;; Variales locales
+  (setq all-states '(normal insert visual replace operator motion emacs))
+  (setq vim-states '(normal insert visual replace operator motion))
+
+  (evil-define-key all-states 'global (kbd "C-z") 'evil-undo)
+  (evil-define-key vim-states 'global (kbd "C-'") 'evil-emacs-state)
+  (evil-define-key '(emacs) 'global (kbd "C-'") 'evil-normal-state)
+
+  ;; Navegación entre frames
+  (evil-define-key 'motion 'global (kbd "<leader>wh") 'windmove-left)
+  (evil-define-key 'motion 'global (kbd "<leader>wj") 'windmove-down)
+  (evil-define-key 'motion 'global (kbd "<leader>wk") 'windmove-up)
+  (evil-define-key 'motion 'global (kbd "<leader>wl") 'windmove-right)
+
+  ;; Atajos con leader key para frames
+  (evil-define-key 'motion 'global (kbd "<leader>0") 'delete-window)
+  (evil-define-key 'motion 'global (kbd "<leader>1") 'delete-other-windows)
+  (evil-define-key 'motion 'global (kbd "<leader>2") 'split-window-below)
+  (evil-define-key 'motion 'global (kbd "<leader>3") 'split-window-right)
+  (evil-define-key 'motion 'global (kbd "<leader>k") 'kill-buffer)
+  (evil-define-key 'motion 'global (kbd "<leader>wu") 'winner-undo)
+  (evil-define-key 'motion 'global (kbd "<leader>wr") 'winner-redo)
+
+  ;; Cambios de modos
+  (evil-define-key 'normal 'global (kbd "<leader>mh") 'html-mode)
+  (evil-define-key 'normal 'global (kbd "<leader>mj") 'js-mode)
+  (evil-define-key 'normal 'global (kbd "<leader>mp") 'php-mode)
+  (evil-define-key 'normal 'global (kbd "<leader>mr") 'rust-mode)
+  (evil-define-key 'normal 'global (kbd "<leader>mw") 'web-mode)
+
+  ;; Otros atajos
+  (evil-define-key 'motion 'global (kbd "<leader>b") 'ivy-switch-buffer)
+  (evil-define-key 'motion 'global (kbd "<leader>p") 'counsel-projectile)
+  (evil-define-key 'motion 'global (kbd "<leader>cp") 'projectile-switch-project)
+  (evil-define-key 'motion 'global (kbd "<leader>ff") 'counsel-find-file)
+
+  ;; Iniciar en normal state si es un lenguaje de programación
+  (evil-set-initial-state 'prog-mode 'normal)
   )
 
 (provide 'init-evil)

configs/init-functions.el

@@ -27,7 +27,7 @@ Saves to a temp file and puts the filename in the kill ring."
 
 ;; Comentar línea o región
 (defun comment-or-uncomment-region-or-line ()
-    "Comments or uncomments the region or the current line if there's no active region."
+    "Comments or uncomments the region or the current line."
     (interactive)
     (let (beg end)
         (if (region-active-p)
@@ -39,7 +39,7 @@ Saves to a temp file and puts the filename in the kill ring."
 
 ;; Duplicar la línea actual
 (defun duplicate-current-line (&optional n)
-  "duplicate current line, make more than 1 copy given a numeric argument"
+  "Duplicate current line, make more than 1 copy given a numeric (N) argument."
   (interactive "p")
   (save-excursion
     (let ((nb (or n 1))

configs/init-packages.el

@@ -296,29 +296,10 @@
   :straight t
   :hook (after-init . winner-mode))
 
-;; Permitir snippets
-(use-package yasnippet
-  :defer t
-  :straight t
-  :ensure t
-  :bind (:map yas-minor-mode-map
-              ("TAB" . nil)
-              ("<tab>" . nil)) ;; unbid tab for yasnippets
-  :custom
-  (yas-prompt-functions '(yas-completing-prompt))
-  :hook
-  ((prog-mode feature-mode)  . yas-minor-mode-on)
-  (html-mode . yas-minor-mode))
-
-;; Coleción de snippets
-(use-package yasnippet-snippets
-  :ensure t
-  :defer t
-  :straight t)
-
-(use-package esup
-  :ensure t
-  :straight t)
+;; Emacs Start Up Profiler
+;; (use-package esup
+;;   :ensure t
+;;   :straight t)
 
 (provide 'init-packages)
 ;;; init-packages.el ends here