(defcustom madrigal-llm-provider-code nil
  "LLM provider object for code-editing requests."
  :type 'sexp)

(defcustom madrigal-llm-provider nil
  "LLM provider object used for madrigal requests.

(defcustom madrigal-llm-provider-reason nil
  "LLM provider object for deeper reasoning requests."
  :type 'sexp)

Set this to an `llm' provider instance, for example from
`make-llm-openai-compatible'."

(defcustom madrigal-llm-provider-quick nil
  "LLM provider object for quick/lightweight requests."

(defcustom madrigal-default-provider 'code
  "Default provider slot used by `madrigal-edit'."
  :type '(choice (const :tag "Code" code)
                 (const :tag "Reason" reason)
                 (const :tag "Quick" quick)))
(define-obsolete-variable-alias 'madrigal-llm-provider
  'madrigal-llm-provider-code
  "0.2.0")

(defcustom madrigal-max-tool-rounds 64

(defcustom madrigal-max-tool-rounds 512

;; If this symbol was already bound from an older load (default 12) and the
;; user has not customized/saved it, bump it to the new default.

;; If this symbol was already bound from an older load and the user has not
;; customized/saved it, bump it to the new default.

           (= madrigal-max-tool-rounds 12)

           (<= madrigal-max-tool-rounds 64)

  (setq-default madrigal-max-tool-rounds 64)
  (setq madrigal-max-tool-rounds 64))

  (setq-default madrigal-max-tool-rounds 512)
  (setq madrigal-max-tool-rounds 512))

      (when madrigal-log-include-context

      (when (and madrigal-log-include-context context-text)

    (madrigal--log-append-obj request-id 4 heading payload)))

    (let ((buf (madrigal--ensure-log-buffer))
          (marker (gethash request-id madrigal--log-request-markers)))
      (with-current-buffer buf
        (save-excursion
          (goto-char (if (and marker (marker-buffer marker)) marker (point-max)))
          (madrigal--log-insert-src-block `((event . ,heading)
                                            (payload . ,payload)))
          (puthash request-id (copy-marker (point) t) madrigal--log-request-markers)))
      (madrigal--log-refresh-visibility buf))))

  (let* ((ctx (madrigal--context-window))
         (mode (symbol-name major-mode))

  (let* ((mode (symbol-name major-mode))

     "%s\n\nBuffer: %s\nPath: %s\nMode: %s\nPoint(line): %s\nContext-window:\n%s"

     "%s\n\nBuffer: %s\nPath: %s\nMode: %s"

     mode
     (plist-get ctx :line)
     (plist-get ctx :text))))

     mode)))

(defun madrigal--provider-for-slot (slot)
  (pcase slot
    ('code madrigal-llm-provider-code)
    ('reason madrigal-llm-provider-reason)
    ('quick madrigal-llm-provider-quick)
    (_ nil)))
(defun madrigal--current-provider ()
  (let ((provider (madrigal--provider-for-slot madrigal-default-provider)))
    (unless provider
      (user-error "madrigal: set provider `%s' first" madrigal-default-provider))
    provider))

(defun madrigal--provider-capable-p (capability)
  (memq capability (llm-capabilities madrigal-llm-provider)))

(defun madrigal--provider-capable-p (provider capability)
  (memq capability (llm-capabilities provider)))

      (let* ((streaming-tool-use (madrigal--provider-capable-p 'streaming-tool-use))
             (streaming (madrigal--provider-capable-p 'streaming))

      (let* ((streaming-tool-use (madrigal--provider-capable-p provider 'streaming-tool-use))
             (streaming (madrigal--provider-capable-p provider 'streaming))

  "Send PROMPT-TEXT and current buffer context to LLM agent AGENT-ID.

  "Send PROMPT-TEXT to LLM agent AGENT-ID.

  (unless madrigal-llm-provider
    (user-error "madrigal: set `madrigal-llm-provider' first"))
  (madrigal--configure-provider-reasoning madrigal-llm-provider)

  (let* ((source-buffer (current-buffer))
         (context-text (plist-get (madrigal--context-window) :text))
         (request-id (madrigal--log-new-request agent-id source-buffer prompt-text context-text))

  (let* ((provider (madrigal--current-provider))
         (source-buffer (current-buffer))
         (request-id (madrigal--log-new-request agent-id source-buffer prompt-text nil))

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

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

      madrigal-llm-provider

      provider