(defcustom madrigal-max-tool-rounds 12

(defcustom madrigal-max-tool-rounds 64

(defcustom madrigal-reasoning-level 'medium
  "Reasoning effort requested from providers that support it.
Set to nil to avoid sending any explicit reasoning effort hint."
  :type '(choice (const :tag "Provider default" nil)
                 (const :tag "None" none)
                 (const :tag "Light" light)
                 (const :tag "Medium" medium)
                 (const :tag "Maximum" maximum)))
(defcustom madrigal-openai-responses-reasoning-summary "auto"
  "Reasoning summary mode for `llm-openai-responses' providers.
When non-nil, madrigal configures the provider to request reasoning
summaries (for example \"auto\")."
  :type '(choice (const :tag "Disabled" nil)
                 string))

  "When non-nil, keep the madrigal org log folded to top-level headings."

  "Deprecated log folding toggle.
The madrigal log now keeps the latest request expanded as entries are
written.  This option is retained for backward compatibility."

  (when madrigal-log-start-collapsed
    (with-current-buffer buffer
      (when (derived-mode-p 'org-mode)
        (save-excursion
          (org-overview))))))

  (with-current-buffer buffer
    (when (derived-mode-p 'org-mode)
      (save-excursion
        (goto-char (point-max))
        (when (re-search-backward "^\\*+ " nil t)
          (org-show-entry)
          (org-show-subtree))
        (goto-char (point-max))
        (when (re-search-backward "^\\* Request " nil t)
          (org-show-entry)
          (org-show-subtree))))))

(defun madrigal--configure-provider-reasoning (provider)
  (when (and madrigal-log-include-reasoning
             madrigal-openai-responses-reasoning-summary
             (fboundp 'llm-openai-responses-p)
             (ignore-errors (llm-openai-responses-p provider)))
    (condition-case nil
        (setf (llm-openai-responses-reasoning-summary provider)
              madrigal-openai-responses-reasoning-summary)
      (error nil))))

  (madrigal--configure-provider-reasoning madrigal-llm-provider)

                   (madrigal--build-user-prompt prompt-text)
                   :context (madrigal--system-prompt)
                   :tools (list (madrigal--exec-ops-tool agent-id request-id)))))

                    (madrigal--build-user-prompt prompt-text)
                    :context (madrigal--system-prompt)
                    :reasoning (and madrigal-log-include-reasoning
                                    madrigal-reasoning-level)
                    :tools (list (madrigal--exec-ops-tool agent-id request-id)))))