From d626431d6848de0b046b3226ea10b73a6ce82603 Mon Sep 17 00:00:00 2001
From: Roger Gonzalez <roger@rogs.me>
Date: Wed, 21 May 2025 14:32:31 -0300
Subject: [PATCH] Added set-magit-gptcommit-provider to Doom Emacs

---
 .authinfo.gpg           | Bin 368 -> 411 bytes
 .config/doom/config.el  |  17 ++++++++++++++++-
 .config/doom/config.org |  22 +++++++++++++++++++++-
 3 files changed, 37 insertions(+), 2 deletions(-)

diff --git a/.authinfo.gpg b/.authinfo.gpg
index 67694a61d6ee469dddd459e243d24521e11a1512..8576ccfb3007fa9fe244064736903f9b2d010ba2 100644
GIT binary patch
literal 411
zcmV;M0c8G+4Fm}T2w&|Y0#C#-J^#|c$pPVq?2<SSHmJLPn70lc-lum{2*HhJPjf+o
z3y-koh?e2mv~zRir~jWJDXxH%WN8kRD-Ekub8#(wgpRj$WsnxRx3bw(3iARQLMp00
z)g34TN$${ky#-t0n1D$!>cDo-h$3D~Jy<9)C?znz1Cg@AJ#H}IW!+mt7y%A+*0x%G
zqPT$NwEB4V`rd*NQk}kCJKGRO;0x85C_uqvyP-qOGU+tG`i$3mCMcC&R|J>ieoSsi
zAVy?Lx^xs8F=3yH*=zSNs}kTzcIiS_R~|~^$B8r#uK<y%H(E{lMoo{?X(DFx5L)hd
zWT8n9OGvF*I3uJSXcrY!P>yM2i(L=Eq&@fOg8Qg#+#j{L>N-OF{(Pvha%h1A6*E4I
zJh8~3JT%zkb$PhoR;~5e5O^%ki=5`A#Hq|PvNGG!fY{s0c`sQVexhgQd_q=fiTrTs
zwd%#Z<xN0x^fZfA2XUL3Px>%A86eollJN6fVAA?jFm@=6+#C?fM!He&Sol(MF55vk
FmkG8p#tHxc

literal 368
zcmV-$0gwKS4Fm}T2y<)ZIzCRQ2LIB)o&oM~#xHAntJ%PiOu2<7-MAxf@a|#2#SUC!
z%FCsrz3odtr%so39#M&FyW?n1AA0e^YD}@qRQG*1`PhrxH4R>MnP$cZ3|;bvm$WSJ
zg?)t#kK57>4sEF~yHP67%L;w5)yF02x=`tJZb$Q}!AIO16Ur04>%da!N5Siwu%}mx
zHWPA^D$=&`>2JPnvXf3KI-4p?$=Q=gcq++OzE4GM15Nr#EZJ^8)r4x(nFh}`g*CVT
zD8`)Xu3A+umB`-w*>|Ya!m7`7xL2lZSlT@z3hm@XVeEMkR@4wO{6|9&X6cG)o=%FQ
zm;n(HM&q2;hMQIKJ%Z^Lk)z7(=i9?PZ%_9|Rpa@gO#j`iiY#V3tQ7q(9R!$UQy$~Y
z@iV2@?e5=nP2v(GP3$z4lr7qLu=C@5DUSYCO$+FEaYO5y>*D!Oai()12PKl67Vkp7
Ocx*UBAV8<Tz-rNQkG~B7

diff --git a/.config/doom/config.el b/.config/doom/config.el
index 8498ff5b..b265e073 100644
--- a/.config/doom/config.el
+++ b/.config/doom/config.el
@@ -489,7 +489,8 @@ related notes or tasks."
       (:prefix-map ("l" . "LLMs")
        :desc "Aidermacs" "a" #'aidermacs-transient-menu
        :desc "ChatGPT Shell" "c" #'chatgpt-shell-transient
-       :desc "Set Forge LLM Provider" "f" #'my/set-forge-llm-provider))
+       :desc "Set Forge LLM Provider" "f" #'my/set-forge-llm-provider
+       :desc "Set Magit GPT Provider" "m" #'my/set-magit-gptcommit-provider))
 
 (setq chatgpt-shell-model-version "gemini-2.5-pro-exp")
 (setq chatgpt-shell-streaming "t")
@@ -499,6 +500,20 @@ related notes or tasks."
 (setq chatgpt-shell-anthropic-key anthropic-key)
 (setq dall-e-shell-openai-key openai-key)
 
+(defun my/set-magit-gptcommit-provider (provider)
+  "Set the Magit GPT commit LLM provider dynamically."
+  (interactive
+   (list (completing-read "Choose LLM for Magit GPT Commit: " '("Gemini" "Claude" "Qwen" "Ollama"))))
+  (setq magit-gptcommit-llm-provider
+        (pcase provider
+          ("Gemini" (make-llm-gemini :key gemini-key :chat-model "gemini-2.5-pro-exp-03-25"))
+          ("Claude" (make-llm-claude :key anthropic-key :chat-model "claude-3-7-sonnet-latest"))
+          ("Qwen" (make-llm-openai-compatible :url "https://openrouter.ai/api/v1"
+                                              :chat-model "qwen/qwen3-235b-a22b"
+                                              :key openrouter-api-key))
+          ("Ollama" (make-llm-ollama :scheme "http" :host "192.168.0.122" :chat-model "gemma3:12b"))))
+  (message "Magit GPT provider set to %s" provider))
+
 (require 'llm-ollama)
 (setq magit-gptcommit-llm-provider (make-llm-ollama :scheme "http" :host "192.168.0.122" :chat-model "gemma3:12b"))
 (setq llm-warn-on-nonfree nil)
diff --git a/.config/doom/config.org b/.config/doom/config.org
index 6b31f4bc..bd3912e5 100644
--- a/.config/doom/config.org
+++ b/.config/doom/config.org
@@ -939,7 +939,8 @@ always expand it later if new tools join the lineup.
       (:prefix-map ("l" . "LLMs")
        :desc "Aidermacs" "a" #'aidermacs-transient-menu
        :desc "ChatGPT Shell" "c" #'chatgpt-shell-transient
-       :desc "Set Forge LLM Provider" "f" #'my/set-forge-llm-provider))
+       :desc "Set Forge LLM Provider" "f" #'my/set-forge-llm-provider
+       :desc "Set Magit GPT Provider" "m" #'my/set-magit-gptcommit-provider))
 #+end_src
 
 *** ChatGPT Shell
@@ -984,6 +985,11 @@ This section configures =magit-gptcommit=, an integration that uses an LLM to au
 well-written Git commit messages based on the current file diffs. I’m using a local model via Ollama (in
 this case, =gemma3:12b=) to keep everything offline and fast.
 
+To make switching models easier, I also added =my/set-magit-gptcommit-provider=, an interactive command
+that lets me choose the active LLM provider (Gemini, Claude, Qwen, or Ollama) on the fly. This is super
+handy when I want to test different models' output or switch between local and cloud-based models
+depending on the context.
+
 The key part here is the custom prompt. It's designed to enforce a consistent commit message format,
 following the Linux kernel commit style. The prompt instructs the model to:
 
@@ -994,6 +1000,20 @@ following the Linux kernel commit style. The prompt instructs the model to:
 This gives me consistent, clean, and useful commit messages without having to write them myself.
 
 #+begin_src emacs-lisp
+(defun my/set-magit-gptcommit-provider (provider)
+  "Set the Magit GPT commit LLM provider dynamically."
+  (interactive
+   (list (completing-read "Choose LLM for Magit GPT Commit: " '("Gemini" "Claude" "Qwen" "Ollama"))))
+  (setq magit-gptcommit-llm-provider
+        (pcase provider
+          ("Gemini" (make-llm-gemini :key gemini-key :chat-model "gemini-2.5-pro-exp-03-25"))
+          ("Claude" (make-llm-claude :key anthropic-key :chat-model "claude-3-7-sonnet-latest"))
+          ("Qwen" (make-llm-openai-compatible :url "https://openrouter.ai/api/v1"
+                                              :chat-model "qwen/qwen3-235b-a22b"
+                                              :key openrouter-api-key))
+          ("Ollama" (make-llm-ollama :scheme "http" :host "192.168.0.122" :chat-model "gemma3:12b"))))
+  (message "Magit GPT provider set to %s" provider))
+
 (require 'llm-ollama)
 (setq magit-gptcommit-llm-provider (make-llm-ollama :scheme "http" :host "192.168.0.122" :chat-model "gemma3:12b"))
 (setq llm-warn-on-nonfree nil)