Compare commits
9 Commits
5a2483cdfa
...
master
| Author | SHA1 | Date | |
|---|---|---|---|
| 0f16547bcb | |||
| 608eee5167 | |||
| 0a752577fc | |||
| 3f6e673a6b | |||
| a285f0b68e | |||
| 217ad59844 | |||
| fc35b7b0eb | |||
| ddad78fea1 | |||
| 2ca9c993fd |
@@ -11,27 +11,36 @@
|
|||||||
|
|
||||||
;; Cliente LLM (ollama, chatgpt, gemini, etc.)
|
;; Cliente LLM (ollama, chatgpt, gemini, etc.)
|
||||||
(use-package gptel
|
(use-package gptel
|
||||||
|
:defer nil
|
||||||
:config
|
:config
|
||||||
(if (getenv "GEMINI_KEY")
|
(setq gptel-model 'gemma4:e2b
|
||||||
|
gptel-backend (gptel-make-ollama "Ollama"
|
||||||
|
:host "localhost:11434"
|
||||||
|
:stream t
|
||||||
|
:request-params '(:think :json-false)
|
||||||
|
:models '("cajina/gemma4_e2b-Q4_k_s:v01"
|
||||||
|
"su_robin/gemma-4-E4B-it-Q4_K_M:latest"
|
||||||
|
"dagbs/qwen2.5-coder-0.5b-instruct-abliterated:q4_k_l"
|
||||||
|
"jewelzufo/Qwen2.5-Coder-0.5B-Instruct-GGUF-Assistant:latest"
|
||||||
|
"jaahas/qwen3.5-uncensored:4b"
|
||||||
|
"jaahas/qwen3.5-uncensored:2b"
|
||||||
|
"qwen3.5:4b"
|
||||||
|
"qwen3.5:2b"
|
||||||
|
"gemma4:e2b"
|
||||||
|
"glm-5.1:cloud"
|
||||||
|
"gemma4:31b-cloud"
|
||||||
|
"minimax-m2.5:cloud"
|
||||||
|
"gpt-oss:120b-cloud"
|
||||||
|
"gemini-3-flash-preview:cloud"
|
||||||
|
"glm-5:cloud"
|
||||||
|
"qwen3-coder-next:cloud"
|
||||||
|
"qwen3-coder:480b-cloud"
|
||||||
|
"embeddinggemma:latest")))
|
||||||
|
(when (getenv "GEMINI_KEY")
|
||||||
(setq gptel-model 'gemini-2.5-flash
|
(setq gptel-model 'gemini-2.5-flash
|
||||||
gptel-backend (gptel-make-gemini "Gemini"
|
gptel-backend (gptel-make-gemini "Gemini"
|
||||||
:key (getenv "GEMINI_KEY")
|
:key (getenv "GEMINI_KEY")
|
||||||
:stream t))
|
:stream t)))
|
||||||
(setq gptel-model 'cajina/gemma4_e2b-q2_k_xl:v01
|
|
||||||
gptel-backend (gptel-make-ollama "Ollama"
|
|
||||||
:host "localhost:11434"
|
|
||||||
:request-params '(:think nil)
|
|
||||||
:stream t
|
|
||||||
:models '("mistral:latest"
|
|
||||||
"deepseek-r1:1.5b"
|
|
||||||
"gemma3n:e2b"
|
|
||||||
"gemma4:e2b"
|
|
||||||
"cajina/gemma4_e2b-q2_k_xl:v01"
|
|
||||||
"deepcoder"
|
|
||||||
"glm-5.1:cloud"
|
|
||||||
"gemma4:latest"
|
|
||||||
"gemini-3-flash-preview:cloud")))
|
|
||||||
)
|
|
||||||
(setq gptel-default-mode 'org-mode
|
(setq gptel-default-mode 'org-mode
|
||||||
gptel-prompt-prefix-alist
|
gptel-prompt-prefix-alist
|
||||||
'((markdown-mode . "# User\n\n")
|
'((markdown-mode . "# User\n\n")
|
||||||
@@ -44,7 +53,33 @@
|
|||||||
gptel-directives
|
gptel-directives
|
||||||
'((default . "You are a large language model living in Emacs and a helpful assistant. Respond concisely in Spanish."))
|
'((default . "You are a large language model living in Emacs and a helpful assistant. Respond concisely in Spanish."))
|
||||||
)
|
)
|
||||||
(setopt gptel-include-reasoning nil)) ;; Mantener hasta resolver: https://github.com/ragnard/gptel-magit/issues/8
|
(setopt gptel-include-reasoning nil) ;; Mantener hasta resolver: https://github.com/ragnard/gptel-magit/issues/8
|
||||||
|
|
||||||
|
(defun gptel-switch+model ()
|
||||||
|
"Switch to gptel backend and model in a single completion prompt."
|
||||||
|
(interactive)
|
||||||
|
(let (choices)
|
||||||
|
(dolist (pair gptel--known-backends)
|
||||||
|
(let* ((backend-name (car pair))
|
||||||
|
(backend (cdr pair))
|
||||||
|
(models
|
||||||
|
(and (fboundp 'gptel-backend-models)
|
||||||
|
(gptel-backend-models backend))))
|
||||||
|
(when models
|
||||||
|
(dolist (model models)
|
||||||
|
(push (cons ; (format "%s:%s" backend-name model)
|
||||||
|
(format "%s → %s"
|
||||||
|
(propertize backend-name 'face 'font-lock-keyword-face)
|
||||||
|
(propertize (symbol-name model) 'face 'font-lock-function-name-face))
|
||||||
|
(cons backend-name model))
|
||||||
|
choices)))))
|
||||||
|
(let* ((choice
|
||||||
|
(completing-read "Model: " (mapcar #'car choices) nil t))
|
||||||
|
(sel (cdr (assoc choice choices))))
|
||||||
|
(setq gptel-backend (cdr (assoc (car sel) gptel--known-backends))
|
||||||
|
gptel-model (cdr sel))
|
||||||
|
(message "gptel set to %s:%s" (car sel) (cdr sel)))))
|
||||||
|
)
|
||||||
|
|
||||||
;; (use-package copilot
|
;; (use-package copilot
|
||||||
;; :hook (prog-mode . copilot-mode)
|
;; :hook (prog-mode . copilot-mode)
|
||||||
@@ -53,17 +88,20 @@
|
|||||||
;; ("C-<return>" . 'copilot-accept-completion)
|
;; ("C-<return>" . 'copilot-accept-completion)
|
||||||
;; ("S-<return>" . 'copilot-accept-completion-by-word)))
|
;; ("S-<return>" . 'copilot-accept-completion-by-word)))
|
||||||
|
|
||||||
;; El asistente más completo de todos: Tiene chat mpc, code completion, etc.
|
|
||||||
(use-package eca
|
|
||||||
;; :hook (prog-mode . eca-completion-mode)
|
|
||||||
:bind (("M-<return>" . eca-complete)
|
|
||||||
:map eca-completion-map
|
|
||||||
("C-<return>" . eca-completion-accept)))
|
|
||||||
|
|
||||||
(use-package gptel-magit
|
(use-package gptel-magit
|
||||||
:ensure t
|
:ensure t
|
||||||
:hook (magit-mode . gptel-magit-install))
|
:hook (magit-mode . gptel-magit-install))
|
||||||
|
|
||||||
|
(use-package gptel-autocomplete
|
||||||
|
:ensure (:host github :repo "JDNdeveloper/gptel-autocomplete")
|
||||||
|
:bind (("M-<return>" . gptel-complete)
|
||||||
|
:map gptel-autocomplete-completion-map
|
||||||
|
("C-<return>" . gptel-accept-completion)))
|
||||||
|
|
||||||
|
(use-package gptel-agent
|
||||||
|
:ensure t
|
||||||
|
:config (gptel-agent-update))
|
||||||
|
|
||||||
(use-package macher
|
(use-package macher
|
||||||
:ensure (:host github :repo "kmontag/macher")
|
:ensure (:host github :repo "kmontag/macher")
|
||||||
:custom
|
:custom
|
||||||
|
|||||||
@@ -79,6 +79,7 @@
|
|||||||
(use-package flycheck
|
(use-package flycheck
|
||||||
:init (global-flycheck-mode)
|
:init (global-flycheck-mode)
|
||||||
:config
|
:config
|
||||||
|
(setq-default flycheck-global-modes '(not org-mode))
|
||||||
(setq flycheck-indication-mode nil
|
(setq flycheck-indication-mode nil
|
||||||
flycheck-phpcs-standard "PSR12"))
|
flycheck-phpcs-standard "PSR12"))
|
||||||
|
|
||||||
|
|||||||
@@ -34,7 +34,8 @@
|
|||||||
("C-c p f" . consult-find) ;; Búsqueda de archivos en todo el projecto incluso en carpetas
|
("C-c p f" . consult-find) ;; Búsqueda de archivos en todo el projecto incluso en carpetas
|
||||||
("C-c p l" . consult-line-multi) ;; Búsqueda en todos los buffers del projecto abiertos
|
("C-c p l" . consult-line-multi) ;; Búsqueda en todos los buffers del projecto abiertos
|
||||||
;; Custom M-# bindings for fast register access
|
;; Custom M-# bindings for fast register access
|
||||||
("C-'" . consult-register-load)
|
;; ("C-'" . consult-register-load)
|
||||||
|
("C-'" . consult-register)
|
||||||
("M-'" . consult-register-store) ;; orig. abbrev-prefix-mark (unrelated)
|
("M-'" . consult-register-store) ;; orig. abbrev-prefix-mark (unrelated)
|
||||||
;; Other custom bindings
|
;; Other custom bindings
|
||||||
("M-y" . consult-yank-pop) ;; orig. yank-pop
|
("M-y" . consult-yank-pop) ;; orig. yank-pop
|
||||||
|
|||||||
Reference in New Issue
Block a user