(with-eval-after-load 'agent-shell
  (setopt agent-shell-show-welcome-message nil
          agent-shell-show-context-usage-indicator nil
          agent-shell-show-config-icons nil
          agent-shell-header-style 'text
          agent-shell-permission-icon "!"
          agent-shell-thought-process-icon "∮" ; or ⟳, useless
          agent-shell-busy-indicator-frames 'circle
          agent-shell-buffer-name-format
          (lambda (_agent project)
            ;; Modeled after `project-prefixed-buffer-name'.
            (concat "*"
                    project
                    "-"
                    (downcase (symbol-name 'agent-shell))
                    "*"))))