[nongnu] elpa/gptel 9caf7684c3: gptel-openai: Simplify reasoning handling further

[ELPA Syncer]

branch: elpa/gptel
commit 9caf7684c3a4182e173afe57fa06e53aafc53434
Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmagalur@gmail.com>

    gptel-openai: Simplify reasoning handling further
    
    * gptel-openai.el (gptel-curl--parse-stream): Simplify the
    reasoning handling for OpenAI-compatible APIs (#901).  It now
    works as follows:
    - Look for :reasoning content.  If found, capture it and do
    nothing else.
    - Otherwise, check if this is a reasoning model.
    - If it is, check if we are receiving non-empty content.
    - If we are, signal the end of the reasoning block.
    
    The last step sets :reasoning-block to t.  The process filter
    handles closing out the reasoning handling and setting it to done.
---
 gptel-openai.el | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/gptel-openai.el b/gptel-openai.el
index f81c1f2387..241a9b56ba 100644
--- a/gptel-openai.el
+++ b/gptel-openai.el
@@ -232,18 +232,15 @@ information if the stream contains it."
                       (push (plist-get func :arguments) (plist-get info 
:partial_json)))))
                 ;; Check for reasoning blocks, currently only used by 
Openrouter
                 (unless (eq (plist-get info :reasoning-block) 'done)
-                  ;; We could also check for (plist-member delta :reasoning)
-                  ;; here, but some APIs don't include it with content. (#901)
-                  (if-let* ((reasoning-chunk (plist-get delta :reasoning)) 
;for openrouter
+                  (if-let* ((reasoning-chunk (plist-get delta :reasoning)) 
;for Openrouter and co
                             ((not (eq reasoning-chunk :null))))
                       (plist-put info :reasoning
                                  (concat (plist-get info :reasoning) 
reasoning-chunk))
                     ;; Done with reasoning if we get non-empty content
-                    (if-let* ((c (plist-get delta :content))
+                    (if-let* (((plist-member info :reasoning)) ;Is this a 
reasoning model?
+                              (c (plist-get delta :content)) ;Started 
receiving text content?
                               ((not (or (eq c :null) (string-empty-p c)))))
-                        (if (plist-member info :reasoning) ;Is this a 
reasoning model?
-                            (plist-put info :reasoning-block t) ;End of 
streaming reasoning block
-                          (plist-put info :reasoning-block 'done))))))))) ;Not 
using a reasoning model
+                        (plist-put info :reasoning-block t)))))))) ;Signal end 
of reasoning block
       (error (goto-char (match-beginning 0))))
     (apply #'concat (nreverse content-strs))))