diff --git a/configs/init-company.el b/configs/init-company.el index d809b3b..fbdd903 100644 --- a/configs/init-company.el +++ b/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)) )) diff --git a/configs/init-packages.el b/configs/init-packages.el index ba285c5..3081f3f 100644 --- a/configs/init-packages.el +++ b/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) - ("" . 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