Compare commits

..

3 Commits

2 changed files with 17 additions and 4 deletions

View File

@@ -229,13 +229,25 @@ content do not break gptel-magit."
(setq agent-shell-transcript-file-path-function nil)
(setq shell-maker-prompt-before-killing-buffer nil)
;; Quitar cape-dabbrev y cape-history de agent-shell (evita autocompletar texto del buffer)
;; Centralizar datos de agent-shell (screenshots, transcripts, worktrees)
;; para que no cree .agent-shell/ dentro de los proyectos
(setq agent-shell-dot-subdir-function
(lambda (subdir)
(expand-file-name subdir
(expand-file-name "agent-shell/" user-emacs-directory))))
;; Quitar cape-dabbrev, cape-history, comint-completion-at-point y el centinela t
;; de agent-shell (evita autocompletar texto del buffer o historial de prompts previos)
(add-hook 'agent-shell-mode-hook
(lambda ()
(remove-hook 'completion-at-point-functions #'cape-dabbrev t)
(remove-hook 'completion-at-point-functions #'cape-history t)
(remove-hook 'completion-at-point-functions #'comint-completion-at-point t)
(setq-local completion-at-point-functions
(seq-remove (lambda (fn)
(memq fn '(cape-dabbrev cape-history)))
completion-at-point-functions)))))
(delq t completion-at-point-functions))
(setq-local corfu-auto nil))
t) ;; :append para correr DESPUÉS de que agent-shell configure sus CAPFs
)
(provide 'init-ai)
;;; init-ai.el ends here

View File

@@ -48,6 +48,7 @@
(add-to-list 'eglot-server-programs '(web-mode . ("rass" "--" "htmx-lsp" "--" "intelephense" "--stdio")))
(add-to-list 'eglot-server-programs '(html-mode . ("rass" "--" "htmx-lsp" "--" "intelephense" "--stdio")))
(add-to-list 'eglot-server-programs '(nhtml-mode . ("rass" "--" "htmx-lsp" "--" "intelephense" "--stdio")))
(add-to-list 'eglot-server-programs 'makefile-mode . ("make-ls"))
;;(add-to-list 'eglot-server-programs '(markdown-mode . ("marksman")))
(add-to-list 'eglot-ignored-server-capabilities :inlayHintProvider)
)