[nongnu] elpa/aidermacs 9cd6796833b: Fix: Use real model value in `aidermacs-set-model`

[ELPA Syncer]

branch: elpa/aidermacs
commit 9cd6796833b7f830b55d2e3dcc6ef05693bed61b
Author: OverbearingPearl <overbearingpe...@outlook.com>
Commit: Matthew Zeng <matthew...@gmail.com>

    Fix: Use real model value in `aidermacs-set-model`
    
    - Use the actual model ID instead of the formatted string
      from the completion candidates.
    - This fixes an issue where the wrong model was being set.
---
 aidermacs-models.el | 34 ++++++++++++++++++----------------
 1 file changed, 18 insertions(+), 16 deletions(-)

diff --git a/aidermacs-models.el b/aidermacs-models.el
index f91e5dd6252..122a38c7661 100644
--- a/aidermacs-models.el
+++ b/aidermacs-models.el
@@ -216,23 +216,25 @@ When SET-WEAK-MODEL is non-nil, only allow setting the 
weak model."
                                              (format "%-60s %s" id price))
                                            id)))
                                  aidermacs--cached-models))
-             (model (completing-read (format "Select %s: " model-type) 
candidates nil nil)))
+             (model (completing-read (format "Select %s: " model-type) 
candidates nil t)))
         (when model
-          (cond
-           (set-weak-model
-            (setq aidermacs-weak-model model)
-            (aidermacs--send-command (format "/weak-model %s" model)))
-           ((and is-architect-mode supports-specific-model)
-            (pcase model-type
-              ("Main/Reasoning Model"
-               (setq aidermacs-architect-model model)
-               (aidermacs--send-command (format "/model %s" model)))
-              ("Editing Model"
-               (setq aidermacs-editor-model model)
-               (aidermacs--send-command (format "/editor-model %s" model)))))
-           (t
-            (setq aidermacs-default-model model)
-            (aidermacs--send-command (format "/model %s" model))))))
+          (let ((real-model (cdr (assoc model candidates))))
+            (when real-model
+              (cond
+               (set-weak-model
+                (setq aidermacs-weak-model real-model)
+                (aidermacs--send-command (format "/weak-model %s" real-model)))
+               ((and is-architect-mode supports-specific-model)
+                (pcase model-type
+                  ("Main/Reasoning Model"
+                   (setq aidermacs-architect-model real-model)
+                   (aidermacs--send-command (format "/model %s" real-model)))
+                  ("Editing Model"
+                   (setq aidermacs-editor-model real-model)
+                   (aidermacs--send-command (format "/editor-model %s" 
real-model)))))
+               (t
+                (setq aidermacs-default-model real-model)
+                (aidermacs--send-command (format "/model %s" real-model))))))))
     (quit (message "Model selection cancelled"))))
 
 (defun aidermacs--get-available-models ()