kj/confi-emacs-actual
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: kj:6a633a806ca3df303b4a814a39ffe406662ebcd3
Branches Tags
kj:master kj:evil
..
compare: kj:master
Branches Tags
kj:master kj:evil

3 Commits
6a633a806c ... master

Author SHA1 Message Date
kj
3fc2e9db85 feat(lsp): add make-ls server for makefile-mode 2026-09-14 16:12:24 -03:00
kj
3d36596bc0 feat(ai): centralize agent-shell data in emacs directory 2026-09-09 13:03:44 -03:00
kj
2e51bbb969 fix(init-ai): prevent unwanted autocompletion in agent-shell 2026-09-05 12:14:19 -03:00
2 changed files with 17 additions and 4 deletions
Expand all files Collapse all files

20
configs/init-ai.el
View File

@@ -229,13 +229,25 @@ content do not break gptel-magit."
(setq agent-shell-transcript-file-path-function nil) (setq agent-shell-transcript-file-path-function nil)
(setq shell-maker-prompt-before-killing-buffer 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 (add-hook 'agent-shell-mode-hook
(lambda () (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 (setq-local completion-at-point-functions
(seq-remove (lambda (fn) (delq t completion-at-point-functions))
(memq fn '(cape-dabbrev cape-history))) (setq-local corfu-auto nil))
completion-at-point-functions))))) t) ;; :append para correr DESPUÉS de que agent-shell configure sus CAPFs
)
(provide 'init-ai) (provide 'init-ai)
;;; init-ai.el ends here ;;; init-ai.el ends here

1
configs/init-lsp.el
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 '(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 '(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 '(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-server-programs '(markdown-mode . ("marksman")))
(add-to-list 'eglot-ignored-server-capabilities :inlayHintProvider) (add-to-list 'eglot-ignored-server-capabilities :inlayHintProvider)
) )