Compare commits
3 Commits
6a633a806c
...
master
| Author | SHA1 | Date | |
|---|---|---|---|
| 3fc2e9db85 | |||
| 3d36596bc0 | |||
| 2e51bbb969 |
@@ -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
|
||||
|
||||
@@ -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)
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user